Subformulario de búsqueda
Tengo creado un formulario denominado embarcaciones. Ahora he creado un formulario llamado búsqueda de embarcaciones en el cual le introduzco varios parámetros y el resultado me los pone en un subformulario. Este subformulario está creado a partir de una consulta. Ahora he creado un botón de comando que al selleccionar un registro del subformulario quiero que se abra la pantalla de Embarcciones y me muestre los datos de la embarcación.
Este último punto no me sale. ¿Cómo se puede hacer?
Este último punto no me sale. ¿Cómo se puede hacer?
1 Respuesta
Respuesta
1
Ojo tiene que ser un campo relacionado ejemplo
Tienes que abrir la ajenda para modificar un cliente que se encuentra en la tabla facturación
Bueno
Haces lo mismo asta relacionar
En el form facturación existe el campo [nombre]y en la egenda también
Así si le das clic al botón busca en la agenda el nombre y listo lo abre directo para modificarlo
Tienes que abrir la ajenda para modificar un cliente que se encuentra en la tabla facturación
Bueno
Haces lo mismo asta relacionar
En el form facturación existe el campo [nombre]y en la egenda también
Así si le das clic al botón busca en la agenda el nombre y listo lo abre directo para modificarlo
Ojo
Para buscar un registro del subformulario tienes que primero seleccionarlo y luego aplastar el botón de búsqueda
Para buscar un registro del subformulario tienes que primero seleccionarlo y luego aplastar el botón de búsqueda
Muy fácil
1-Pega un botón en le subf
2-Te aparece una pantalla
3-En el cuadro que esta al lado izq selecicona operación con formularios
4-Y en el derecho abrir formulario
5-Dale siguiente y te aparece los formularios que tienes
6-Selecciona el formulario que desaeas abrir
7-Dale siguiente
8-Te parece dos opciones
9-Puntea el que dice abrir formulario y buscar los datos específicos que se van a mostrar
10-dale siguiente y te aparece un sin fin de registro corect¡
11-bueno ahí te aparece las dos tablas si lo que tienes que hacer es que por que campo lo vas a relacionar
1-Pega un botón en le subf
2-Te aparece una pantalla
3-En el cuadro que esta al lado izq selecicona operación con formularios
4-Y en el derecho abrir formulario
5-Dale siguiente y te aparece los formularios que tienes
6-Selecciona el formulario que desaeas abrir
7-Dale siguiente
8-Te parece dos opciones
9-Puntea el que dice abrir formulario y buscar los datos específicos que se van a mostrar
10-dale siguiente y te aparece un sin fin de registro corect¡
11-bueno ahí te aparece las dos tablas si lo que tienes que hacer es que por que campo lo vas a relacionar
La explicación la entiendo. El subformulario es una hoja de datos pero el botón está en el formulario padre y no quiero que este en el subformulario. El subformulario está creado a partir de una consulta de la tabla embarcaciones. Perdona si no me he explicado con claridad.
Saludos
Saludos
Nomas copea esto y pégalo cambias los nombres que te indico
Espero que te sirva
No olvides valorar
'-------------------------
Private Sub Comando39_Click()
On Error GoTo Err_Comando39_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "nombre del formulario que vas a abrir"
stLinkCriteria = "[nombre del campo relacionado del formulario que vas a abrir]=" & Form_nombre del subformulario.campo del subformulario
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando39_Click:
Exit Sub
Err_Comando39_Click:
MsgBox Err.Description
Resume Exit_Comando39_Click
End Sub
------------------------------
quedaria de esta forma
Private Sub Comando39_Click()
On Error GoTo Err_Comando39_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "GEYLORD_DET_CAPTURA"
stLinkCriteria = "[CONSECUTIVO]=" & Form_GEYLORD_DET.CONSECUTIVO
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando39_Click:
Exit Sub
Err_Comando39_Click:
MsgBox Err.Description
Resume Exit_Comando39_Click
End Sub
Espero que te sirva
No olvides valorar
'-------------------------
Private Sub Comando39_Click()
On Error GoTo Err_Comando39_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "nombre del formulario que vas a abrir"
stLinkCriteria = "[nombre del campo relacionado del formulario que vas a abrir]=" & Form_nombre del subformulario.campo del subformulario
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando39_Click:
Exit Sub
Err_Comando39_Click:
MsgBox Err.Description
Resume Exit_Comando39_Click
End Sub
------------------------------
quedaria de esta forma
Private Sub Comando39_Click()
On Error GoTo Err_Comando39_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "GEYLORD_DET_CAPTURA"
stLinkCriteria = "[CONSECUTIVO]=" & Form_GEYLORD_DET.CONSECUTIVO
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando39_Click:
Exit Sub
Err_Comando39_Click:
MsgBox Err.Description
Resume Exit_Comando39_Click
End Sub