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,qode-title-hidden,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

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 [/vb]

1 Star2 Stars3 Stars4 Stars5 Stars (No Ratings Yet)
Cargando…
Tags:
No Comments

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