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


2 participantes

    Inserir valor a campo não associado em relatório

    efrain_ben-orion
    efrain_ben-orion
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 28/04/2014

    Inserir valor a campo não associado em relatório Empty Inserir valor a campo não associado em relatório

    Mensagem  efrain_ben-orion 30/7/2014, 13:00

    Pessoal,
    Estou tendo dificuldades em atribuir o valor de uma combo de um formulário em uma caixa de texto de um relatório.
    Tenho um formulário que tem uma caixa de combinação onde eu seleciono um mês para filtrar os registros.
    Após exibir os registros de acordo com o mês selecionado, eu posso imprimir através de um relatório esses registros. No mesmo relatório eu tenho um caixa de texto que deveria exibir o mês que foi selecionado no formulário.
    No entanto, quando tento fazer um comando vba para inserir esse texto, dá o erro: "Você não pode atribuir um valor a este objeto".
    Já tentei de tudo, inclusive teve um tópico pareceido nesse fórum em março do ano passado, mas que não foi resolvido.
    Vejam o que eu já tentei:
    No form:
    Private Sub Imprimir_mês_Click() 'botão que irá abrir o relatório e imprimir os registros filtrados
    ....DoCmd.OpenReport "Diárias_Consulta", acViewPreview
    ....Report_Diárias_Consulta.Mês.Value = Me.Texto155
    End Sub
    ___________
    No relatório:
    Private Sub Report_Open(Cancel As Integer)
    Dim v1 As String
    ....filtro_mês
    ....v1 = Form_Diárias_Consulta.Mês_extenso.Value (Combo no form Diárias_consulta)
    ....Me.txtmes = v1
    End Sub

    O interessante é que o filtro_mês funciona e usando a mesma combo do form:

    Public Function filtro_mês()
    Dim v1 As Variant
    Dim v2 As Variant
    v2 = Form_Diárias_Consulta.Mês_extenso.Value & "/" & Form_Diárias_Consulta.Consulta_Mês_ano

    ....If Form_Diárias_Consulta.Mês_extenso <> "" Then
    ........v1 = "Format(Diárias.Período_de,'mmmm/yyyy') Like '*" & v2 & "*'"
    ....Else
    ........v1 = ""
    ....End If
       
    ....Me.Filter = v1
    ....Me.FilterOn = True
    End Function

    Essa função filtro_mes faz justamente o filtro dos registros que devem aparecer de acordo com o mês e ano selecionados no form.
    Dá certo, e eu já tentei inclusive inserir o valor da variável v2 no txtbox do relatório dentro da função filtro_mês mas dá o mesmo erro.
    Alguém pode me ajudar?


    .................................................................................
    Quanto mais aprendemos, mas fica comprovada a nossa ignorância!
    Uilson Brasil
    Uilson Brasil
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1039
    Registrado : 23/04/2013

    Inserir valor a campo não associado em relatório Empty Re: Inserir valor a campo não associado em relatório

    Mensagem  Uilson Brasil 30/7/2014, 23:09

    Amigo,

    A caixa de texto no relatório deve ser do tipo "Não Acoplada".

    Veja se o nome da caixa não coincide com o nome de um campo fonte do relatório.

    Se for o caso é só fazer as correções.

    Você também poderá colocar o código no evento "ao carregar" de seu relatório.

    Ficaria assim:
    Código:
    Me.Texto155 = Forms!Report_Diárias_Consulta!Mês


    Abraços,
    efrain_ben-orion
    efrain_ben-orion
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 28/04/2014

    Inserir valor a campo não associado em relatório Empty Re: Inserir valor a campo não associado em relatório

    Mensagem  efrain_ben-orion 4/8/2014, 13:15

    Já tentei isso também.
    Ao carregar o relatório "setando" tanto no próprio objeto quanto através de uma variável no código e sempre dá a mesma mensagem: Você não pode atribuir valor a este objeto.
    Quando depuro, e linha é justamente a que associa o valor ao campo.
    O que fiz, foi usar o campo que exibe o período de viagem, que como é uma lista, o relatório usa o primeiro registro da lista, e nesse caso o mês que eu quero.
    Mas isso é uma gambiarra que só deu certo pq usei o campo no relatório, que se não precisasse usá-lo, seria bem complicado.
    Ele também não coincide com nenhum campo do relatório ou do access como date, mês, etc.


    .................................................................................
    Quanto mais aprendemos, mas fica comprovada a nossa ignorância!

    Conteúdo patrocinado


    Inserir valor a campo não associado em relatório Empty Re: Inserir valor a campo não associado em relatório

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 13:34