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


3 participantes

    [Resolvido]Terminar Projecto de correspondencia

    avatar
    TiagoBranco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 24/03/2014

    [Resolvido]Terminar Projecto de correspondencia Empty [Resolvido]Terminar Projecto de correspondencia

    Mensagem  TiagoBranco 2/7/2014, 15:20

    Boa Tarde antes de mais queria agradecer a todos por ajudarem a desenvolver este projecto
    http://maximoaccess.forumeiros.com/u307 - JUNGLI
    http://maximoaccess.forumeiros.com/u27077 -  rdrck
    http://maximoaccess.forumeiros.com/u3009  -  Silvio
    e mais recentemente
    http://maximoaccess.forumeiros.com/u10192  -  Fernando Bueno
    http://maximoaccess.forumeiros.com/u10  -  Alexandre Neves


    venho pedir a todos mais uma ajuda se possivel
    Como esta  na imagem há possibilidade de eu meter alguma coisa  na parte riscada que possa aceder ao pdf/ ou ao formulário já existem que corresponde a cada registo.
    Ex: clico no link que esta para o registo 3 e no formulário correspondência abre já no 3
    Nota: o pdf não esta carregado no Access
    Vou meter em anexo o projecto para  facilitar  tudo

    Obrigado a todos


    Última edição por TiagoBranco em 3/7/2014, 16:32, editado 1 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Terminar Projecto de correspondencia Empty Re: [Resolvido]Terminar Projecto de correspondencia

    Mensagem  Alvaro Teixeira 2/7/2014, 16:11

    Olá,

    Na estrutura da Tabela1  altera o campo ArqCaminho para o tipo Hiperligação.

    [Resolvido]Terminar Projecto de correspondencia 2ywvbjr

    Depois deves incluir o campo no formulário Consulta.

    [Resolvido]Terminar Projecto de correspondencia 2ecj4o6

    avatar
    TiagoBranco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 24/03/2014

    [Resolvido]Terminar Projecto de correspondencia Empty Re: [Resolvido]Terminar Projecto de correspondencia

    Mensagem  TiagoBranco 2/7/2014, 16:37

    Muito Obrigado Pela Pronta resposta mas a min ainda me da um pequeno problema ja esta tudo, apenas nao esta abrir a hiperligação do que sera?
    Obrigado pela ajuda.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Terminar Projecto de correspondencia Empty Re: [Resolvido]Terminar Projecto de correspondencia

    Mensagem  Alvaro Teixeira 2/7/2014, 16:54

    Olá

    No campo ArqCaminho deve estar o caminho completo com o nome do ficheiro e extensão.

    No entanto vai base de dados onde efetuei teste.
    Anexos
    [Resolvido]Terminar Projecto de correspondencia AttachmentCorrespondenciaTiagoBranco.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (48 Kb) Baixado 35 vez(es)
    avatar
    TiagoBranco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 24/03/2014

    [Resolvido]Terminar Projecto de correspondencia Empty Re: [Resolvido]Terminar Projecto de correspondencia

    Mensagem  TiagoBranco 2/7/2014, 17:15

    Muito Obrigado pela sua disponibilidade
    Esta ajudar muito
    De facto o seu esta a dar a hiperligação mas assim que eu tento adicionar um novo pdf começa a dar erros em todo o lado
    E o meu esta todo igual a esse com a forma de hiperligação mas assim que eu carrego não abre
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Terminar Projecto de correspondencia Empty Re: [Resolvido]Terminar Projecto de correspondencia

    Mensagem  Alvaro Teixeira 2/7/2014, 18:15

    Olá,

    O erro deve-se ao facto de se ter alterado o campo de texto para hiperligação.
    Estive a verificar e aparece o caminho entre o caráter #

    A solução passa por encontrar outra alternativa para resolver a questão colocada neste tópico, voltando a colocar o caminho do tipo texto

    Ou

    Caso pretendas utilizar como sugerido por mim campo tipo hiperligação.
    Teremos que desenvolver código para retirar o # no inicio e fim.
    E testar se resolve.

    De momento estou no telemovel. Amanhã tento disponibilizar.

    Deves também compilar o código, esta a dar um erro na seguinte instrução:

    Kill clicaCMD0()
    avatar
    TiagoBranco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 24/03/2014

    [Resolvido]Terminar Projecto de correspondencia Empty Re: [Resolvido]Terminar Projecto de correspondencia

    Mensagem  TiagoBranco 3/7/2014, 16:00

    Boa Tarde, pois o erro é mesmo de ser alterado de texto para hiperligação
    Em relação em alterar o carácter # não é possível  porque ele é que divide o  pdf em partes e já tenho carregado quase 3000 pdf's
    A mim nunca me deu erro ai Kill clicaCMD0()
    Esta tudo a funcionar correctamente a meu ver só quando alterei para hiperligação é que deu vários erros mas nenhum deles foi ai.


    Em relação a alternativas

    Private Sub nArqParte01_Click()
       DoCmd.OpenForm "Correspondencia", , , "[nArqParte01]=" & Me.nArqParte01
    End Sub

    Ate foi boa a ideia mas esta a dar erro

    alterei agora assim esta quase, quase

    Private Sub nArqParte01_Click()
    DoCmd.OpenForm "Correspondencia", , , "[nArqParte01]=" & "Me.nArqParte01"
    End Sub

    ao aparecer aquela caixinha se eu escrever o numero ele vai para o outro forme mas caso eu cancele ele da erro
    Anexos
    [Resolvido]Terminar Projecto de correspondencia AttachmentCorrespondencia copia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 7 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Terminar Projecto de correspondencia Empty Re: [Resolvido]Terminar Projecto de correspondencia

    Mensagem  Alvaro Teixeira 3/7/2014, 18:25

    Olá,

    Então vamos esquecer a hiperligação e voltar ao inico.

    Utilizei o seguinte código para abrir ficheiro.

    http://access.mvps.org/access/api/api0018.htm

    Espero que esteja conforme pretendido.

    Relativamente ao erro ao compilar, p.f. verifica numa copia antiga.

    Mantem erro ao compliar
    Anexos
    [Resolvido]Terminar Projecto de correspondencia AttachmentCorrespondencia copia_alterado.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (46 Kb) Baixado 36 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Terminar Projecto de correspondencia Empty Re: [Resolvido]Terminar Projecto de correspondencia

    Mensagem  Noobezinho 3/7/2014, 19:46

    Olá amigos

    Só um pitaco:

    Aqui:  

    Private Sub nArqParte01_Click()
    DoCmd.OpenForm "Correspondencia", , , "[nArqParte01]=" & "Me.nArqParte01"
    End Sub

    Só faltou a aspa simples  no "Me.nArqParte01"  para informar ao Access que é String então essa parte ficaria assim:

    "'Me.nArqParte01'"

    Aqui só deu erro apos carregar o formulário correspondencia por não ter nenhum arquivo.pdf.
    Ou seja o erro foi no browse.

    Uma pergunta: Se quer mostrar os pdf's contido numa pasta,no webbrowse,
    porque não lista esses pdf's numa caixa de combinação/caixa de listagem? Evita esse código cabeludo do botão exibir PDF.
     Razz  Wink 

    Abraços

    Noob


    .................................................................................
    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.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Terminar Projecto de correspondencia Empty Re: [Resolvido]Terminar Projecto de correspondencia

    Mensagem  Alvaro Teixeira 3/7/2014, 21:42

    Noobezinho bem vindo,

    Relativamente ao código, foi uma alternativa, uma vez que permite colocar qualquer tipo de ficheiro e proceder à abertura com o respectivo programa.

    No entanto vamos aguardar o retorno do Tiago Branco.
    avatar
    TiagoBranco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 24/03/2014

    [Resolvido]Terminar Projecto de correspondencia Empty Re: [Resolvido]Terminar Projecto de correspondencia

    Mensagem  TiagoBranco 4/7/2014, 16:50

    Boa tarde aos dois,
    Muito Obrigado pelas Vossas preciosas ajudas já resolvi isto
    Já esta tudo em ordem
    Optei por alterar as variáveis e ir a partir da chave primaria o ID já esta a correr tudo normal


    Private Sub ID_Click()
    DoCmd.OpenForm "Correspondencia", , , "[ID]=" & Me.ID
    End Sub

    Obrigado Por estarem sempre prontos a ajudar e a vossa pronta resposta e sempre disponíveis para mais e mais
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Terminar Projecto de correspondencia Empty Re: [Resolvido]Terminar Projecto de correspondencia

    Mensagem  Noobezinho 4/7/2014, 17:54

    É isso ai Tiago, parabéns!

    Sempre devemos optar por usar o código do registro que é
    número (ainda mais sendo automático e sem interferência humana), do que
    strings que são passíveis de erros.

    Valeu pelo retorno

    Boa sorte

    Noob


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

    Conteúdo patrocinado


    [Resolvido]Terminar Projecto de correspondencia Empty Re: [Resolvido]Terminar Projecto de correspondencia

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 08:48