Error de Sintasis

[juplagon]

Hola! Tengo una tabla en acces y todo va bien, menos editar. Me da error de sintasis en la funcion UPDATE y me gustaria que me giaran ya que no se que poner en el "Where"

Aqui dejo el codigo de update.
cnn.Execute "update Clientes set nom='Text1(1)',ap='Text1(2)',dni='Text1(3)',dir='T ext1(4)',cp='Text1(5)',loc='Text1(6)',pro='Text1(7 )',tel1='Text1(8)',tel2='Text1(9)',mov1='Text(10)' ,mov2='Text(11)',fax='Text(12)', Where nc=nc'"

La tabla se llama Clientes, y el primer campo es nc, pero no se como cambiarlo porque solo veo ejemplos con "id".

Un Saludo.

[Gakex]

supongo que nc se refiere a numero de cliente y es un campo que tienes en esta misma tabla, pero no se modifica porque es autoincrementado por access...

ah creo que es la coma antes del where
^^

pero este campo nc ya deberia de existir antes de actualizarlo en la base de datos

[juplagon]

Iniciado por Gakex

supongo que nc se refiere a numero de cliente y es un campo que tienes en esta misma tabla, pero no se modifica porque es autoincrementado por access...

ah creo que es la coma antes del where
^^

pero este campo nc ya deberia de existir antes de actualizarlo en la base de datos

Hola! Muchas gracias por tu respuesta. Nc es el numero de cliente. El problema creo que es que el campo del formulario "editar" se llama nc y en la tabla tambien se llama nc. Todos los campos los tengo puestos como texto (si sirve, la base de datos esta creada con Access 2000) y no es autoincrementada porque tengo un programa de gestion y quiero que tengan la misma numeracion, por lo que es manual.

He probado la coma y tampoco.
Muchas gracias
Un Saludo.

[Kruzado]

lo primero que salta a la visa es que al final de la sentencia where termina en '", o sea tienes una cremilla demas y tambien te falta separar las cadenaslo que tu debes hacer es algo como esto :
cnn.Execute "update Clientes set nom='" & Text1(1) & "',ap='" & Text1(2) & " ',dni='" & Text1(3) & "',dir='" & T ext1(4) & "',cp='" & Text1(5) & "',loc='" & Text1(6) & "',pro='" & Text1(7 )& "',tel1=" & 'Text1(8) & "',tel2='" & Text1(9) & "',mov1='" & Text(10) & "' ,mov2='" & Text(11) & "',fax='" & Text(12) & "', Where nc='" & nc & "'"

se entiende???? trata de analizar y no solo copiar y pegar, saludos

[juplagon]

Muchas gracias por el codigo. Lo pongo y me da error tel2='" & Text1(9) & "' diciendo que el procedimiento sub o funcion no definida. Si boroo esa linea aparece la anterior, y asi susesivamente. Esto de editar no sabia que iba a ser tan dificil. :)
Un Saludo.

[Kruzado]

te falla con todos??? si es asi, revisa el nobre de text1(x), sino text1 esta dentro de un arreglo... o sea text1(0) hasta text1(x), comprueba que el text1(9), text1(10), text1(11).... text1(x), existan en tu programa, sino prueba con text1(x).text

[juplagon]

Muchas gracias por contestar. Ya no esta ese problema. Ahora hay otro: error de sintasis en la funcion update. Dejo el codigo del boton editar y el de update:

Private Sub Editar()

Dim i As Integer
' verifica que hay datos en el ListView y que hay uno seleccionado
If (lv.ListItems.Count = 0) Then
MsgBox "No hay ningún regisro para editar", vbInformation
Exit Sub
End If
If (lv.SelectedItem Is Nothing) Then
MsgBox "Selecciona previamente un registro para poder editarlo", vbInformation
Exit Sub
End If

With fmeditar
' obtiene el elemento seleccionado
.nc = lv.SelectedItem.Text
For i = 1 To 12
.Text1(i).Text = lv.SelectedItem.ListSubItems(i).Text

Next
.abcd = lv.SelectedItem.Text
.ACCION = editar_registro


.Show vbModal


End With
End Sub

[Kruzado]

y el update? y el codigo ke pegaste... donde marca el error???

[juplagon]

Update:

cnn.Execute "update Clientes set nom='" & Text1(1).Text & "',ap='" & Text1(2).Text & "',dni='" & Text1(3).Text & "',dir='" & Text1(4).Text & "',cp='" & Text1(5).Text & "',loc='" & Text1(6).Text & "',pro='" & Text1(7).Text & "',tel1='" & Text1(8).Text & "',tel2='" & Text1(9).Text & "',mov1='" & Text1(10).Text & "' ,mov2='" & Text1(11).Text & "',fax='" & Text1(12).Text & "', Where nc='" & nc & "'"

He seguido la ejecucion con F8 y llega a la linea del update y despues al error.

[Kruzado]

efectivamente es un error de sintaxis, saca la coma que esta antes de where y asi debiera quedar listo

cnn.Execute "update Clientes set nom='" & Text1(1).Text & "',ap='" & Text1(2).Text & "',dni='" & Text1(3).Text & "',dir='" & Text1(4).Text & "',cp='" & Text1(5).Text & "',loc='" & Text1(6).Text & "',pro='" & Text1(7).Text & "',tel1='" & Text1(8).Text & "',tel2='" & Text1(9).Text & "',mov1='" & Text1(10).Text & "' ,mov2='" & Text1(11).Text & "',fax='" & Text1(12).Text & "' Where nc='" & nc &

[juplagon]

Muchas gracias!! Tema cerrado.