Access - Codigo Buscador

   
Vista:

Codigo Buscador

Publicado por blas (143 intervenciones) el 10/09/2012 21:39:34
Hola Neckkito.

El combox solo muestra el campo DNI y los dos campos de la tabla son de tipo texto.

Con las modificaciones que me has aconsejado el Código me ha quedado como sigue pero me da error.

Private Sub DNI_AfterUpdate()
On Error GoTo Err_Procedimiento

Dim strDNI As String
Dim strTabla As String
Dim strFiltro As String
Dim vFactura As String

'¿Hay datos válidos ingresados?
strDNI = Trim(Nz(Me.DNI, ""))
vFactura = Me.DNI.Column(1)

If strDNI = "" Then

'limpio los datos
Me.Factura = Null
Me.Post = Null

Else

'defino los datos para realizar la búsqueda de datos
strTabla = "GENERAL"
strFiltro = "DNI = '" & strDNI & "'" And [Factura] = " vFactura"

'obtengo y asigno los datos que me interesan

'Me.Factura = Nz(DLookup("Factura", strTabla, strFiltro), "")
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder