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]Campo não fica oculto

    Compartilhe
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Campo não fica oculto

    Mensagem  toyebom em Sex 26 Dez 2014, 00:13

    Tenho o seguinte código para o botão de imprimir

    Private Sub Comando570_Click()
    On Error GoTo Err_Comando570_Click
    Dim strArquivo As String
    Dim strLocal As String
    Dim bytVias, bytLoop As Byte

     bytVias = InputBox("Quantas vias deseja imprimir? ", "Impressão", 2)
     If bytVias <> "" And bytVias <= 6 Then
       For bytLoop = 1 To bytVias
         If bytLoop = 1 Then MsrVersao = "ORIGINAL"
         If bytLoop = 2 Then MsrVersao = "DUPLICADO"
         If bytLoop = 3 Then MsrVersao = "TRIPLICADO"
         If bytLoop = 4 Then MsrVersao = "QUADRUPLICADO"
         If bytLoop = 5 Then MsrVersao = "QUINTUPLICADO"
         If bytLoop = 6 Then MsrVersao = "SEXTUPLICADO"
    DoCmd.Save
    Select Case MsgBox("COLOCAR CUMPRIMENTOS?", vbInformation + vbYesNoCancel, [001])
    Case vbYes
    DoCmd.OpenReport "OficioNovo", acViewPreview, , "[001] = " & [001]
    DoCmd.Maximize
    strArquivo = Replace(Me!cam7, "/", "_") & " _ " & Me![001] & ".pdf"
    strLocal = CurrentProject.Path & "\Oficios\Oficios Expedidos\" & strArquivo
    DoCmd.OutputTo acOutputReport, "OficioNovo", acFormatPDF, strLocal
       DoCmd.PrintOut
    DoCmd.Close
    Case vbNo
    DoCmd.OpenReport "OficioNovo", acViewPreview, , "[001] = " & [001]
    Reports!OficioNovo!t12.Visible = False
    DoCmd.Maximize
    strArquivo = Replace(Me!cam7, "/", "_") & " _ " & Me![001] & ".pdf"
    strLocal = CurrentProject.Path & "\Oficios\Oficios Expedidos\" & strArquivo
    DoCmd.OutputTo acOutputReport, "OficioNovo", acFormatPDF, strLocal
       DoCmd.PrintOut
    End Select
    Exit_Comando570_Click:
       Exit Sub
    Next
    End If
    Err_Comando570_Click:
       MsgBox Err.Description
       Resume Exit_Comando570_Click
       
    End Sub


    O problema é o que está a negrito, o campo t12 fica sempre visivel e quero que ao clicar não ele fique oculto.


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

    Pina
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 349
    Registrado : 19/02/2011

    Re: [Resolvido]Campo não fica oculto

    Mensagem  Pina em Sex 26 Dez 2014, 08:24

    Bom dia
    Já tentou nas propriedades desse campo: Mostrar quando= Só no Ecrâ'
    Pina
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4532
    Registrado : 15/03/2013

    Re: [Resolvido]Campo não fica oculto

    Mensagem  ahteixeira em Sex 26 Dez 2014, 09:14

    Olá a todos,
    Experimente ver no modo Pré-visualizar, em certas situações em Vista de Relatório não são aplicadas.

    Abraço
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    Registrado : 29/06/2012

    Re: [Resolvido]Campo não fica oculto

    Mensagem  Noobezinho em Sex 26 Dez 2014, 12:23

    Nuno

    Tenha em mente que um relatório, é um produto final que não aceita modificações, tanto no modo de visualização
    como de impressão. Mesmo sendo visualizado é um relatório, não um formulário.

    Para deixar de exibir ou exibir um controle oculto (invisivel)  no relatório use a propriedade Ao abrir.

    Caso não funcione, temos ainda as propriedade Ao formatar e a propredade Ao impriimir da seção Detalhe.

    Experimente Wink

    []'s

    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4532
    Registrado : 15/03/2013

    Re: [Resolvido]Campo não fica oculto

    Mensagem  ahteixeira em Sex 26 Dez 2014, 13:51

    Olá Noob, bem visto, nem tinha reparado nesse pormenor, continuação de boas festas.
    Nuno, veja mensagem anterior do Noob.
    Abraço
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Campo não fica oculto

    Mensagem  toyebom em Sex 26 Dez 2014, 17:07

    Obrigado a todos, já resolvi, coloco o texto num campo do Formulário e só depois é que previsoalizo o relatório, assim:

    Private Sub Comando570_Click()
    On Error GoTo Err_Comando570_Click
    Dim strArquivo As String
    Dim strLocal As String
    Dim bytVias, bytLoop As Byte

     bytVias = InputBox("Quantas vias deseja imprimir? ", "Impressão", 2)
     If bytVias <> "" And bytVias <= 6 Then
       For bytLoop = 1 To bytVias
         If bytLoop = 1 Then MsrVersao = "ORIGINAL"
         If bytLoop = 2 Then MsrVersao = "DUPLICADO"
         If bytLoop = 3 Then MsrVersao = "TRIPLICADO"
         If bytLoop = 4 Then MsrVersao = "QUADRUPLICADO"
         If bytLoop = 5 Then MsrVersao = "QUINTUPLICADO"
         If bytLoop = 6 Then MsrVersao = "SEXTUPLICADO"
    DoCmd.Save
    Select Case MsgBox("COLOCAR CUMPRIMENTOS?", vbInformation + vbYesNoCancel, [001])
    Case vbYes
    Me.t11 = "Com os melhores cumprimentos"
    DoCmd.RefreshRecord

    DoCmd.OpenReport "OficioNovo", acViewPreview, , "[001] = " & [001]
    DoCmd.Maximize
    strArquivo = Replace(Me!cam7, "/", "_") & " _ " & Me![001] & ".pdf"
    strLocal = CurrentProject.Path & "\Oficios\Oficios Expedidos\" & strArquivo
    DoCmd.OutputTo acOutputReport, "OficioNovo", acFormatPDF, strLocal
       DoCmd.PrintOut
    DoCmd.Close
    Case vbNo
    Me.t11 = ""
    DoCmd.RefreshRecord

    DoCmd.OpenReport "OficioNovo", acViewPreview, , "[001] = " & [001]
    DoCmd.Maximize
    strArquivo = Replace(Me!cam7, "/", "_") & " _ " & Me![001] & ".pdf"
    strLocal = CurrentProject.Path & "\Oficios\Oficios Expedidos\" & strArquivo
    DoCmd.OutputTo acOutputReport, "OficioNovo", acFormatPDF, strLocal
       DoCmd.PrintOut
    End Select
    Exit_Comando570_Click:
       Exit Sub
    Next
    End If
    Err_Comando570_Click:
       MsgBox Err.Description
       Resume Exit_Comando570_Click
       
    End Sub


    Se não dá duma maneira, há que desenrascar de outra Razz


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

      Data/hora atual: Seg 20 Nov 2017, 15:33