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

2 participantes

    [Resolvido]Utilizando Propriedades do arquivo Anexo

    renatomoss
    renatomoss
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 26/01/2011

    [Resolvido]Utilizando Propriedades do arquivo Anexo Empty Utilizando Propriedades do arquivo Anexo

    Mensagem  renatomoss 22/8/2012, 16:45

    Olá, Boa tarde!

    Estou coma uma dúvida simples que gostaria de saber como posso solucioná-la.

    É o seguinte, como eu poderia fazer com que o nome do arquivo anexado em uma tabela fosse o valor de um campo na mesma tabela?

    por exemplo,

    Tenho um formulário de cadastro de funcionários, onde o primeiro campo a ser preenchido é do tipo anexo.
    o segundo campo é o nome do funcionário, entretanto, o nome do arquivo de imagem já é o nome do próprio,

    Arquivo de imagem = Gilnesio Oliveira Freitas.jpg por exemplo,
    com uma caixa de texto com a seguinte fonte de controle =Esquerda([Foto].[filename];Compr([Foto].[filename])-4) eu consigo exibir o nome do arquivo sem a sua extensão

    mas eu gostaria que o campo [Nome] da mesma tabela armazenasse automaticamente essa informação.

    espero ter sido claro,

    obrigado
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Utilizando Propriedades do arquivo Anexo Empty Re: [Resolvido]Utilizando Propriedades do arquivo Anexo

    Mensagem  Leandro 22/8/2012, 17:11

    Boa tarde Renato,

    Na tabela, eu imagino que não será possível fazer isso, veja bem, imagino Shocked .

    Mas num fomrulário, você pode inserir isso no campo nome com uma instrução em VBA.

    Fica mais fácil te ajudar se puder postar uma parte do banco com o que está envolvido.

    E melhor ainda se puder ser em uma versão mais antiga do access, 2000 ou 2003.

    Abraço

    renatomoss
    renatomoss
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 26/01/2011

    [Resolvido]Utilizando Propriedades do arquivo Anexo Empty Re: [Resolvido]Utilizando Propriedades do arquivo Anexo

    Mensagem  renatomoss 22/8/2012, 18:36

    Certo Leandro, foi como eu imaginava,
    Vc poderia dar um exemplo de como seria essa instrução VBA?
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Utilizando Propriedades do arquivo Anexo Empty Re: [Resolvido]Utilizando Propriedades do arquivo Anexo

    Mensagem  Leandro 22/8/2012, 18:47

    Então eu posso te ajudar com mais eficiência se você postar uma parte do banco.

    Um exemplo impreciso seria após a atualização de um campo, ex:

    Private Sub SeuCampo_After_Update()
    Me.TxtNome.Value = Me.CampoADefinir.Value
    End Sub

    Se puder manda uma parte do banco, beleza?

    Abraço

    renatomoss
    renatomoss
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 26/01/2011

    [Resolvido]Utilizando Propriedades do arquivo Anexo Empty Resolvido

    Mensagem  renatomoss 4/9/2012, 15:02

    Desculpe a demora em finalizar o tópico, mas a ajuda do colega foi assertiva,

    eis o código:

    Private Sub FotoNovo_AfterUpdate()
    Dim formNome As String
    If FotoNovo.AttachmentCount = 0 Then
    txtColab.Text = ""
    Else
    formNome = Left(FotoNovo.FileName, Len(FotoNovo.FileName) - 4)
    Me!txtColab.SetFocus
    txtColab.Text = formNome
    End If
    End Sub
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Utilizando Propriedades do arquivo Anexo Empty Re: [Resolvido]Utilizando Propriedades do arquivo Anexo

    Mensagem  Leandro 4/9/2012, 15:17

    Que ótimo!!

    Sobre o botão resolvido veja na imagem onde ele está, abraço.

    [Resolvido]Utilizando Propriedades do arquivo Anexo MaximoAccess%20ResolvidoMarcado

    renatomoss
    renatomoss
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 26/01/2011

    [Resolvido]Utilizando Propriedades do arquivo Anexo Empty Outra dúvida

    Mensagem  renatomoss 4/9/2012, 15:39

    Agora tenho uma outra dúvida, como se trata de manipulação de imagens, então não criei um outro tópico

    A dúvida é o seguinte
    tenho um formulário com os seguintes campos
    -NomeColaborador
    -ListaColabCadastrados
    -Anexo*
    -ListaTabela*

    Ao ir digitando o no campo NomeColaborador, uma Private Sub roda filtro que é exibido no campo ListaColabCadastrados, até aí tudo bem
    Agora vou pro campo ListaColabCadastrados e com o evento click gostaria de exibir a imagem do registro selecionado, estou tentando fazer isso com os campos Anexo e ListaTabela
    Com o evento ListaColaboradores_On_Click eu consigo exibir o filtro chamando a campo onde está anexado o arquivo de imagem, porém ele me retorna o nome do arquivo com a extensão .jpg
    Não sei se há a possibilidade de exibir imagens em um campo do tipo lista Consulta/Tabela.
    Já o campo Anexo funciona apenas se eu colocar sua fonte de controle como o campo anexo da tabela, mas a partir daí meu formulário perde a função e passa a operar os registros,

    ficou claro? alguém pode me ajudar?

    https://2img.net/r/ihimg/photo/my-images/717/dviday.jpg/


    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Utilizando Propriedades do arquivo Anexo Empty Re: [Resolvido]Utilizando Propriedades do arquivo Anexo

    Mensagem  Leandro 4/9/2012, 15:47

    Renato, numa boa mano, você deve abrir um tópico novo entende?
    Dar continuidade nesse não é o padrão do fórum, coloque esse como Resolvido e abra outro, vai ser mais fácil para conseguir ajuda.
    É só uma dica. Razz

    renatomoss
    renatomoss
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 26/01/2011

    [Resolvido]Utilizando Propriedades do arquivo Anexo Empty Re: [Resolvido]Utilizando Propriedades do arquivo Anexo

    Mensagem  renatomoss 4/9/2012, 15:48

    Certo, Ok
    Farei isso

      Data/hora atual: 19/1/2022, 00:37