Hola amigos !!
Tengo dos combobox que los relleno mediante este codigo
Código:
Private Sub SetDateCombos()
Set rsMyDate = New ADODB.Recordset
Dim sql As String
sql = "SELECT pfec_pet FROM peticio WHERE pcod_mut LIKE '" & cmbMut.Text & "'"
rsMyDate.Open sql, sql_provider, adOpenStatic
While Not rsMyDate.EOF
Me.cmbDataIni.AddItem Format(rsMyDate!pfec_pet, "dd/mm/yyyy")
Me.cmbDataFi.AddItem Format(rsMyDate!pfec_pet, "dd/mm/yyyy")
rsMyDate.MoveNext
Wend
End Sub
En la base de datos se guarda mm/dd/aaaa, pero como podeis comprobar lo muestro dd/mm/aaaa.
Mi consulta es la siguiente, estoy realizando un formulario que me tiene que mostrar los resultados entre las fechas ini y fin, pero si cojo los valores de combo me salta error de formato, por lo que tengo que volver a convertirlo mediante una funcion mía, o puedo que al hacer clic en la búscqueda me lea el formato de fecha de otro formato?
Espero haberme explicado
Gracias de antemano