Mira pego el codigo de donde me sale el error !
Private Sub cmd_Click()
On Error GoTo Error
frmBuscar.Show vbModal
If MsgBox("¿Desea Cambiar El Cliente?", vbCritical + vbYesNo) = vbYes Then
If idCliente = 0 Or tIndex = 0 Then Exit Sub
Call db1.updCliente(tIndex, idCliente)
MsgBox "El Cliente a sido cambia con exito", vbInformation
End If
Call SetData(tIndex)
Exit Sub
Error:
MsgBox "Error", vbInformation
End Sub
el tema es que no veo el error...
El Procedimiento es el siguiente :
Tengo una variable global idcliente, cuando abro el form frmBuscar, al cerrarse queda almacenado el idcliente.
El db1.updCliente ejecuta una consulta SQL.
El SetData ejecuta otra consulta SQL para mostrar los datos del cliente.
para mi no es error de codigo, porque en la pc que estoy desarrollando el programa me anda bien, el tema es cuando voy a otra PC ... hay sale el error! (Algun run-time ?)
Gracias!
Mostrar Mensajes
