Hola! Tengo un formulario con botones de búsqueda. La búsqueda se reflejará en un datagrid. La búsqueda entre 2 fechas, la tengo así =
Código:
Private Sub Command5_Click()
Dim fechaini As Date
Dim fechatope As Date
'Si los textbox están llenos
If Len(Trim(Text4.Text)) >= 1 And Len(Trim(Text5.Text)) >= 1 Then
'función que comprueba si el parámetro enviado corresponde o no con un valor convertible en Date.
If IsDate(Text4) And IsDate(Text5) Then
fechaini = "16/06/2006"
fechatope = Date
If Text4 < fechaini Or Text5 < fechaini Then
MsgBox "No se puede ingresar una fecha anterior al 16/06/2006", vbInformation, "Atención"
ElseIf Text4 > fechatope Or Text5 > fechatope Then
MsgBox "No se puede ingresar una fecha posterior a la de hoy", vbInformation, "Atención"
Else
'realiza búsqueda
Adodc1.Recordset.Filter = "Fecha_Ingreso >= #" & Format(Text4, "dd/mm/yyyy") & "# and Fecha_Ingreso <= #" & Format(Text5, "dd/mm/yyyy") & "#"
End If
Else
MsgBox "Dato ingresado no es fecha", vbInformation, "Atención"
End If
Else
MsgBox "No ingresó datos"
End If
End Sub
Funciona. Pero lo que quisiera es que en el datagrid, aparezcan las fechas ordenadas de menor a mayor. Porque aparecen ordenadas por ID. ¿Cómo puedo hacerlo?
Con respecto a la Búsqueda entre 2 precios tengo esto=
Código:
Private Sub Command4_Click()
If Len(Trim(Text3.Text)) >= 1 and Len(Trim(Text6.Text))>=1 Then
Adodc1.Recordset.Filter = "Precio_Artículo >= #" & Format(Text3) & "# and Precio_Artículo <= #" & Format(Text6) & "#"
Else
Adodc1.Refresh
End If
End Sub
También busca. Copie la búsqueda un poco de la búsqueda de fechas, pero no se si estará bien(por ejemplo lo de FORMAT). Igual me buscó los precios que le puse. Lo que quisiera, al igual que en la búsqueda de fechas, es que aparezcan los precios de menor a mayor, porque aparecen ordenados por ID. Y lo que no busca, son precios con decimales. Me gustaría validar que ingrese hasta 2 decimales(ejemplo 3,20) y que pueda realizar la búsqueda con decimales también.
Muchas gracias!