No coinciden los tipos
Publicado por Jaime (72 intervenciones) el 11/08/2017 19:42:42
Tengo un formulario con un campo que me muestra el id del operario, nombre, puesto y teléfono, y tengo un botón de Modificar en el cual compara todos los datos para ver si se modificó algo y si es así actualice el campo en la tabla, todo esto quiero que lo haga comparando el id del operario el cual es un campo de auto numeración, al momento de correr el código me dice que no coinciden los tipos en la expresión de criterios, la verdad no se que onda, a penas estoy iniciandome en esto. Sospecho que es por los valores que contiene el campo Cid que es el que muestra el id del operario.
Les dejo el código a como lo tengo:
Espero y puedan ayudarme, y no se si me supe explicar.
Les dejo el código a como lo tengo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Modificar_Click()
'Declaro variables
Dim Buscarnombre As String
Dim Buscarpuesto As String
Dim Buscartelefono As String
'Asigno los datos
Buscarnombre = Nz(DLookup("Operario", "Personal", "Id='" & Me.Cid.Value & "'"), "") 'Al mostrar el error me ubica en esta línea
Buscarpuesto = Nz(DLookup("Puesto", "Personal", "Id='" & Me.Cid.Value & "'"), "")
Buscartelefono = Nz(DLookup("Numerotelefonico", "Personal", "Id='" & Me.Cid.Value & "'"), "")
'Comparo y actualizo
If Not Me.Nombre.Value = Buscaroperario Then
DoCmd.RunSQL "Update Personal SET Operario='" & Me.Nombre & "' Where Id=" & Me.Cid & ""
Else
If Not Me.puesto.Value = Buscarpuesto Then
DoCmd.RunSQL "Update Personal SET Puesto='" & Me.puesto & "' Where Id=" & Me.Cid & ""
Else
If Not Me.telefono.Value = Buscartelefono Then
DoCmd.RunSQL "Update Personal SET Numerotelefonico='" & Me.telefono & "' Where Id=" & Me.Cid & ""
Else
MsgBox "No hay datos por modificar", vbInformation + vbOKOnly, "Si modificación"
End If
End If
End If
End Sub
Espero y puedan ayudarme, y no se si me supe explicar.
Valora esta pregunta
0
