
Error en consulta por fecha Access VBA
Publicado por Luis (32 intervenciones) el 07/02/2024 21:51:59
Buenas tardes, tengo una tabla con el fin de actualizar la tasa del dolar según el banco ver adjunto tabla:

Aqui esta con algunos datos de ejemplo ver adjunto tabla-con-datos:

Tengo un formulario donde puedo llenar esta tabla ver adjunto form:

Mi problema es que si quiero realizar una búsqueda de la tasa que se agrego un día especifico no me trae el resultado, aquí muestro el código:
Private Sub cmb_Buscar_Click()
Dim rst As DAO.Recordset, SQL As String
Dim v As Variant
If IsNull(Me.txtFecha) Or Me.txtFecha = "" Then
MsgBox "DEBE COLOCAR LA FECHA PARA REALIZAR LA BUSUQEDA", vbCritical, "AVISO"
Me.txtFecha.SetFocus
Exit Sub
Else
If DLookup("[Fecha]", "[Tasa_BCV]", "[Fecha] = #" & Format(Me.txtFecha, "dd/mm/yyyy") & "#") Then
SQL = "SELECT * " _
& "FROM Tasa_BCV " _
& "WHERE Fecha =#" & Me.txtFecha & "#"
Set rst = CurrentDb.OpenRecordset(SQL, dbOpenForwardOnly)
With rst
Me.txtID = !Id
Me.txtFecha = !Fecha
Me.txtTasa = !Tasa
End With
Else
MsgBox "NO EXISTE TASA PARA ESA FECHA", vbCritical, "AVISO"
Me.txtFecha = ""
End If
End If
End Sub
Lo que quiero es colocar una fecha en el campo texto Fecha y al presionar el botón de buscar realice una búsqueda en la tabla de la fecha y me muestre la tasa de ese día, agradezco la ayuda que me puedan brindar.

Aqui esta con algunos datos de ejemplo ver adjunto tabla-con-datos:

Tengo un formulario donde puedo llenar esta tabla ver adjunto form:

Mi problema es que si quiero realizar una búsqueda de la tasa que se agrego un día especifico no me trae el resultado, aquí muestro el código:
Private Sub cmb_Buscar_Click()
Dim rst As DAO.Recordset, SQL As String
Dim v As Variant
If IsNull(Me.txtFecha) Or Me.txtFecha = "" Then
MsgBox "DEBE COLOCAR LA FECHA PARA REALIZAR LA BUSUQEDA", vbCritical, "AVISO"
Me.txtFecha.SetFocus
Exit Sub
Else
If DLookup("[Fecha]", "[Tasa_BCV]", "[Fecha] = #" & Format(Me.txtFecha, "dd/mm/yyyy") & "#") Then
SQL = "SELECT * " _
& "FROM Tasa_BCV " _
& "WHERE Fecha =#" & Me.txtFecha & "#"
Set rst = CurrentDb.OpenRecordset(SQL, dbOpenForwardOnly)
With rst
Me.txtID = !Id
Me.txtFecha = !Fecha
Me.txtTasa = !Tasa
End With
Else
MsgBox "NO EXISTE TASA PARA ESA FECHA", vbCritical, "AVISO"
Me.txtFecha = ""
End If
End If
End Sub
Lo que quiero es colocar una fecha en el campo texto Fecha y al presionar el botón de buscar realice una búsqueda en la tabla de la fecha y me muestre la tasa de ese día, agradezco la ayuda que me puedan brindar.
Valora esta pregunta


0