Foro VBATotal
Aprender a programar en Visual Basic
Llenar informacion de un formulario en otro
Cita de jovandy1195-user en 5 de octubre de 2023, 02:53Hola amigos, necesito de su ayuda
En access tengo 2 formularios uno que a travez de un cuadro combinado consulto unformación de un a tabla
Y otro donde tengo una vista de todos los registros que se encuentran en un estatus de pendiente quiero, que al hacer clic en un registro me abra el formulario uno, tengo este codigo ya avanzadoDim sql As String
Dim rs As New ADODB.RecordsetCall Usuario
Search = Me.Numero_de_IM.Value
If IsNull(Search) Then
MsgBox "Sin información que consultar"
End
End IfDoCmd.Close acForm, "1_3 Investigacion de mercado navegacion", acSaveYes
DoCmd.OpenForm "1_1 Investigacion de mercado consulta y modificacion", acNormalsql = "SELECT IM.* from IM where Id = " & (Search) & ""
rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic'Me.Numero_de_IM = rs!Numero_de_IM
'Me.Tipo_de_insumo = rs!Tipo_de_insumo
'Me.Descripcion_del_bien_o_servicio = rs!Descripcion_del_bien_o_servicio
'Me.Estatus = rs!Estatus
'Me.Nota_del_estatus = rs!Nota_del_estatus
'Me.Numero_de_oficio_de_solicitud = rs!Numero_de_oficio_de_solicitudEn donde empiezan las comillas para convertilo en comentario es donde me marca que la equiteta no se encuentra y si, no se encuentra debido a que esa etiqueta no esta en el formulario 1 si no en el 2, hay alguna forma de que me llene los datos del formulario número 2?
Muchas gracias por su apoyo, Saludos.
Hola amigos, necesito de su ayuda
En access tengo 2 formularios uno que a travez de un cuadro combinado consulto unformación de un a tabla
Y otro donde tengo una vista de todos los registros que se encuentran en un estatus de pendiente quiero, que al hacer clic en un registro me abra el formulario uno, tengo este codigo ya avanzado
Dim sql As String
Dim rs As New ADODB.Recordset
Call Usuario
Search = Me.Numero_de_IM.Value
If IsNull(Search) Then
MsgBox "Sin información que consultar"
End
End If
DoCmd.Close acForm, "1_3 Investigacion de mercado navegacion", acSaveYes
DoCmd.OpenForm "1_1 Investigacion de mercado consulta y modificacion", acNormal
sql = "SELECT IM.* from IM where Id = " & (Search) & ""
rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'Me.Numero_de_IM = rs!Numero_de_IM
'Me.Tipo_de_insumo = rs!Tipo_de_insumo
'Me.Descripcion_del_bien_o_servicio = rs!Descripcion_del_bien_o_servicio
'Me.Estatus = rs!Estatus
'Me.Nota_del_estatus = rs!Nota_del_estatus
'Me.Numero_de_oficio_de_solicitud = rs!Numero_de_oficio_de_solicitud
En donde empiezan las comillas para convertilo en comentario es donde me marca que la equiteta no se encuentra y si, no se encuentra debido a que esa etiqueta no esta en el formulario 1 si no en el 2, hay alguna forma de que me llene los datos del formulario número 2?
Muchas gracias por su apoyo, Saludos.
Cita de Administrador en 5 de octubre de 2023, 10:37Hola!
Sube el programa y lo miro.
Saludos.
Hola!
Sube el programa y lo miro.
Saludos.