Boa tarde, senhores!
Eu tenho um banco de dados no qual eu dupliquei um formulário.
Um será usado pelo inspetor com apenas poucas opções, outro será usado pelo administrador com todas as opções, inclusive as opções do inspetor.
Qual o meu problema?
Eu criei um OpenReport para que o botão abrisse um relatório com a opção que estivesse selecionada na caixa de combinação.
Como o formulário foi duplicado, copiei e colei alterando o nome, o formulário no qual eu criei o procedimento funciona normalmente. O formulário que foi gerado a partir da cópia e renomeado, quando clicado no botão, chama o botão do formulário original.
Quando o OpenReport não chama o botão do formulário original, dependendo de como eu digito o OpenReport, o relatório abre sem dados, como se não enxergasse a opção que está selecionada na caixa de combinação.
Por exemplo:
Desta forma o programa abre o relatório como se não enxergasse a opção da caixa de combinação.
Private Sub OPEN_BASE_Click()
DoCmd.OpenReport "BASE2", acViewPreview, "BASEFUNCIONAL"
End Sub
Desta forma também abre como da forma acima.
Private Sub OPEN_BASE_Click()
DoCmd.OpenReport "BASE2", acViewPreview
End Sub
Poderiam, por favor, me ajudar nessa?
Grato!
Eu tenho um banco de dados no qual eu dupliquei um formulário.
Um será usado pelo inspetor com apenas poucas opções, outro será usado pelo administrador com todas as opções, inclusive as opções do inspetor.
Qual o meu problema?
Eu criei um OpenReport para que o botão abrisse um relatório com a opção que estivesse selecionada na caixa de combinação.
Como o formulário foi duplicado, copiei e colei alterando o nome, o formulário no qual eu criei o procedimento funciona normalmente. O formulário que foi gerado a partir da cópia e renomeado, quando clicado no botão, chama o botão do formulário original.
Quando o OpenReport não chama o botão do formulário original, dependendo de como eu digito o OpenReport, o relatório abre sem dados, como se não enxergasse a opção que está selecionada na caixa de combinação.
Por exemplo:
Desta forma o programa abre o relatório como se não enxergasse a opção da caixa de combinação.
Private Sub OPEN_BASE_Click()
DoCmd.OpenReport "BASE2", acViewPreview, "BASEFUNCIONAL"
End Sub
Desta forma também abre como da forma acima.
Private Sub OPEN_BASE_Click()
DoCmd.OpenReport "BASE2", acViewPreview
End Sub
Poderiam, por favor, me ajudar nessa?
Grato!