Buenas tardes amigo, primero q nada quiero felicitarte por los video tutoriales, son muy buenos, en este momento estoy en el Curso Visual Basic 6 - VT16: Relacionando Tablas - Mantenimiento Completo ... y tengo un error cuando estoy haciendo el codigo del boton guardar. Estoy haciendo los mismo pasos que tu, y estoy utilizando los mismos campos que tu, la primera parte del boton guardar que se refiere a guardar nuevos clientes me va bien pero cuando intento guardar un usuario modificado me da error en la siguiente linea: .Find "codigoclientes='" & Trim(GrillaClientes.Columns(0).Text) & "'"
aqui te envio toda la programacion del boton guardar para ver si me puedes ayudar un poco mas
Private Sub cmdGrabar_Click()
If txtNombres.Text = "" Then MsgBox "El campo Nombres esta vacío", vbInformation, "aviso": txtNombres.SetFocus: Exit Sub
If txtApellidos.Text = "" Then MsgBox "El campo Apellidos esta vacío", vbInformation, "aviso": txtApellidos.SetFocus: Exit Sub
If txtDireccion.Text = "" Then MsgBox "El campo Direccion esta vacío", vbInformation, "aviso": txtDireccion.SetFocus: Exit Sub
If txtTelefono.Text = "" Then MsgBox "El campo Telefono esta vacío", vbInformation, "aviso": txtTelefonos.SetFocus: Exit Sub
If txtcorreo.Text = "" Then MsgBox "El campo Mail esta vacío", vbInformation, "aviso": txtcorreo.SetFocus: Exit Sub
If DTCDistrito.Text = "" Then MsgBox "El campo Distrito esta vacío", vbInformation, "aviso": DTCDistrito.SetFocus: Exit Sub
If MODI = False Then
With RsClientes
.Requery
.AddNew
!Nombres = txtNombres.Text
!Apellidos = txtApellidos.Text
!Direccion = txtDireccion.Text
!Telefonos = txtTelefono.Text
!mail = txtcorreo.Text
Dim codigodistrito
With RsDistritos
.Requery
.Find "distrito='" & Trim(DTCDistrito.Text) & "'"
codigodistrito = !codigo
End With
!distrito = codigodistrito
.Update
.Requery
End With
Else
With RsClientes
.Requery
.Find "codigoclientes='" & Trim(GrillaClientes.Columns(0).Text) & "'"
!Nombres = txtNombres.Text
!Apellidos = txtApellidos.Text
!Direccion = txtDireccion.Text
!Telefonos = txtTelefono.Text
!mail = txtcorreo.Text
Dim codigodistrito2
With RsDistritos
.Requery
.Find "distrito='" & Trim(DTCDistrito.Text) & "'"
codigodistrito2 = !codigo
End With
!distrito = codigodistrito2
.UpdateBatch
.Requery
End With
End If
habilitarcajas True
habilitarbotones True, False
cerrargrilla
End Sub
espero me puedas ayudar con esto xq veo el video y he escrito igualito el codigo pero me lanza ese error y no se por que, en verdad te agradezco puedas ayudarme ya que estoy muy interesado en aprender a programar.
Un Saludo
JUAN RODRIGUEZ