Buscar un registro en Access 2003
1912
post-template-default,single,single-post,postid-1912,single-format-standard,ajax_fade,page_not_loaded,,vertical_menu_enabled,side_area_uncovered_from_content,qode-theme-ver-11.0,qode-theme-bridge,wpb-js-composer js-comp-ver-5.0.1,vc_responsive

Buscar un registro en Access 2003

Buscar 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:
Sin comentarios

Deja un comentario

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
A %d blogueros les gusta esto: