MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Subformulário

    Compartilhe

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    [Resolvido]Subformulário

    Mensagem  toyebom em Seg 11 Ago 2014, 03:23

    Tenho campos ocultos em subrelatórios, se abrir direto o subrelatório funciona, este é o codigo:

    Código:
    Private Sub Report_Load()
    If Me.Texto149 <> "" Then
    Me.Texto148 = "Alcunha:"
    End If
    If Me.Texto197 <> "" Then
    Me.Texto167 = "Telefone: " & [telef_ID]
    End If
    If Me.Texto198 <> "" Then
    Me.Texto168 = "Telemóvel: " & [telem_ID]
    End If
    If Me.Texto170 <> "" Then
    Me.Texto169 = "Local de Trabalho:"
    End If
    If Me.Texto200 <> "" Then
    Me.Texto171 = "Telefone: " & [telefloctrab_ID]
    End If
    If Me.Texto201 <> "" Then
    Me.Texto172 = "Telemóvel: " & [telemloctrab_ID]
    End If

    If Me.Texto182 <> "" Then
    Me.Texto181 = "NIF:"
    End If
    If Me.Texto184 <> "" Then
    Me.Texto183 = "N.º Seg. Social:"
    End If
    If Me.Texto185 <> "" Then
    Me.Texto186 = "N.º Utente de Saúde:"
    End If
    End Sub

    se abrir outro relatório no qual se encontra o vsubrelatório, já não funciona.
    Tentei assim mas diz que não encontra o subrelatório:

    Código:
    Private Sub Report_Load()
    DoCmd.Maximize
    If Forms!Autoocorrencia_1.Texto149 <> "" Then
    Forms!Autoocorrencia_1.Texto148 = "Alcunha:"
    End If
    If Forms!Autoocorrencia_1.Texto197 <> "" Then
    Forms!Autoocorrencia_1.Texto167 = "Telefone: " & [telef_ID]
    End If
    If Forms!Autoocorrencia_1.Texto198 <> "" Then
    Forms!Autoocorrencia_1.Texto168 = "Telemóvel: " & [telem_ID]
    End If
    If Forms!Autoocorrencia_1.Texto170 <> "" Then
    Forms!Autoocorrencia_1.Texto169 = "Local de Trabalho:"
    End If
    If Forms!Autoocorrencia_1.Texto200 <> "" Then
    Forms!Autoocorrencia_1.Texto171 = "Telefone: " & [telefloctrab_ID]
    End If
    If Forms!Autoocorrencia_1.Texto201 <> "" Then
    Forms!Autoocorrencia_1.Texto172 = "Telemóvel: " & [telemloctrab_ID]
    End If
    If Forms!Autoocorrencia_1.Texto182 <> "" Then
    Forms!Autoocorrencia_1.Texto181 = "NIF:"
    End If
    If Forms!Autoocorrencia_1.Texto184 <> "" Then
    Forms!Autoocorrencia_1.Texto183 = "N.º Seg. Social:"
    End If
    If Forms!Autoocorrencia_1.Texto185 <> "" Then
    Forms!Autoocorrencia_1.Texto186 = "N.º Utente de Saúde:"
    End If
    End Sub

    onde errei?


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Subformulário

    Mensagem  JPaulo em Seg 11 Ago 2014, 09:36

    Se está a falar de relatórios, jamais irá funcionar o Forms!Autoocorrencia_1.Texto149


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Subformulário

    Mensagem  toyebom em Seg 11 Ago 2014, 23:22

    Lol tens razão, Forms é para formulário.

    Já agora, para relatório é o que???


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Subformulário

    Mensagem  JPaulo em Qua 13 Ago 2014, 15:19

    Reports!.........


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: [Resolvido]Subformulário

    Mensagem  Avelino Sampaio em Qui 14 Ago 2014, 09:10

    Olá!

    leia este meu artigo sobre referências que pode te ajudar bastante:

    [Você precisa estar registrado e conectado para ver este link.]

    Bom estudo!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Subformulário

    Mensagem  toyebom em Sex 15 Ago 2014, 19:30

    coloquei da seguinte forma mas não funciona diz que o relatório não está aberto ou não existe:


    Código:
    Private Sub Report_Load()
    DoCmd.Maximize
    If Reports!Autoocorrencia_1.Texto149 <> "" Then
    Reports!Autoocorrencia_1.Texto148 = "Alcunha:"
    End If
    If Reports!Autoocorrencia_1.Texto197 <> "" Then
    Reports!Autoocorrencia_1.Texto167 = "Telefone: " & [telef_ID]
    End If
    If Reports!Autoocorrencia_1.Texto198 <> "" Then
    Reports!Autoocorrencia_1.Texto168 = "Telemóvel: " & [telem_ID]
    End If
    If Reports!Autoocorrencia_1.Texto170 <> "" Then
    Reports!Autoocorrencia_1.Texto169 = "Local de Trabalho:"
    End If
    If Reports!Autoocorrencia_1.Texto200 <> "" Then
    Reports!Autoocorrencia_1.Texto171 = "Telefone: " & [telefloctrab_ID]
    End If
    If Reports!Autoocorrencia_1.Texto201 <> "" Then
    Reports!Autoocorrencia_1.Texto172 = "Telemóvel: " & [telemloctrab_ID]
    End If
    If Reports!Autoocorrencia_1.Texto182 <> "" Then
    Reports!Autoocorrencia_1.Texto181 = "NIF:"
    End If
    If Reports!Autoocorrencia_1.Texto184 <> "" Then
    Reports!Autoocorrencia_1.Texto183 = "N.º Seg. Social:"
    End If
    If Reports!Autoocorrencia_1.Texto185 <> "" Then
    Reports!Autoocorrencia_1.Texto186 = "N.º Utente de Saúde:"
    End If
    End Sub
    Anexos
    Sem Título.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (9 Kb) Baixado 0 vez(es)


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Subformulário

    Mensagem  toyebom em Sex 15 Ago 2014, 20:19

    Ok já consegui resolver, coloquei:

    Código:
    Private Sub Report_Load()
    DoCmd.Maximize
    If Reports![Autoocorrencia]![Autoocorrencia_1]![Texto149] <> "" Then
    Reports![Autoocorrencia]![Autoocorrencia_1]![Texto148] = "Alcunha:"
    End If
    If Reports![Autoocorrencia]![Autoocorrencia_1]![Texto197] <> "" Then
    Reports![Autoocorrencia]![Autoocorrencia_1]![Texto167] = "Telefone: " & Reports![Autoocorrencia]![Autoocorrencia_1]![Texto197]
    End If
    If Reports![Autoocorrencia]![Autoocorrencia_1]![Texto198] <> "" Then
    Reports![Autoocorrencia]![Autoocorrencia_1]![Texto168] = "Telemóvel: " & Reports![Autoocorrencia]![Autoocorrencia_1]![Texto198]
    End If
    If Reports![Autoocorrencia]![Autoocorrencia_1]![Texto170] <> "" Then
    Reports![Autoocorrencia]![Autoocorrencia_1]![Texto169] = "Local de Trabalho:"
    End If
    If Reports![Autoocorrencia]![Autoocorrencia_1]![Texto200] <> "" Then
    Reports![Autoocorrencia]![Autoocorrencia_1]![Texto171] = "Telefone: " & Reports![Autoocorrencia]![Autoocorrencia_1]![Texto200]
    End If
    If Reports![Autoocorrencia]![Autoocorrencia_1]![Texto201] <> "" Then
    Reports![Autoocorrencia]![Autoocorrencia_1]![Texto172] = "Telemóvel: " & Reports![Autoocorrencia]![Autoocorrencia_1]![Texto201]
    End If
    If Reports![Autoocorrencia]![Autoocorrencia_1]![Texto182] <> "" Then
    Reports![Autoocorrencia]![Autoocorrencia_1]![Texto181] = "NIF:"
    End If
    If Reports![Autoocorrencia]![Autoocorrencia_1]![Texto184] <> "" Then
    Reports![Autoocorrencia]![Autoocorrencia_1]![Texto183] = "N.º Seg. Social:"
    End If
    If Reports![Autoocorrencia]![Autoocorrencia_1]![Texto185] <> "" Then
    Reports![Autoocorrencia]![Autoocorrencia_1]![Texto186] = "N.º Utente de Saúde:"
    End If
    End Sub


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

      Data/hora atual: Sab 03 Dez 2016, 15:32