Error busqueda registro dlookup
Publicado por Kukuso (1 intervención) el 17/05/2017 11:12:31
Muy buenas:
Tengo un problema con un formulario de búsqueda para encontrar el número de cliente mediante la función DLookup().
Tengo un cuadro de texto independiente llamado txt_cod_cliente y otro donde le mando el registro reg_ctx_cod_cliente.
Ambos son números enteros.
Este es el codigo que he escrito.
Llevo un buen rato miranto y debe haber algo que se me escapa.
El error que siempre me aparece es '-214735267 (80020009)'
Muchas gracias, un saludo.
Tengo un problema con un formulario de búsqueda para encontrar el número de cliente mediante la función DLookup().
Tengo un cuadro de texto independiente llamado txt_cod_cliente y otro donde le mando el registro reg_ctx_cod_cliente.
Ambos son números enteros.
Este es el codigo que he escrito.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub cmd_buscar_Click()
If txt_cod_cliente <> "" Then
Me.reg_ctx_cod_cliente = DLookup("[ID_CLIENTE]", "[Clientes]", "[ID_CLIENTE] = " & Me.txt_cod_cliente.Value)
'
Else
MsgBox "No hay nada escrito para buscar." & _
vbNewLine & "Rellene alguno de los campos." & vbNewLine, vbOKOnly, "ATENCIÓN"
End If
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "No se ha encontrado ningún registro.", vbOKOnly, "Aviso"
Dim i As Control
For Each i In Controls
If i.Name Like "txt*" Then i = Empty
Next
End If
End Sub
Llevo un buen rato miranto y debe haber algo que se me escapa.
El error que siempre me aparece es '-214735267 (80020009)'
Muchas gracias, un saludo.
Valora esta pregunta
0