Hola Buenos días
Esta es mi primer consulta en ese te foro estuve buscando antes de abrir un tema sobre el problema que tengo, que es el siguiente. Lo que hago es en el evento Click del objeto Calendar filtro por la fecha que se selecciono en el calendario y lo igualo en un datagrid. El problema es que me funciona bien en la mayoría de las de las fechas pero con las fechas que implican el numero dos(2,12,22) de cualquier mes no me muestra nada
Les dejo el código a ver si me pueden guiar o dar una idea de que tengo mal o que tengo que re-hacer
Dim co As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Abrir()
Set co = New ADODB.Connection
co.Open "Provider=Microsoft Jet 4.0 OLE DB Provider ; Data Source = C:\ProgramaTest\Paciente.mdb"
Set rs = New ADODB.Recordset
rs.ActiveConnection = co
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset
End Sub
Private Sub Calendar1_Click()
Abrir
rs.Source = "SELECT * FROM Turnos where Fecha = #" & Calendar1.Value & "#"
rs.Open
Frame2.Visible = False
DataGrid1.Visible = True
Calendar1.Visible = False
Command3.Visible = True
Command6.Visible = True
DataGrid1.ClearFields
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub
Quiero anticiparme y decirles que es mi primer programa es visual basic, así que disculpen si ven errores muy feos en el código
Desde ya Muchas Gracias
Saludos