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?
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?