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

    Respeito às Regras 100%

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

    [Resolvido]Subformulário

    Mensagem  toyebom em 11/8/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 : 9896
    Registrado : 04/11/2009

    Re: [Resolvido]Subformulário

    Mensagem  JPaulo em 11/8/2014, 09:36

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, 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
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Subformulário

    Mensagem  toyebom em 11/8/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 : 9896
    Registrado : 04/11/2009

    Re: [Resolvido]Subformulário

    Mensagem  JPaulo em 13/8/2014, 15:19

    Reports!.........


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, 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 : 3475
    Registrado : 04/04/2010

    Re: [Resolvido]Subformulário

    Mensagem  Avelino Sampaio em 14/8/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
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Subformulário

    Mensagem  toyebom em 15/8/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


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

    Respeito às Regras 100%

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

    Subformulário

    Mensagem  toyebom em 15/8/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: 24/6/2018, 21:27