MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


4 participantes

    [Resolvido]Nome do usuário logado

    avatar
    cantu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 129
    Registrado : 24/03/2012

    [Resolvido]Nome do usuário logado Empty [Resolvido]Nome do usuário logado

    Mensagem  cantu 21/10/2021, 13:48

    Boa tarde,

    Preciso de colocar num relatório o usuário logado e não consigo.
    Nos formulários criei uma label a que dei o nome de "lblNomeUtil" e utilizo o seguinte código "Ao carregar":

    Me.lblNomeUtil.Caption = "" & varNomeUtilizadorLog

    mas no relatórios não está a dar...

    Cumprimentos
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 980
    Registrado : 09/11/2012

    [Resolvido]Nome do usuário logado Empty Re: [Resolvido]Nome do usuário logado

    Mensagem  =>Nois 21/10/2021, 14:15

    coloque a informação em uma caixa de texto simples


    me.suacaixadetexto = varNomeUtilizadorLog


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken

    cantu gosta desta mensagem

    avatar
    cantu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 129
    Registrado : 24/03/2012

    [Resolvido]Nome do usuário logado Empty Re: [Resolvido]Nome do usuário logado

    Mensagem  cantu 21/10/2021, 14:56

    Boa tarde,

    Desculpe a ignorância mas aonde coloco esse código? [Resolvido]Nome do usuário logado 1f627

    Cumprimentos
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 680
    Registrado : 02/10/2011

    [Resolvido]Nome do usuário logado Empty Re: [Resolvido]Nome do usuário logado

    Mensagem  rubenscouto 21/10/2021, 16:37

    insira uma caixa de texto em qualquer parte do seu relatorio, de preferencia, no cabeçalho. agora, no evento "ao carregar" do seu relatorio, coloque a seguinte expressão: me.suacaixadetexto.value = varNomeUtilizadorLog.
    veja se carrega.

    cantu gosta desta mensagem

    avatar
    cantu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 129
    Registrado : 24/03/2012

    [Resolvido]Nome do usuário logado Empty Re: [Resolvido]Nome do usuário logado

    Mensagem  cantu 22/10/2021, 09:57

    Bom dia,

    Continua a não funcionar.
    Eu carrego no botão imprimir e imprime directamente para a impressora mas com o campo de usuário logado em branco.
    O botão "imprimir" tem duas funções: imprime e grava o pdf do documento numa pasta.

    O código que utilizo para imprimir:

    Private Sub BtnTerapImprimir_Click()

    On Error Resume Next

    Dim strDocName As String
    Dim strFilter As String
    Dim strArquivo As String
    Dim strLocal As String


    If MsgBox("Imprimir registo actual?", vbQuestion + vbYesNo, "IMPRIMIR") = vbYes Then
    strDocName = "REL_GTRAT"
    FiltroRelatorioUtente = Me.TxtTerapID
    DoCmd.OpenReport strDocName, , , FiltroRelatorioUtente, acViewPreview

    strArquivo = "\" & Form_FRM_TERAPEUTICA.TxtTerapNome & "\" & "GUIA_TRATAMENTO " & Format(Now, "ddmmyyyy") & ".pdf"
    strLocal = CurrentProject.Path & "\PROCESSOS" & strArquivo
    DoCmd.OutputTo acOutputReport, "REL_GTRAT", acFormatPDF, strLocal
    DoCmd.OutputTo acOutputReport, "REL_GTRAT", acFormatPDF, "C:\Users\hmconpneumoenf\Desktop\marcos\PASTA_01\CRTHM_0.0.5\PROCESSOS" & strArquivo

    End If


    End Sub


    Cumprimentos
    avatar
    cantu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 129
    Registrado : 24/03/2012

    [Resolvido]Nome do usuário logado Empty Re: [Resolvido]Nome do usuário logado

    Mensagem  cantu 22/10/2021, 11:30

    Bom dia,

    Estive a fazer alguns testes e descobri que alterando a linha de código:

    DoCmd.OpenReport strDocName, , , FiltroRelatorioUtente, acViewPreview

    por:

    DoCmd.OpenReport strDocName, acViewPreview, FiltroRelatorioUtente, , acWindowNormal

    Já aparece uma previsão do REL_TRAT o usuário logado mas não imprime.

    Quando o programa estiver pronto até pode aparecer a previsão do REL_TRAT mas como posso imprimir?

    Cumprimentos
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 980
    Registrado : 09/11/2012

    [Resolvido]Nome do usuário logado Empty Re: [Resolvido]Nome do usuário logado

    Mensagem  =>Nois 22/10/2021, 18:16

    poste uma parte do seu bd com o que precisa


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken

    cantu gosta desta mensagem

    avatar
    cantu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 129
    Registrado : 24/03/2012

    [Resolvido]Nome do usuário logado Empty Re: [Resolvido]Nome do usuário logado

    Mensagem  cantu 25/10/2021, 12:05

    Bom dia,

    Penso ter resolvido o problema de impressão.
    Depois da linha de comando:
    DoCmd.OpenReport strDocName, acViewPreview, FiltroRelatorioUtente, , acWindowNormal
    introduzi o seguinte comando:
    DoCmd.PrintOut
    e isso fez com imprimisse o relatório, mas como ele ficava aberto em fundo depois de gravar o ficheiro:
    strArquivo = "\" & Form_FRM_TERAPEUTICA.TxtTerapNome & "\" & "GUIA_TRATAMENTO " & Format(Now, "ddmmyyyy") & ".pdf"
    strLocal = CurrentProject.Path & "\PROCESSOS" & strArquivo
    DoCmd.OutputTo acOutputReport, "REL_GTRAT", acFormatPDF, strLocal
    DoCmd.OutputTo acOutputReport, "REL_GTRAT", acFormatPDF, "C:\Users\xxxxxx\CRTHM_0.0.5\PROCESSOS\" & strArquivo

    introduzi o seguinte comando:
    DoCmd.Close acReport, "REL_GTRAT"
    e isso faz com que seja salvo o relatório em pdf e grave numa pasta e depois fecha o relatório aberto em fundo.

    Vou testar e depois se não houver problema ponho como "resolvido".

    Desde já os meus agradecimentos pelos contributos dados
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Nome do usuário logado Empty Re: [Resolvido]Nome do usuário logado

    Mensagem  DamascenoJr. 30/10/2021, 20:53

    cantu, como ficou?

    Aguardamos...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    cantu gosta desta mensagem

    avatar
    cantu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 129
    Registrado : 24/03/2012

    [Resolvido]Nome do usuário logado Empty Re: [Resolvido]Nome do usuário logado

    Mensagem  cantu 4/11/2021, 13:19

    Desculpem o atraso na resposta.
    Está a funcionar conforme o esperado.
    Os meus agradecimentos a todos aqueles que se interessaram pela minha dúvida.
    Cumprimentos

    Conteúdo patrocinado


    [Resolvido]Nome do usuário logado Empty Re: [Resolvido]Nome do usuário logado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 17:38