Dim dbs As Database
Dim qdf As QueryDef
Set dbs = OpenDatabase("C:\Mis documentos\Documentacion Local\Base Clientes\Base Clientes.mdb")
dbs.Execute "UPDATE Clientes SET ID = ID " & ",Empresa = " _
& Me.empnueva & ",Contacto=" & Me.contnuevo & ",TelefonoComercial = " _
& Me.telnuevo & ",Celular=" & Me.celnuevo & ",[Domicilio] = " _
& Me.domnuevo & ",[Localidad]= " & Me.locnuevo & ",[CodigoPostal] = " _
& Me.codnuevo & ",[Provincia] = " & Me.provnuevo & ",[email] = " _
& Me.emailnuevo & ",[Observaciones] = " & Me.obsnuevo & _
" WHERE " & Me.empnueva & " <> [Empresa];"
dbs.Close
Muchas Gracias






Mode Lineal
