Visual Basic - Ayuda Modificar

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda Modificar

Publicado por Víctor (12 intervenciones) el 14/08/2007 06:59:56
Hola, necesito ayuda.

Tengo un formulario, desde donde guardo datos a una BD Access, y hasta ahí no tengo problemas, pero cuando edito un dato ingresado y le hago midificaciones, al dar al boton guardar me da un error de TablaLuz Update

Private Sub CmdEditar_Click()
Dim Buscar
Dim RESP As Integer
Buscar = InputBox("Nº DE CLIENTE A BUSCAR")
TablaLuz.Index = ("indice")
TablaLuz.Seek "=", Buscar
If Not TablaLuz.NoMatch Then
VerCampos
Else
RESP = MsgBox("Si no recuerda el Nº de Cliente" & vbCrLf & "¿Quiere Buscarlo en Clientes?", vbQuestion + vbYesNo + vbDefaultButton1)
If RESP = 6 Then
GAS1.Show
End If
End If
End Sub
____________________________________________________________________

Private Sub CmdGuardar_Click()
TablaLuz.Index = ("indice")
TablaLuz.Seek "=", txCodigo
If Not TablaLuz.NoMatch Then
MsgBox "Ya existe un registro con este Codigo", vbInformation, "Guardar"
Exit Sub
Else
TablaLuz.AddNew
TablaLuz("CLIENTE") = txCliente
TablaLuz("MEDIDOR") = txMedidor
TablaLuz("PROPIETARIO") = txPropietario
TablaLuz("RUT") = txRut
TablaLuz("DIRECCION") = txDireccion
TablaLuz("NUMERO") = txNumero
TablaLuz("LOTEO") = txLoteo
TablaLuz("FECHA") = txEntrega
TablaLuz("CONSUMO") = txConsumo
TablaLuz("OBRA") = TxObra

TablaLuz.Update 'EN ESTA LINEA ME DA EL ERROR

End If
txCliente.Text = ""
txMedidor.Text = ""
txPropietario.Text = ""
txRut.Text = ""
txDireccion.Text = ""
txNumero.Text = ""
txLoteo.Text = ""
txEntrega.Text = ""
txConsumo.Text = ""
TxObra.Text = ""
txCliente.SetFocus
End Sub

Por favor si alguien me puede ayudar, le agradezco desde ya.

Víctor
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda Modificar

Publicado por Pedro Luis (878 intervenciones) el 14/08/2007 09:46:57
No dices que código de error da, lo cual ayuda bastante, pero de todas formas está claro que intentas introducir algo en un campo que no es correcto, un texto en un campo numerico, una fecha no valida, los nulos también suelen dar problemas.
Ejecuta paso a paso para cazar el error, o comenta algunas lineas para cazar la mala.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda Modificar

Publicado por Víctor (12 intervenciones) el 14/08/2007 14:38:37
Gracias por su atención

Me da el error '3022' en tiempo de ejecución
aparte me hace referencia al indice y que estaría ingresando datos duplicados.

Está claro que los registros de cada textbox, ya fueron ingresados sin problemas, y cuando uso el boton editar para traerlos al formulario, tampoco me da problemas, El problema es que si hago algun cambio a estos datos y los quiero grabar o sea modifcar sin crear uno nuevo.

Estoy hace 1 mes, tratando de crear un miniprograma, y casi todos los códigos lo he adaptado.

Gracias, Pedro y nuevo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda Modificar

Publicado por ivan (1039 intervenciones) el 14/08/2007 16:00:56
Es que no estás EDITANDO sino AGREGANDO un registro (AddNew).
De nada (anticipándome)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar