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.
Visual Basic:
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
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
