Boa noite, sem palavras muito fácil a explicação, sem enrolação indo direto ao assunto. Vou tentar fazer com o meu programa para abrir alguns formulários e farei outro Menu para abrir relatório. Assim que concluir voltarei aqui para dizer se deu certo.
2 ปีที่แล้ว
Fico feliz que vídeo tenha sido útil e obrigado pelo comentário. Fico aguardando. Sucesso! Abraço!
@ Boa tarde. Em resumo ficou assim no final: Private Sub LstMenu_Click() On Error Resume Next Select Case LstMenu Case "Ano" DoCmd.OpenReport "Ano", acViewPreview Case "CNPJ" DoCmd.OpenReport "CNPJ", acViewPreview Case "CNPJ e Ano" DoCmd.OpenReport "CNPJ e Ano", acViewPreview Case "Geral" DoCmd.OpenReport "Geral", acViewPreview Case "Situação das Notas fiscais" DoCmd.OpenReport "Situação das Notas fiscais", acViewPreview Case "Nota fiscal COM OB" DoCmd.OpenReport "Nota fiscal COM OB", acViewPreview Case "Nota fiscal SEM OB" DoCmd.OpenReport "Nota fiscal SEM OB", acViewPreview Case "Relatório por CNPJ e Nº de NF" DoCmd.OpenReport "Relatório por CNPJ e Nº de NF", acViewPreview Case "Lançar Ordem Bancária" DoCmd.OpenForm "Lançar Ordem Bancária" Case "Consultar Nota fiscal" DoCmd.OpenForm "Consultar Nota fiscal" Case "Editar Empresas" DoCmd.OpenForm "Editar Empresas" Case "Sair do Programa" DoCmd.OpenForm "Sair do Programa" End Select End Sub Mas apenas um detalhe, os relatórios que faço eles ficam em Formato de "RELATÓRIO" nesse formato posso inserir 02 botões um de IMPRIMIR e outro de cancelar. No Formato de "Visualização" não tem como inserir botões. Meu programa é todo fechado ou seja não aceita nada de atalhos, somente aceita o CTRL "P" que é para imprimir no Formato "Visualização" mas vou tentar ainda no Formato de "RELATÓRIO".
segui suas orientações a risca portando a caixa de listagem aparece os itens duplicado, poderia diz o porque isto está acontecendo, desde já muito obrigado
ปีที่แล้ว
Olá @Landisval1! Não sei se você conseguiu resolver, mas fica difícil dar uma opinião sem ver aplicação. Sucesso! Abraço!
Professor fiz para Relatórios. ficou assim On Error Resume Next DoCmd.OpenReport "ANO", acViewPreview DoCmd.OpenReport "CNPJ", acViewPreview DoCmd.OpenReport "CNPJeANO", acViewPreview DoCmd.OpenReport "GERAL", acViewPreview DoCmd.OpenReport "SITUAÇÃO DAS NOTAS", acViewPreview DoCmd.OpenReport "Nota fiscal COM OB", acViewPreview DoCmd.OpenReport "Nota fiscal SEM OB", acViewPreview DoCmd.OpenReport "Relato", acViewPreview End Sub End Sub mas depois que faço o relatório por ANO, ele abre e em seguida abre o de CNPJ e assim por adiante. queria apenas abrir um somente e depois eu abriria outro se necessário. Onde está o erro?
2 ปีที่แล้ว
Mas seu código está escrito para executar um em seguida do outro, use o Select Case. Abraço!
Bom dia tudo bem, quero tirar uma duvida, sobre o menu suspenso, quando tem alguma opção selecionada ele dá erro no visible = false, pode de ajuda tirar esse erro?
ปีที่แล้ว
Boa tarde Edilson! Você precisa postar o código para eu ver. Sucesso! Abraço!
Boa tarde. Em resumo ficou assim no final: Private Sub LstMenu_Click() On Error Resume Next Select Case LstMenu Case "Ano" DoCmd.OpenReport "Ano", acViewPreview Case "CNPJ" DoCmd.OpenReport "CNPJ", acViewPreview Case "CNPJ e Ano" DoCmd.OpenReport "CNPJ e Ano", acViewPreview Case "Geral" DoCmd.OpenReport "Geral", acViewPreview Case "Situação das Notas fiscais" DoCmd.OpenReport "Situação das Notas fiscais", acViewPreview Case "Nota fiscal COM OB" DoCmd.OpenReport "Nota fiscal COM OB", acViewPreview Case "Nota fiscal SEM OB" DoCmd.OpenReport "Nota fiscal SEM OB", acViewPreview Case "Relatório por CNPJ e Nº de NF" DoCmd.OpenReport "Relatório por CNPJ e Nº de NF", acViewPreview Case "Lançar Ordem Bancária" DoCmd.OpenForm "Lançar Ordem Bancária" Case "Consultar Nota fiscal" DoCmd.OpenForm "Consultar Nota fiscal" Case "Editar Empresas" DoCmd.OpenForm "Editar Empresas" Case "Sair do Programa" DoCmd.OpenForm "Sair do Programa" End Select End Sub Mas apenas um detalhe, os relatórios que faço eles ficam em Formato de "RELATÓRIO" nesse formato posso inserir 02 botões um de IMPRIMIR e outro de cancelar. No Formato de "Visualização" não tem como inserir botões. Meu programa é todo fechado ou seja não aceita nada de atalhos, somente aceita o CTRL "P" que é para imprimir no Formato "Visualização" mas vou tentar ainda no Formato de "RELATÓRIO".
2 ปีที่แล้ว
Este último código tem que funcionar, o da postagem anterior realmente daria aquele efeito indesejado. Para testar retire o On Error Resume Next, depois que ficar correto você coloca de volta.
Boa noite, sem palavras muito fácil a explicação, sem enrolação indo direto ao assunto. Vou tentar fazer com o meu programa para abrir alguns formulários e farei outro Menu para abrir relatório. Assim que concluir voltarei aqui para dizer se deu certo.
Fico feliz que vídeo tenha sido útil e obrigado pelo comentário.
Fico aguardando.
Sucesso!
Abraço!
@ Boa tarde. Em resumo ficou assim no final:
Private Sub LstMenu_Click()
On Error Resume Next
Select Case LstMenu
Case "Ano"
DoCmd.OpenReport "Ano", acViewPreview
Case "CNPJ"
DoCmd.OpenReport "CNPJ", acViewPreview
Case "CNPJ e Ano"
DoCmd.OpenReport "CNPJ e Ano", acViewPreview
Case "Geral"
DoCmd.OpenReport "Geral", acViewPreview
Case "Situação das Notas fiscais"
DoCmd.OpenReport "Situação das Notas fiscais", acViewPreview
Case "Nota fiscal COM OB"
DoCmd.OpenReport "Nota fiscal COM OB", acViewPreview
Case "Nota fiscal SEM OB"
DoCmd.OpenReport "Nota fiscal SEM OB", acViewPreview
Case "Relatório por CNPJ e Nº de NF"
DoCmd.OpenReport "Relatório por CNPJ e Nº de NF", acViewPreview
Case "Lançar Ordem Bancária"
DoCmd.OpenForm "Lançar Ordem Bancária"
Case "Consultar Nota fiscal"
DoCmd.OpenForm "Consultar Nota fiscal"
Case "Editar Empresas"
DoCmd.OpenForm "Editar Empresas"
Case "Sair do Programa"
DoCmd.OpenForm "Sair do Programa"
End Select
End Sub
Mas apenas um detalhe, os relatórios que faço eles ficam em Formato de "RELATÓRIO" nesse formato posso inserir 02 botões um de IMPRIMIR e outro de cancelar. No Formato de "Visualização" não tem como inserir botões. Meu programa é todo fechado ou seja não aceita nada de atalhos, somente aceita o CTRL "P" que é para imprimir no Formato "Visualização" mas vou tentar ainda no Formato de "RELATÓRIO".
aula top, continue postando😁👍
segui suas orientações a risca portando a caixa de listagem aparece os itens duplicado, poderia diz o porque isto está acontecendo, desde já muito obrigado
Olá @Landisval1!
Não sei se você conseguiu resolver, mas fica difícil dar uma opinião sem ver aplicação.
Sucesso!
Abraço!
Professor fiz para Relatórios. ficou assim
On Error Resume Next
DoCmd.OpenReport "ANO", acViewPreview
DoCmd.OpenReport "CNPJ", acViewPreview
DoCmd.OpenReport "CNPJeANO", acViewPreview
DoCmd.OpenReport "GERAL", acViewPreview
DoCmd.OpenReport "SITUAÇÃO DAS NOTAS", acViewPreview
DoCmd.OpenReport "Nota fiscal COM OB", acViewPreview
DoCmd.OpenReport "Nota fiscal SEM OB", acViewPreview
DoCmd.OpenReport "Relato", acViewPreview
End Sub
End Sub
mas depois que faço o relatório por ANO, ele abre e em seguida abre o de CNPJ e assim por adiante. queria apenas abrir um somente e depois eu abriria outro se necessário. Onde está o erro?
Mas seu código está escrito para executar um em seguida do outro, use o Select Case.
Abraço!
Show
Valeu mesmo pelo comentário!
Sucesso!
Abraço!
Bom dia tudo bem, quero tirar uma duvida, sobre o menu suspenso, quando tem alguma opção selecionada ele dá erro no visible = false, pode de ajuda tirar esse erro?
Boa tarde Edilson!
Você precisa postar o código para eu ver.
Sucesso!
Abraço!
O modulo só da certo se não tiver nada selecionado.
Se tiver dando o erro posta o código.
Sucesso!
Abraço!
Boa tarde. Em resumo ficou assim no final:
Private Sub LstMenu_Click()
On Error Resume Next
Select Case LstMenu
Case "Ano"
DoCmd.OpenReport "Ano", acViewPreview
Case "CNPJ"
DoCmd.OpenReport "CNPJ", acViewPreview
Case "CNPJ e Ano"
DoCmd.OpenReport "CNPJ e Ano", acViewPreview
Case "Geral"
DoCmd.OpenReport "Geral", acViewPreview
Case "Situação das Notas fiscais"
DoCmd.OpenReport "Situação das Notas fiscais", acViewPreview
Case "Nota fiscal COM OB"
DoCmd.OpenReport "Nota fiscal COM OB", acViewPreview
Case "Nota fiscal SEM OB"
DoCmd.OpenReport "Nota fiscal SEM OB", acViewPreview
Case "Relatório por CNPJ e Nº de NF"
DoCmd.OpenReport "Relatório por CNPJ e Nº de NF", acViewPreview
Case "Lançar Ordem Bancária"
DoCmd.OpenForm "Lançar Ordem Bancária"
Case "Consultar Nota fiscal"
DoCmd.OpenForm "Consultar Nota fiscal"
Case "Editar Empresas"
DoCmd.OpenForm "Editar Empresas"
Case "Sair do Programa"
DoCmd.OpenForm "Sair do Programa"
End Select
End Sub
Mas apenas um detalhe, os relatórios que faço eles ficam em Formato de "RELATÓRIO" nesse formato posso inserir 02 botões um de IMPRIMIR e outro de cancelar. No Formato de "Visualização" não tem como inserir botões. Meu programa é todo fechado ou seja não aceita nada de atalhos, somente aceita o CTRL "P" que é para imprimir no Formato "Visualização" mas vou tentar ainda no Formato de "RELATÓRIO".
Este último código tem que funcionar, o da postagem anterior realmente daria aquele efeito indesejado. Para testar retire o On Error Resume Next, depois que ficar correto você coloca de volta.
Show