Como Hago que el Progressbar se me ejecute mientras realiza la siguiente Busqueda
Private Sub XPButton4_Click()
Dim var1 As String
If Combo4.Text = "NACIONAL" Then
Form8.Data1.DatabaseName = "c:\Archivos de Programa\Internacional\Internacional.mdb"
Form8.Data1.RecordSource = "SELECT Total_Nacional.* From Total_Nacional WHERE (((Total_Nacional.Fecha) Between '" & Text6.Text & "'" & " And '" & Text7.Text & "'" & ") )"
Form8.Data1.Refresh
If Not (Form8.Data1.Recordset.EOF) Then
Form8.Data1.Recordset.MoveLast
Form8.Label23.Caption = Form8.Data1.Recordset.RecordCount
Form8.Label28.Caption = "En Despachos Nacionales...>>>"
Text6.SetFocus
Else
MsgBox ("Verifique Bien la Fecha a Buscar....>>>>")
Form8.Label28.Caption = ""
End If
End If
Gracias
Mode Lineal
