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]Imprimir automáticamente item do Access

    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 15/3/2021, 11:28

    Bom dia,

    Tenho uma BD em Access para gestão de clientes. Qdo insiro um novo cliente ao clicar no botão "Salvar", o programa salva o utente e cria automáticamente uma pasta com o nome desse cliente, portanto todos os clientes têm uma pasta.
    Tenho um outro botão "Processo" que ao clicar abre a pasta criada anteriormente desse cliente
    Tenho um outro botão "Iso", que ao clicar abre um documento do word *.docm que vai buscar algumas informções desse cliente da BD (Nome, telefone,
    etc.) que posso imprimir.
    Dentro do referido documento tenho um botão na Barra de Ferramentas de Acesso Rápido que é uma macro que me permite ao clicar gravar automáticamente aquele documento na pasta do cliente que está aberto:

    Sub TESTE1()

    Dim xTitle As String

    xTitle = ActiveDocument.BuiltInDocumentProperties("Title").Value
       xTitle = xTitle & " " & Format((Year(Now() + 1) Mod 100), "20##") & "" & _
           Format((Month(Now() + 1) Mod 100), "0#") & "" & _
           Format((Day(Now()) Mod 100), "0#")
           
       ChangeFileOpenDirectory "C:\Users\hmconpneumoenf\Desktop\CONSTUB\PROCESSOS\"
       ActiveDocument.SaveAs2 FileName:=xTitle, _
           FileFormat:=wdFormatXMLDocumentMacroEnabled, LockComments:=False, _
           Password:="", AddToRecentFiles:=True, WritePassword:="", _
           ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
           SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
           False, CompatibilityMode:=15
    End Sub


    O que acontece é ele efectivamente grava automáticamente o documento na pasta "PROCESSOS" e não na pasta do cliente...

    Agradeço desde já toda a ajuda
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8004
    Registrado : 05/11/2009

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Alexandre Neves 16/3/2021, 13:49

    Boa tarde
    Onde tem a indicação da pasta processos
    ChangeFileOpenDirectory "C:\Users\hmconpneumoenf\Desktop\CONSTUB\PROCESSOS\"
    devia ter a indicação da pasta pretendida. Substitua 'Processos' pelo nome da pasta pretendida


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    cantu gosta desta mensagem

    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 16/3/2021, 14:49

    Boa tarde,
    Obrigado pelo interesse na minha questão.
    A situação não resolve porque na pasta PROCESSOS estão todas as pastas de clientes (Exº Para o cliente X existe a pasta X - ChangeFileOpenDirectory "C:\Users\hmconpneumoenf\Desktop\CONSTUB\PROCESSOS\X.docm", para o Y - ChangeFileOpenDirectory "C:\Users\hmconpneumoenf\Desktop\CONSTUB\PROCESSOS\Y.docm").
    A questão é como ter o docm aberto e através do código descrito ele ir automáticamente para a respectiva pasta.
    Obrigado
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8004
    Registrado : 05/11/2009

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Alexandre Neves 16/3/2021, 16:57

    Tem de extrair o nome do cliente para ajustar a pasta de gravação
    Onde tem o nome do cliente? No título do documento ou nalguma variável?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 16/3/2021, 18:53

    Aí é que está o grande problema. Tenho 7 docm diferentes. Qdo estou na ficha do cliente escolho o docm apropriado para aquele cliente e consigo manipular o docm o problema depois é gravar na pasta desse cliente. Sei que tenho que extrair o nome do cliente para gravar na pasta dele. O docm gravado fica como CRT-(data do sistema). Agora não sei como fazer...
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8004
    Registrado : 05/11/2009

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Alexandre Neves 16/3/2021, 19:02

    primeiro, tem de criar um padrão de gravação que não repita o nome
    escolha um padrão de nome, depois tem de saber construir esse nome a partir da data ou outros dados singulares


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    cantu gosta desta mensagem

    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 17/3/2021, 11:27

    Caro Alexandre,

    Esse é o meu grande problema... [Resolvido]Imprimir automáticamente item do Access 1f604 . Dito por outras palavras não faço a mínima ideia como fazer isso... [Resolvido]Imprimir automáticamente item do Access 1f606.
    De qualquer forma o meu muito obrigado pelo interesse revelado
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8004
    Registrado : 05/11/2009

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Alexandre Neves 17/3/2021, 13:29

    Boa tarde
    Porque não cria uma variável global para armazenar o código do cliente e utilizá-lo para gravar o ficheiro?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Noobezinho 17/3/2021, 14:14

    Catu, como o Alexandre disse:

    No código que tu "guardas" o novo cliente, e que captura o nome do cliente de alguma forma para criar a pasta dele,

    use essa variável ou se for de outra forma crie uma variável global para o nome do cliente.

    Ex.: digamos que seja: txtClienteAtual

    Abra um módulo básico ou aproveite um que já exista (não os de formulário) e no topo

    da  página coloque:

    Global txtCliente as Text

    Agora no código que "guardou" o nome dele coloque a variável assim

    txtClienteAtual = Nomedocliente

    A variável global vai manter o dado para todo o projeto, até ser mudada pelo código ou fechar o BD.

    No teu código:

    ChangeFileOpenDirectory "C:\Users\hmconpneumoenf\Desktop\CONSTUB\PROCESSOS\" & txtClienteAtual



    { }'s

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 18/3/2021, 12:17

    Bom dia,
    Desde já o meu muito obrigado pelas ajudas que estou a ter. Tenho tentado acompanhar os Vossos contributos e por vezes, como acontece agora fico confuso [Resolvido]Imprimir automáticamente item do Access 1f606 . Sou profissional de saúde que pretende com esta aplicação criar uma ferramenta que ajude os doente COVID depois da alta hospitalar.
    Na minha BD tenho um formulário "FRM_UTENTES" e um botão "Salvar" que salva o utente e cria automáticamente uma pasta com o nome desse utente:

    Private Sub BtnSalvar_Click()

    Dim Programa As String
    Dim LocalPasta As String
    Dim cmdShell As String
    Dim Abrindo As String

    Programa = "C:\WINDOWS\explorer.exe "
    LocalPasta = "C:\Users\hmconpneumoenf\Desktop\CONSTUB\PROCESSOS\" & Form_FRM_UTENTES.TxtNome.Value
    cmdShell = Programa & LocalPasta & "\"

    If Dir(LocalPasta, vbDirectory) = "" Then
    MKDIR (LocalPasta)
    MsgBox "PASTA CRIADA!" & Chr(10), vbInformation, "AVISO"
    End If

    If ValidaCamposNulos = False Then
    Cancel = True
    Else
    If varCOD_UTENTE > 0 Then
    AlterarUtentes
    Else
    RegistarUtentes
    End If
    End If

    Form_FRM_CONSULTA_UTENTES.Recalc

    DoCmd.Close

    End Sub


    Neste mesmo formulário "FRM_UTENTES" existe um botão "Terapêutica" que abre um outro formulário "FRM_TERAPEUTICA" onde estão vários outros botões que abrem vários docm. Ao carregar num desses botões abre um docm que preenche o nome e outras informações necessárias. Depois disso imprimo um exemplar que dou ao utente a gravo esse documento na pasta do utente utilizando a macro:

    Sub TESTE1()

    Dim xTitle As String

    xTitle = ActiveDocument.BuiltInDocumentProperties("Title").Value
    xTitle = xTitle & " " & Format((Year(Now() + 1) Mod 100), "20##") & "" & _
    Format((Month(Now() + 1) Mod 100), "0#") & "" & _
    Format((Day(Now()) Mod 100), "0#")

    ChangeFileOpenDirectory "C:\Users\hmconpneumoenf\Desktop\CONSTUB\PROCESSOS\"
    ActiveDocument.SaveAs2 FileName:=xTitle, _
    FileFormat:=wdFormatXMLDocumentMacroEnabled, LockComments:=False, _
    Password:="", AddToRecentFiles:=True, WritePassword:="", _
    ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
    SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
    False, CompatibilityMode:=15
    End Sub


    A minha dúvida:
    1. O modulo básico a criar com a variável global é dentro da BD ou dentro do docm?

    Mais uma vez obrigado
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Noobezinho 18/3/2021, 13:19

    Alberto

    Taí  parte do teu algoritmo  modificado, veja atentamente



    Alberto, clique aqui para abrir:


    Private Sub BtnSalvar_Click()

    Dim Programa As String
    Dim LocalPasta As String
    Dim cmdShell As String
    Dim Abrindo As String

    ' txtNomeCliente é uma variável global que te explico mais abaixo
    txtNomeCliente= Form_FRM_UTENTES.TxtNome
    Programa = "C:\WINDOWS\explorer.exe
    LocalPasta = "C:\Users\hmconpneumoenf\Desktop\CONSTUB\PROCESSOS\" & txtNomeCliente
    cmdShell = Programa & LocalPasta & "\"

    If Dir(LocalPasta, vbDirectory) = "" Then
    MKDIR (LocalPasta)
    MsgBox "PASTA CRIADA!" & Chr(10), vbInformation, "AVISO"

    End If



    Sub TESTE1()

    Dim xTitle As String

    xTitle = ActiveDocument.BuiltInDocumentProperties("Title").Value
    xTitle = xTitle & " " & Format((Year(Now() + 1) Mod 100), "20##") & "" & _
    Format((Month(Now() + 1) Mod 100), "0#") & "" & _
    Format((Day(Now()) Mod 100), "0#")

    ChangeFileOpenDirectory "C:\Users\hmconpneumoenf\Desktop\CONSTUB\PROCESSOS\" & txtNomeCliente
    ActiveDocument.SaveAs2 FileName:=xTitle, _
    FileFormat:=wdFormatXMLDocumentMacroEnabled, LockComments:=False, _
    Password:="", AddToRecentFiles:=True, WritePassword:="", _
    ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
    SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
    False, CompatibilityMode:=15
    End Sub

    Se olhar no painel de navegação, verá as tabelas, consultas, macros e por último módulos.
    Deve ter algum módulo.

    Caso não tenha, faça o seguinte:

    No menu ferramentas de banco de dados, clique em Visual Basic ou  aperte Ctrl+G
    Na página do VBA, abaixo de Arquivo, clique no segundo botão Inserir Modulo
    Nomeie, Mod_Geral por exemplo
    e no topo da página, é onde fica as declarações , coloque

    Global txtNomeCliente as text

    Feito isso pode testar os códigos

    Veja que  as variáveis  Programa e cmdShell , não estão  sendo usandas nessa função.

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 19/3/2021, 11:55

    Bom dia,

    Em relação ao Gravar está tudo a funcionar plenamente, ele grava o cliente e cria uma pasta (tive que desativar as variáveis Programa e cmdShell que estavam a dar erro porque não nestavam a ser usadas).
    Em relação ao guardar o documento numa pasta específica não está a funcionar, continua a gravar automáticamente na pasta "\PROCESSOS\" não fazendo a concatenação com o "TxtNome Utente".
    A minha pergunta é que não faz essa gravação na pasta específica porque estamos no Word e como tal não reconhece a variável global (Global TxtNomeUtente As String)?
    O botão que no FRM_TERAPEUTICA que abre o docm é o botão BtnH_Click() que tem o seguinte código:

    Private Sub BtnH_Click()

    Dim WD As Object
    Dim DOC As Object

    Set WD = CreateObject("Word.Application")

    WD.Visible = True

    Set DOC = WD.Documents.Open("C:\Users\hmconpneumoenf\Desktop\CONSTUB\R1.docm")

    With DOC

    .Application.Selection.Find.Text = "#NOME"
    .Application.Selection.Find.Execute
    .Application.Selection.Range = UCase(Me.TxtTerapNome)

    .Application.Selection.Find.Text = "#PROCESSO"
    .Application.Selection.Find.Execute
    .Application.Selection.Range = UCase(Me.TxtTerapProcesso)

    .Application.Selection.Find.Text = "#DATA NASCIMENTO"
    .Application.Selection.Find.Execute
    .Application.Selection.Range = UCase(Me.TxtTerapDtNascimento)

    .Application.Selection.Find.Text = "#TELEFONE"
    .Application.Selection.Find.Execute
    .Application.Selection.Range = UCase(Me.TxtTerapTelefone)

    .Application.Selection.Find.Text = "#INICIOTR"
    .Application.Selection.Find.Execute
    .Application.Selection.Range = UCase(Me.TxtTerapInicioTrat)

    .Application.Selection.Find.Text = "#PROXCO"
    .Application.Selection.Find.Execute
    .Application.Selection.Range = UCase(Me.TxtTerapProxCons)

    .Application.Selection.Find.Text = "#USF"
    .Application.Selection.Find.Execute
    .Application.Selection.Range = UCase(Me.TxtTerapusfuscp)

    If Dir("C:\Users\hmconpneumoenf\Desktop\CONSTUB\R2.docm") <> "" Then
    Kill "C:\Users\hmconpneumoenf\Desktop\CONSTUB\R2.docm"
    End If

    End With

    Set DOC = Nothing
    Set WD = Nothing


    End Sub


    Sendo que #NOME, #DATA NACIMENTO, etc são os dados que vêm automáticamente da ficha do cliente.

    Obrigado pela paciência



    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Noobezinho 19/3/2021, 12:45

    Bom dia

    A coisa mudou  de rumo, achei que era salvo (guardado) no Access e não no Word.

    Vamos tentar juntos, porque trabalhei apenas uma vez com o word e era coisa simples.

    Quando se diz será aberto (Open()), quer dizer que o documento já existe.

    E ele está no desktop.

    Como foi criado?

    O documento é preenchido pelo Access?

    Explique essa parte, por favor, desde a abertura até o fechamento do documento.

    Aguardo ...


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 19/3/2021, 14:31

    Boa tarde,

    O documento em questão "R1.docm" é um documento do word que está na mesma pasta do BD que quando é aberto preenche automaticamente alguns campos (#NOME - Nome do Utente; #DATA NASCIMENTO - Data Nascimento do Utente; etc.). Estes campos são extraídos da BD do FRM_UTENTES.

    Dentro do FRM_UTENTES existe um botão "Terapêutica" que ao fazer click abre outro formulário (FRM_TERAPEUTICA). Dentro deste formulário existem diversos botões que abrem documentos do word (H,R,HR,HRE,etc.)

    No doumento do word depois de aberto posso manipular e imprimir. Para gravar utilizo um botão na Barra de Ferramentas de Acesso Rápido do word ao qual atribui uma macro (TESTE1). Ele grava na pasta "C:\Users\hmconpneumoenf\Desktop\CONSTUB\PROCESSOS\CHMB - CRT - 20210319 (data actual).docm" mas queria que ele gravasse esse ficheiro (CHBM - CRT - 20210319.docm) na pasta do cliente ("C:\Users\hmconpneumoenf\Desktop\CONSTUB\PROCESSOS\cliente x\CHMB - CRT - 20210319.docm")

    [Resolvido]Imprimir automáticamente item do Access %22C:\Users\hmconpneumoenf\Desktop\DUVIDA1

    Código de abrir o documento do word:

    Private Sub BtnH_Click()

    Dim WD As Object
    Dim DOC As Object

    Set WD = CreateObject("Word.Application")

    WD.Visible = True

    Set DOC = WD.Documents.Open("C:\Users\hmconpneumoenf\Desktop\CONSTUB\R1.docm")

    With DOC

    .Application.Selection.Find.Text = "#NOME"
    .Application.Selection.Find.Execute
    .Application.Selection.Range = UCase(Me.TxtTerapNome)

    .Application.Selection.Find.Text = "#PROCESSO"
    .Application.Selection.Find.Execute
    .Application.Selection.Range = UCase(Me.TxtTerapProcesso)

    .Application.Selection.Find.Text = "#DATA NASCIMENTO"
    .Application.Selection.Find.Execute
    .Application.Selection.Range = UCase(Me.TxtTerapDtNascimento)

    .Application.Selection.Find.Text = "#TELEFONE"
    .Application.Selection.Find.Execute
    .Application.Selection.Range = UCase(Me.TxtTerapTelefone)

    .Application.Selection.Find.Text = "#INICIOTR"
    .Application.Selection.Find.Execute
    .Application.Selection.Range = UCase(Me.TxtTerapInicioTrat)

    .Application.Selection.Find.Text = "#PROXCO"
    .Application.Selection.Find.Execute
    .Application.Selection.Range = UCase(Me.TxtTerapProxCons)

    .Application.Selection.Find.Text = "#USF"
    .Application.Selection.Find.Execute
    .Application.Selection.Range = UCase(Me.TxtTerapusfuscp)

    If Dir("C:\Users\hmconpneumoenf\Desktop\CONSTUB\R2.docm") <> "" Then
    Kill "C:\Users\hmconpneumoenf\Desktop\CONSTUB\R2.docm"
    End If

    End With

    Set DOC = Nothing
    Set WD = Nothing


    End Sub


    Código da macro no word:

    Sub TESTE1()
    Dim xTitle As String

    xTitle = ActiveDocument.BuiltInDocumentProperties("Title").Value
    xTitle = xTitle & " " & Format((Year(Now() + 1) Mod 100), "20##") & "" & _
    Format((Month(Now() + 1) Mod 100), "0#") & "" & _
    Format((Day(Now()) Mod 100), "0#")

    ChangeFileOpenDirectory "C:\Users\hmconpneumoenf\Desktop\CONSTUB\PROCESSOS\" & TxtNomeUtente
    ActiveDocument.SaveAs2 FileName:=xTitle, _
    FileFormat:=wdFormatXMLDocumentMacroEnabled, LockComments:=False, _
    Password:="", AddToRecentFiles:=True, WritePassword:="", _
    ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
    SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
    False, CompatibilityMode:=15
    End Sub


    Obrigado
    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 19/3/2021, 14:36

    [Resolvido]Imprimir automáticamente item do Access Duvida11
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Noobezinho 19/3/2021, 17:38

    Alberto

    Estava pensando aqui da seguinte forma:
    Me parece que R1.docm é tipo um modelo
    que então se preenche e copia/move para a pasta que deseja
    Que tal primeiro copiar esse arquivo para a pasta do cliente já como
    deseja e então abrir, manipular e imprimir com ele já na pasta?

    Aqui um exemplo de copia

    Function Test1()


    Dim fso As Object
    Dim strOrigem  As String
    Dim strDestino As String

    Set fso = CreateObject("Scripting.FileSystemObject")
    strOrigem = "C:\Users\hmconpneumoenf\Desktop\CONSTUB\R1.docm"

    'Sei que não é bem esse o caminho de destino, é só um exemplo
    strDestino = "C:\Users\hmconpneumoenf\Desktop\CONSTUB\PROCESSOS\" & TxtNomeUtente"

    fso.CopyFile strOrigem, strDestino

    End Function

    Tenho que atender a um cliente, logo volto e vejo tua resposta.


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1582
    Registrado : 13/12/2016

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Alexandre Fim 19/3/2021, 17:53

    Senhores,
    Só passando aqui para bisbilhotar e deixar o meu pitaco.

    Qual a real necessidade de utilizar o Word?

    Os relatórios poderiam ser desenvolvidos no próprio Access!!


    Fim


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

    Assis gosta desta mensagem

    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Noobezinho 19/3/2021, 20:01

    Verdade Fim

    Mas, estou fazendo o que ele pede, nem me toquei nisso  Embarassed

    Seria mais fácil, abre-se o relatório em pré-visualização, manipula-se o que deseja , imprime e salva(guarda)

    Ou pode fazer tudo isso no formulário e imprimir os dados no relatório.

    Arre! Bobeie nessa!





    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1582
    Registrado : 13/12/2016

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Alexandre Fim 19/3/2021, 21:33

    Que nada, Noobezinho.
    Você fez o certo !!!
    Aproveitar o modelo que o amigo cantu já utiliza mas, se implementar esta rotina no VBA, fica melhor pq a manutenção é feita em uma só ferramenta e também não cria uma dependência do Word.

    Apenas um pitaco.

    Noobezinho, Vc é mestre!!!

    Abraços

    Fim


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 19/3/2021, 21:41

    Caros Balem e Fim,

    Claro que seria mais fácil mas como é que eu conseguiria editar o próprio documento, porque vendo a imagem que postei numa resposta anterior por vezes tenho que alterar a dose do medicamento, introduzir outro medicamento. etc.. Conseguiria ter um layout igual ou parecido? Estou aberto a sugestões.

    De qualquer forma vou testar a sugestão do Balem mas só consigo na próxima 2ª feira, porque vou estar de serviço nas próximas 2 noites.

    Muito obrigado pelo Vosso interesse
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1582
    Registrado : 13/12/2016

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Alexandre Fim 19/3/2021, 21:46

    Alberto,

    Essas questões de mudar o medicamento ou a dose dele pode ser parametrizável no sistema.
    Poste aqui uma cópia do teu sistema (somente partes envolvidas) para que possamos analisar e sugerir uma solução.

    Valeu


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Noobezinho 20/3/2021, 22:59

    Eu lembrei do que fiz num sistema para Clínica Veterinária no Access 97.

    O histórico clínico do Cliente(pet) é digitado numa caixa de texto e adicionado em
    outra caixa de texto acima, para que não haja perigo de todo o histórico ser apagado.
    Olhando na imagem abaixo, verá que ao lado da caixa de texto inferior tem o botão
    Adicionar histórico que quando clicado, adiciona na caixa de texto histórico clinico
    Uma linha de separação entre os dias (atualmente) e a data da consulta com o histórico do dia.
    para imprimir tem o botão do lado do botão fechar.

    Veja se te interessa Alberto.
    Clique aqui:
    [Resolvido]Imprimir automáticamente item do Access Consul11

    { }'

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 22/3/2021, 11:05

    Caro Balem,

    Essa sua sugestão seria óptima já que eu no FRM_UTENTES tenho uma caixa de texto desvinculada (TxtObs) onde introduzo os dados clínicos do paciente mas que pode ser apagada acidentalmente.

    Envio o meu projecto para sua apreciação e também do Fim

    Grato pela ajuda
    Anexos
    [Resolvido]Imprimir automáticamente item do Access AttachmentHELP.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Mb) Baixado 7 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Noobezinho 22/3/2021, 22:49

    Alberto

    Eis o exemplo de como proceder.

    Não olhei deu exemplo por falta de tempo.

    Como  disse, com esse exemplo, manterá todo o histórico clínico na tabela de Clientes, evitando pastas  e um  códigos para

    localizar e o arquivo de histórico do cliente.

    No botão imprimir que deverá ficar bloqueado, tem a chamada para o relatório, mas deixei sem o relatório, pois, irá usar o teu.

    Após salvar (guardar) os dados, libere o botão para a impressão.

    Caso não consiga desenvolver o relatório,  retorne aqui.

    Balem
    Anexos
    [Resolvido]Imprimir automáticamente item do Access AttachmentCantu.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (598 Kb) Baixado 12 vez(es)


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    cantu gosta desta mensagem

    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 24/3/2021, 12:11

    Caro Balem

    Acho a sua ideia extraordinária, já que assim não há a possibilidade de apagar acidentalmente os dados do histórico. Tentei fazer o mesmo no meu formulário que dá sempre um erro, não sei como continuar.
    Envio em anexo o ficheiro para sua apreciação.
    Muito obrigado
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Noobezinho 24/3/2021, 12:54

    Alberto

    Coisas simples.

    Faltou o campo Histórico Clínico na consulta  da fonte de Registro do formulário.
    Nessa mesma consulta, retire as outras duas tabelas, pois o dados delas já estão na tabela Utentes.

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    cantu gosta desta mensagem

    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 24/3/2021, 13:46

    Caro Balem,

    Fiquei completamente "out" [Resolvido]Imprimir automáticamente item do Access 1f62a Nem sei....
    Desculpe a minha ignorância [Resolvido]Imprimir automáticamente item do Access 1f606

    Cumprimentos
    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 26/3/2021, 10:57

    Bom dia,
    Já experimentei de diversas maneiras mas dá sempre erro, não estou conseguindo...
    Se me puderem ajudar eu agradeço muito
    Cumprimentos
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Noobezinho 26/3/2021, 14:46

    Alberto
    De problema no meu windows.

    Acabei de reinstalar, tenho que colocar o office e maisl

    Assim que puder retorno.

    { }'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    cantu gosta desta mensagem

    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 26/3/2021, 15:36

    Ok sem problema

    Cumprimentos
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Noobezinho 31/3/2021, 23:13

    Alberto

    Analisei teu projeto.

    Ele tem alguns erros, que talvez seja pelo fato de você ter feito uma cópia:

    Falta o campo histórico clínico na consulta da fonte de registro do formulário

    Essa função não existe nessa cópia
    CarregarlistaUtentes

    Esse campo não existe no formulário
    Form_FRM_UTENTES.TxtObs.Locked = False

    Conserte e teste.

    Se ainda tiver erros , faça uma depuração no código VBA pra ver ser tem erros.

    Caso não saiba como fazer isso, retorne que explico.

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    cantu gosta desta mensagem

    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 1/4/2021, 13:43

    Caro Balem,

    Efecivamente durante a cópia alguma coisa falhou...
    Introduzi o campo "HistóricoClínico", carreguei a função "CarregarlistaUtentes" e continuou a dar erro. Eu tinha inicialmente um campo "Obs" que deletei.
    Reevio o ficheiro para sua apreciação e ajuda
    Desde já grato pela atenção
    Anexos
    [Resolvido]Imprimir automáticamente item do Access AttachmentHELP.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.9 Mb) Baixado 6 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Noobezinho 1/4/2021, 14:45

    Alberto
    Eis aí teu projeto-cópia
    Veja a consulta do formulário, tire as outras duas tabelas.
    Os campos já estão gravados na tabela, então não precisa dessas tabelas na consulta.
    Nesta cópia, faltou tirar as referências ao texto obs, veja no teu projeto original
    Utilize o depurar, isso vai te livrar de perder tempo procurando onde está o erro.
    Se mesmo assim não souber como consertar, pergunte pra nós.

    { }'s

    Balem
    Anexos
    [Resolvido]Imprimir automáticamente item do Access AttachmentCRTMTJ_V3.1.1.NB.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (232 Kb) Baixado 15 vez(es)


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    cantu gosta desta mensagem

    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 1/4/2021, 15:22

    Muito obrigado. Ficou excelente. Percebi agora qual a lógica.
    Há alguma maneira de deletar a informação do Histórico que estava lá anteriormente?
    Grato
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Noobezinho 1/4/2021, 15:32

    Olha, meu amigo.

    No Access, da pra se fazer muita coisa.
    Pra isso que quer, teria que fazer uma função para
    apagar os antigos num determinado período, assim como
    fazemos para apagar Backups antigos.
    Mas, entenda que isso é um histórico clinico.
    O(s) médico(s) pode(m) precisar num futuro de informações
    contidos neles.
    Como é texto, não ocupa tanto lugar no BD/HD.

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    cantu gosta desta mensagem

    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 1/4/2021, 16:21

    Caro Balem,

    Concordo totalmente consigo. Mas neste caso em concreto é só para deletar as informações de teste que foram colocadas e que não têm interesse para a versão final.

    Abusando da sua paciência é possível acrescentar às informações por defeito (hora e data) o username de quem está a introduzir essas informações no histórico? O username é sempre numérico (5 números). (Exº.: 01-04-2021 16.11.36 (12345))

    Mais uma vez muito obrigado por toda a ajuda proporcionada. Grato
    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 1/4/2021, 16:48

    Caro Balem

    A informação "Tá funfando" está em todos os utentes... [Resolvido]Imprimir automáticamente item do Access 1f601 . Tudo o que guardo gaurda a mesma informação em todos os utente.



    Cumprimentos,
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Noobezinho 1/4/2021, 17:56

    Alberto

    Claro que dá!
    Mas isso já é outra história.
    Mesmo porque estás a usar 2 tabelas para utentes, uma somente já é o mais prático (Na realidade tem outra, mas para outra coisa).
    Para não misturarmos o assunto no tópico, abra um outro tópico e então explicarei o que tem que fazer, ok?

    "Tudo o que guardo gaurda a mesma informação em todos os utente"

    O Access é um banco de dados relacional, onde vc coloca  determinados dados em um único local e  recupera eles
    através do relacionamento entre tabelas.


    { }'s

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 1/4/2021, 19:45

    Caro Balem,

    Já abri outro tópico "Registo automático de data, hora e usuário num Histórico" sobre a questão do registo do username.

    Em relaçáo à outra questão... [Resolvido]Imprimir automáticamente item do Access 1f623 desculpe a minha ignorância nesta matéria [Resolvido]Imprimir automáticamente item do Access 1f604

    Grato pela atençao
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Noobezinho 1/4/2021, 19:54

    Fique tranquilo, ninguém nasce sabendo, uma hora se aprende Wink

    Então, se está resolvido esse tópico, coloque o resolvido que vou pular pro outro, Laughing

    { }'s

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    cantu gosta desta mensagem

    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 1/4/2021, 21:05

    Caro Balem,

    Muito sinceramente não consigo dar a volta à questão do Histórico Clínico preencher a mesma informação em todos os utentes....
    Desculpe a sinceridade mas eu tentei resolver e não tenho ideias [Resolvido]Imprimir automáticamente item do Access 1f625 [Resolvido]Imprimir automáticamente item do Access 1f604

    Cumprimentos
    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 5/6/2021, 11:18

    Bom dia,

    Seguindo o conselho do Balem, utilizei a seguinte função para criar um ficheiro numa outra pasta:

    Function CopyFile()


    Dim fso As Object
    Dim strOrigem As String
    Dim strDestino As String

    Set fso = CreateObject("Scripting.FileSystemObject")
    strOrigem = "C:\Users\carlo\Desktop\CRT\Tuberculosis\TOD\InicioTOD.doc"

    'Sei que não é bem esse o caminho de destino, é só um exemplo
    strDestino = "C:\Users\carlo\Desktop\CRT\Tuberculosis\PROCESSOS\" & Form_FRM_UTENTES.TxtNome.Value

    fso.CopyFile strOrigem, strDestino

    End Function

    Acontece que dá sempre o seguinte erro:

    Run-time error '70':
    Permisson denied

    Depurando está tudo certo e depois pára em "fso.CopyFile strOrigem, strDestino"

    Desde já agradeço ajuda
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Noobezinho 5/6/2021, 11:52

    Alberto

    Disponibilize o parte do teu projeto para eu analisar o que falta.

    Aguardo...



    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Noobezinho 15/6/2021, 17:45

    Alberto

    Temos que seguir as regras do fórum.

    Como seu tópico foi resolvido, convido-o a colocar o resolvido

    nesse tópico, e abrir outro tópico com essa nova dúvida.

    Assim não só eu, mas outros também podem ajudar ou se

    beneficiar da  solução.

    Copie e cole tua última mensagem, num novo tópico e se puder

    apagar essa mensagem, por favor faça isso, caso contrário me avise que eu

    apago.

    { }'s

    Balem


    Última edição por Noobezinho em 16/6/2021, 00:51, editado 1 vez(es)


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    cantu
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  cantu 15/6/2021, 23:09

    Resolvido
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir automáticamente item do Access Empty Re: [Resolvido]Imprimir automáticamente item do Access

    Mensagem  Noobezinho 16/6/2021, 00:53

    Ótimo!


    Boa sorte!


    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 4/8/2021, 14:46