Llamar informes y forms desde un combo box
Desde un form mi codigo de un command button para llamar a un informe es:
Private Sub Command8_Click()
On Error GoTo Err_Command8_Click
Dim stDocName As String
stDocName = "ExpenssesMexicoBySupplierAux"
DoCmd.OpenReport stDocName, acPreview
Exit_Command8_Click:
Exit Sub
Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click
End Sub
Me podrias ayudar si a este codigo le agregamos el combo box "Combo35" con 2 opciones, esta del reporte y otra de la forma 'ExpenssesMexicoBySupplier" , que al pulsar el button mande llamar la seleccionada.
Te lo agradesere mucho.
Private Sub Command8_Click()
On Error GoTo Err_Command8_Click
Dim stDocName As String
stDocName = "ExpenssesMexicoBySupplierAux"
DoCmd.OpenReport stDocName, acPreview
Exit_Command8_Click:
Exit Sub
Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click
End Sub
Me podrias ayudar si a este codigo le agregamos el combo box "Combo35" con 2 opciones, esta del reporte y otra de la forma 'ExpenssesMexicoBySupplier" , que al pulsar el button mande llamar la seleccionada.
Te lo agradesere mucho.
