Ir a formulario seguneleccion de un campo combo
Publicado por Nata (1 intervención) el 29/09/2011 16:38:59
Muy buenas. Soy un poco novata en esto de Access y quiero que alguien me ayude.
Quisiera con un clic de botón, abrir un formulario segun la eleccion del campo de un combo y filtrara tambien un campo Id. Con este código puesto en el evento de clic de botón ahora abro el formulario por su nombre y filtro luego por el Id de un campo de texto. Ahora quisiera, que el nombre del formulario me lo cogiera de un combo y ademas tambien me siguiera filtrando el campo Idnumexp. Que tendria que hacer. Muchas gracias
Private Sub Comando31_Click()
On Error GoTo Err_Comando31_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Ciencias"
stLinkCriteria = "[Idnumexp]=" & "'" & Me![Idnumexp] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando31_Click:
Exit Sub
Err_Comando31_Click:
MsgBox Err.Description
Resume Exit_Comando31_Click
End Sub
Quisiera con un clic de botón, abrir un formulario segun la eleccion del campo de un combo y filtrara tambien un campo Id. Con este código puesto en el evento de clic de botón ahora abro el formulario por su nombre y filtro luego por el Id de un campo de texto. Ahora quisiera, que el nombre del formulario me lo cogiera de un combo y ademas tambien me siguiera filtrando el campo Idnumexp. Que tendria que hacer. Muchas gracias
Private Sub Comando31_Click()
On Error GoTo Err_Comando31_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Ciencias"
stLinkCriteria = "[Idnumexp]=" & "'" & Me![Idnumexp] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando31_Click:
Exit Sub
Err_Comando31_Click:
MsgBox Err.Description
Resume Exit_Comando31_Click
End Sub
Valora esta pregunta


0