Ayuda con Formulario y dbgrid
Que tal tengo el siguiente problema espero me pueda ayudar.
Tengo dos el formulario 1 con datos de expedientes y dos textbox
enlazados al segundo formulario 2, los campos son 2 IDEncargado y Encargado
el problema surge que al seleccionar el encargado en formulario 1 si me pasa
los datos al formulario 1, pero me modifica los datos de la tabla dos
le pongo el código para ver si estoy haciendo algo mal
Private Sub DBGrid1_DblClick()
frmregistro.txtencargado.Text = DBGrid1.Columns(0)
frmregistro.txtresponsable.Text = DBGrid1.Columns(1)
Hide
End Sub
Private Sub dbgrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
DBGrid1.MarqueeStyle = dbgHighlightRow
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
ans = MsgBox("Quirese Salir del Formulario?", vbYesNo + vbQuestion, "Confirmar")
If ans = vbYes Then
Unload Me
End If
End Sub
En el formulario 1 tengo un textbox con el IDEncargado y si lo coloca correcto pero
modifica la tabla 2
La estructura de la Base de Datos
Tabla 1
IDCorrespondencia
Novolante
Nooficio
Fechaoficio
IDEncargado
Tabla 2
IDEncargado
Encargado
Teléfono
Cel
Dirección
Tengo dos el formulario 1 con datos de expedientes y dos textbox
enlazados al segundo formulario 2, los campos son 2 IDEncargado y Encargado
el problema surge que al seleccionar el encargado en formulario 1 si me pasa
los datos al formulario 1, pero me modifica los datos de la tabla dos
le pongo el código para ver si estoy haciendo algo mal
Private Sub DBGrid1_DblClick()
frmregistro.txtencargado.Text = DBGrid1.Columns(0)
frmregistro.txtresponsable.Text = DBGrid1.Columns(1)
Hide
End Sub
Private Sub dbgrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
DBGrid1.MarqueeStyle = dbgHighlightRow
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
ans = MsgBox("Quirese Salir del Formulario?", vbYesNo + vbQuestion, "Confirmar")
If ans = vbYes Then
Unload Me
End If
End Sub
En el formulario 1 tengo un textbox con el IDEncargado y si lo coloca correcto pero
modifica la tabla 2
La estructura de la Base de Datos
Tabla 1
IDCorrespondencia
Novolante
Nooficio
Fechaoficio
IDEncargado
Tabla 2
IDEncargado
Encargado
Teléfono
Cel
Dirección
1 Respuesta
Respuesta de caerices
1