valor de un txt. ¿¿¿¿que hago mal.......
Publicado por maria (3 intervenciones) el 18/09/2005 12:24:45
me ha costado mucho hacer esto: (así entendeis mi nivel)
si no existe un dato en un cuadro combinado el mensaje de error lo aprobecho para abrir otro formulario (trabajador) donde poder dar de alta al susodicho.
pero no consigo que el cuadro de texto del formulario nuevo(trabajador) reciba el DNI del primer formulario.
Private Sub Cuadro_combinado51_NotInList(NewData As String, Response As Integer)
Dim strMsg As String, txtNombreDoc As String
txtNombreDoc = "TRABAJADOR1"
Response = acDataErrContinue
strMsg = "Vamos a añadir el DNI:- " _
& NewData
MsgBox strMsg
DoCmd.OpenForm txtNombreDoc, , , , , , Form_TRABAJADOR1.DNI.SetFocus = NewData
End Sub
eso de ..Form_TRABAJADOR1.DNI.SetFocus = NewData debe estar mal, pero ya estoy mareada...
graciassssssss
si no existe un dato en un cuadro combinado el mensaje de error lo aprobecho para abrir otro formulario (trabajador) donde poder dar de alta al susodicho.
pero no consigo que el cuadro de texto del formulario nuevo(trabajador) reciba el DNI del primer formulario.
Private Sub Cuadro_combinado51_NotInList(NewData As String, Response As Integer)
Dim strMsg As String, txtNombreDoc As String
txtNombreDoc = "TRABAJADOR1"
Response = acDataErrContinue
strMsg = "Vamos a añadir el DNI:- " _
& NewData
MsgBox strMsg
DoCmd.OpenForm txtNombreDoc, , , , , , Form_TRABAJADOR1.DNI.SetFocus = NewData
End Sub
eso de ..Form_TRABAJADOR1.DNI.SetFocus = NewData debe estar mal, pero ya estoy mareada...
graciassssssss
Valora esta pregunta
0