MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Form e Impressão Ref. Cruzada

    avatar
    alantb
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 215
    Registrado : 25/07/2017

    [Resolvido]Form e Impressão Ref. Cruzada Empty [Resolvido]Form e Impressão Ref. Cruzada

    Mensagem  alantb 22/3/2021, 19:00

    Olá, baixei um exemplo, acho que foi aqui do forum mesmo,  de Relatório com formulário e Referência Cruzada, só que antes de tentar implementar em outro sistema que estou finalizando tava testando em um bd separado para poder entender como funciona. Entretanto tá dando "Erro em tempo de execução 91:  Variavel do Objeto ou Variavel do Bloco With não foi Definida". Nas Referências em Ferramentas do VBA do exemplo que baixei estão iguais ao BD de teste que estou usando. O erro aponta de saída para essa linha:

    As variáveis na parte superior do código do formulário estão assim:

    Option Compare Database

    Const conTotalColumns = 1
    Dim dbsReport As DAO.Database
    Dim rstReport As DAO.Recordset
    Dim intColumnCount As Integer
    Dim lngRgColumnTotal(1 To conTotalColumns) As Long
    Dim lngReportTotal As Long

    Private Sub CabeçalhoDoRelatório_Format(Cancel As Integer, FormatCount As Integer)

    rstReport.MoveFirst ' AQUI O ERRO DESTACA EM AMARELO
    InitVars
    End Sub


    Bom, como trata-se de um bd bem complexo de analisar em poucas linhas, segue cópia em anexo para os colegas poderem verificar como está ficando minha adaptação. Para testar:

    1º - Executar o Form: frmAbreTotalPedido (sem inserir datas), dai abre o frmTotalPedido com as informações;
    2º - No frmTotalPedido clicar no botão Imprimir, nessa hora dá o ERRO.

    Para testar NÃO estou tentando filtrar por data ainda, estou tentando imprimir todos os dados.

    Agradeço.

    ALAN
    Anexos
    [Resolvido]Form e Impressão Ref. Cruzada AttachmentRelRefCruzada.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (236 Kb) Baixado 5 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1396
    Registrado : 13/12/2016

    [Resolvido]Form e Impressão Ref. Cruzada Empty Re: [Resolvido]Form e Impressão Ref. Cruzada

    Mensagem  Alexandre Fim 22/3/2021, 20:53

    Alan,

    Para mover para o primeiro registro (rstReport.MoveFirst), o recordset tem que estar aberto em algum momento.

    Att,


    Fim
    avatar
    alantb
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 215
    Registrado : 25/07/2017

    [Resolvido]Form e Impressão Ref. Cruzada Empty Re: [Resolvido]Form e Impressão Ref. Cruzada

    Mensagem  alantb 23/3/2021, 00:41

    Alexandre, acho que a abertura do recordset está no trecho abaixo:

    Private Sub Report_Open(Cancel As Integer)
    Dim rstReport As dao.Recordset

    Dim intX As Integer
    Dim qdf As QueryDef
    Dim frm As Form

    Set dbsReport = CurrentDb
    'Set frm = Forms!frmAbreTotalPedido

    Set qdf = dbsReport.QueryDefs("Consulta2")

    'qdf.Parameters("Forms!frmAbreTotalPedido!txtDe") _
    '= frm!txtDe
    'qdf.Parameters("Forms!frmAbreTotalPedido!txtAte") _
    '= frm!txtAte

    Set rstReport = qdf.OpenRecordset() ' AQUI ESTÁ ABRINDO
    intColumnCount = rstReport.Fields.Count


    End Sub

    ALAN
    avatar
    alantb
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 215
    Registrado : 25/07/2017

    [Resolvido]Form e Impressão Ref. Cruzada Empty Re: [Resolvido]Form e Impressão Ref. Cruzada

    Mensagem  alantb 31/3/2021, 13:29

    Galera, vou encerrar por aqui. De momento resolvi não utilizar esse tipo de exibição de dados direto no formulário. Em outra ocasião vou estuda-lo melhor para usa-lo sem problemas. Alexandre, obrigado pela atenção. Até mais...!!!

    ALAN



































    Conteúdo patrocinado

    [Resolvido]Form e Impressão Ref. Cruzada Empty Re: [Resolvido]Form e Impressão Ref. Cruzada

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/5/2021, 13:56