MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Subformulário

    Compartilhe
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    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.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9282
    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


    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

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

    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.]
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    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.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Subformulário

    Mensagem  JPaulo em Qua 13 Ago 2014, 15:19

    Reports!.........


    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

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

    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.]
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3383
    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!
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    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: Qui 29 Jun 2017, 03:13