Bom dia companheiros,
Fiz um DB com tabelas, relatórios e formulários. Tenho um formulário principal e nele quero colocar um botão de impressão, só que ao clicar nesse botão me dê a opção de escolher qual relatório quero imprimir, num total de 6 relatórios. Quero isso para evitar de colocar vários botões no formulário.
Já pesguisei aqui e achei uma solução(que está em anexo), entretando quando tento fazer, não dar certo!Póis nesse exemplo só tem dois relatórios e no meu caso tenho 6, quando eu adiciono ou copio os 4 que falta não imprimi.
Pelo que vi é alguma configuração no Campo de marcação no que diz respeito a dados " Valor de Opções", que nesses 4 que inserir não tem.
Sou novo no Acces e necessito de uma força ai dos senhores.
No Botão de imprimir(em anexo), fiz a seguinte modificações no meu DB:
Private Sub Visualizar_Click()
On Error GoTo Err_Visualizar_Click
Dim stDocName As String
Select Case Moldura0
Case 1
stDocName = "Curriculum por Grau de Educação"
DoCmd.OpenReport stDocName, acViewPreview
Case 2
stDocName = "Informações do Contacto de Emergência"
DoCmd.OpenReport stDocName, acViewPreview
Case 3
stDocName = "Lista de Telefones do Curriculum"
DoCmd.OpenReport stDocName, acViewPreview
Case 4
stDocName = "Livro de Endereços de Curriculum"
DoCmd.OpenReport stDocName, acViewPreview
Case 5
stDocName = "Todas os Curriculum"
DoCmd.OpenReport stDocName, acViewPreview
Case 6
stDocName = "Universidade por Tipo"
DoCmd.OpenReport stDocName, acViewPreview
End Select
Exit_Visualizar_Click:
Exit Sub
Err_Visualizar_Click:
MsgBox Err.Description
Resume Exit_Visualizar_Click
End Sub
Fiz um DB com tabelas, relatórios e formulários. Tenho um formulário principal e nele quero colocar um botão de impressão, só que ao clicar nesse botão me dê a opção de escolher qual relatório quero imprimir, num total de 6 relatórios. Quero isso para evitar de colocar vários botões no formulário.
Já pesguisei aqui e achei uma solução(que está em anexo), entretando quando tento fazer, não dar certo!Póis nesse exemplo só tem dois relatórios e no meu caso tenho 6, quando eu adiciono ou copio os 4 que falta não imprimi.
Pelo que vi é alguma configuração no Campo de marcação no que diz respeito a dados " Valor de Opções", que nesses 4 que inserir não tem.
Sou novo no Acces e necessito de uma força ai dos senhores.
No Botão de imprimir(em anexo), fiz a seguinte modificações no meu DB:
Private Sub Visualizar_Click()
On Error GoTo Err_Visualizar_Click
Dim stDocName As String
Select Case Moldura0
Case 1
stDocName = "Curriculum por Grau de Educação"
DoCmd.OpenReport stDocName, acViewPreview
Case 2
stDocName = "Informações do Contacto de Emergência"
DoCmd.OpenReport stDocName, acViewPreview
Case 3
stDocName = "Lista de Telefones do Curriculum"
DoCmd.OpenReport stDocName, acViewPreview
Case 4
stDocName = "Livro de Endereços de Curriculum"
DoCmd.OpenReport stDocName, acViewPreview
Case 5
stDocName = "Todas os Curriculum"
DoCmd.OpenReport stDocName, acViewPreview
Case 6
stDocName = "Universidade por Tipo"
DoCmd.OpenReport stDocName, acViewPreview
End Select
Exit_Visualizar_Click:
Exit Sub
Err_Visualizar_Click:
MsgBox Err.Description
Resume Exit_Visualizar_Click
End Sub
- Anexos
- Exemplo.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (26 Kb) Baixado 18 vez(es)