En esta página encontrarán algunos ejemplo de trucos de VBA (Visual Basic for Applications) que puedes utilizar en aplicaciones desarrolladas con la base de datos Microsoft Access.


TweetBuscar un registro en Access 2003

Este código de VBA en Access 2003 combina la función de buscar un registro en función de un campo de fecha de un formulario y en que caso de no encuentre el dato que vaya a nuevo registro.



Para seleccionar la Fecha se utiliza un control Calendar llamado Calendario.
    Dim lngReg As Long
    lngReg = DCount("[fecha]", "Facturas", "[fecha] = #" & Format(Calendario.Value, "mm-dd-yy") & "#")
    If lngReg <= 0 Then
        DoCmd.GoToRecord acActiveDataObject, , acNewRec
      Else
        Fecha.SetFocus
        DoCmd.FindRecord Calendario.Value, acEntire, False, acSearchAll, , acCurrent
    End If


Etiquetas: Fechas.

Volver

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Uso de cookies

Este sitio web utiliza cookies para que usted tenga la mejor experiencia de usuario. Si continúa navegando está dando su consentimiento para la aceptación de las mencionadas cookies y la aceptación de nuestra política de cookies, pinche el enlace para mayor información.plugin cookies

ACEPTAR
Aviso de cookies