ayuda para actualizar tabla
Publicado por jmer1 (14 intervenciones) el 01/07/2004 18:31:37
tengo la necesidad de actualizar 2 tablas cuando registro mis datos en un formulario, los campos a actualizar son tecnico y un campo de verificacion, para lo cual tengo este codigo
Private Sub Proveedores_Exit(Cancel As Integer)
Dim a As Byte
a = DCount("proveedores", "pruebas2", "[proveedores]=[forms]![Pruebas]![proveedor]")
If a = 0 Then
DoCmd.RunSQL "Insert Into Pruebas2 (proveedores)values(proveedor)"
End If
End Sub
el cual unicamente me actualiza el campo tecnico y no el de verificacion, alguien querra echarme una mano, gracias
Private Sub Proveedores_Exit(Cancel As Integer)
Dim a As Byte
a = DCount("proveedores", "pruebas2", "[proveedores]=[forms]![Pruebas]![proveedor]")
If a = 0 Then
DoCmd.RunSQL "Insert Into Pruebas2 (proveedores)values(proveedor)"
End If
End Sub
el cual unicamente me actualiza el campo tecnico y no el de verificacion, alguien querra echarme una mano, gracias
Valora esta pregunta


0