Too Few Parameters
Publicado por Ramiro (2 intervenciones) el 29/08/2006 20:00:28
Alguien sabria decirme porque me tira el error de too few parameters con estas instrucciones de SQL, porque no pude encontrar el error , la cantidad de parametros que tengo en la consulta es la misma cantidad que tengo en la Tabla Clientes, ojala alguno pueda ayudarme.
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
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
Valora esta pregunta


0