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


5 participantes

    [Resolvido]falta de método de campo para inserir foto

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    [Resolvido]falta de método de campo para inserir foto Empty [Resolvido]falta de método de campo para inserir foto

    Mensagem  crysostomo 23/10/2018, 21:13

    bom tarde  colegas, alguém pode me ajudar , , está pedindo algum método para da a funcionalidade , mas ja coloquei os necessarios.
    [Resolvido]falta de método de campo para inserir foto Sem_tz16
    foto.value , quando eu tiro para ver , falta o Picture
    O problema é na variaveil que puxa o value


    Última edição por Alexandre Neves em 25/10/2018, 10:32, editado 1 vez(es) (Motivo da edição : Título corrigido: de 'falta de mtédodo de campo pra inserir foto' para 'falta de método de campo para inserir foto')
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]falta de método de campo para inserir foto Empty Re: [Resolvido]falta de método de campo para inserir foto

    Mensagem  DamascenoJr. 23/10/2018, 23:35

    tem como anexar o formulário?
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]falta de método de campo para inserir foto Empty Re: [Resolvido]falta de método de campo para inserir foto

    Mensagem  vieirasoft 24/10/2018, 16:04

    Experimente assim:

    On Error Resume Next
    Dim S As String
    S = Nz(Me.txtCaminhoda foto.Value, "")
    If S <> "" Then S = IIf(Dir(S) = "", "", S)
    Foto.Picture = S
    If Err.Number <> 0 Then Foto.Picture = ""
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]falta de método de campo para inserir foto Empty Re: [Resolvido]falta de método de campo para inserir foto

    Mensagem  vieirasoft 24/10/2018, 18:52

    Veja se ajuda este exemplo

    https://www.dropbox.com/s/wocj4fxxa0rw5ch/Imagem.rar?dl=0
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    [Resolvido]falta de método de campo para inserir foto Empty Re: [Resolvido]falta de método de campo para inserir foto

    Mensagem  crysostomo 21/3/2019, 12:10

    Estou analisando meus tópicos para serem fechados ,amigo pois eu esqueci de fechar alguns e dar retorno, .
    .
    Obrigado a vcs


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    brunoluizmaia
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 24/04/2019

    [Resolvido]falta de método de campo para inserir foto Empty Re: [Resolvido]falta de método de campo para inserir foto

    Mensagem  brunoluizmaia 20/5/2019, 09:40

    Obrigado pela ajuda, através deste tópico encerrei o meu tópico que estava em aberto.

    Uma excelente semana para todos.
    klaytontome
    klaytontome
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 19/03/2017

    [Resolvido]falta de método de campo para inserir foto Empty Re: [Resolvido]falta de método de campo para inserir foto

    Mensagem  klaytontome 6/6/2019, 17:31

    primeira acontece esse erro

    [Resolvido]falta de método de campo para inserir foto Er110

    no seu exemplo funciona, mas quando coloco no meu não!

    puxa[Resolvido]falta de método de campo para inserir foto Er210

    Código:
    Option Compare Database
    Option Explicit
    Private Sub btnFotoADD_Click()
    On Error Resume Next
    Dim S As String
        S = OpenCommDlg()
        If S <> "" Then
        txtCaminho = S
        txtCaminho_AfterUpdate
    End If
    End Sub

    Private Sub txtCaminho_AfterUpdate()
    On Error Resume Next
    Dim S As String
        S = Nz(Me.txtCaminho.Value, "")
        If S <> "" Then S = IIf(Dir(S) = "", "", S)
        imgFoto.Picture = S
        If Err.Number <> 0 Then imgFoto.Picture = "C:\KSAsoftware\Patrimonio\imagens\001.jpeg"
    End Sub

    Private Sub Form_Current()
    On Error Resume Next
     txtCaminho_AfterUpdate
    End Sub

    Private Sub lblFechar_Click()
    On Error Resume Next
    DoCmd.Close
    End Sub

    Private Sub btnProdutosList_Click()
        DoCmd.OpenForm "frmProdutos_Pesq"
    End Sub

    Private Sub Detalhe_DblClick(Cancel As Integer)
        Me.Requery
    End Sub

    Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim strMsg As String
    strMsg = "Os dados foram alterados"
    strMsg = strMsg & "@Deseja salvar os dados?"
    strMsg = strMsg & "@Click Sim para guardar ou Não para remover."
    If MsgBox(strMsg, vbQuestion + vbYesNo, "Guardar?") = vbYes Then

    Else
    DoCmd.RunCommand acCmdUndo
    End If
    End Sub
    klaytontome
    klaytontome
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 19/03/2017

    [Resolvido]falta de método de campo para inserir foto Empty Re: [Resolvido]falta de método de campo para inserir foto

    Mensagem  klaytontome 6/6/2019, 17:38

    opa.

    consegui era algo no módulo.

    deletei e refiz

    agora, vamos testar. rs

    Conteúdo patrocinado


    [Resolvido]falta de método de campo para inserir foto Empty Re: [Resolvido]falta de método de campo para inserir foto

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 00:14