MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


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

    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 794
    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 em 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) (Razão : Título corrigido: de 'falta de mtédodo de campo pra inserir foto' para 'falta de método de campo para inserir foto')
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 657
    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  IvanJr. em 23/10/2018, 23:35

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    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 em 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 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    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 em 24/10/2018, 18:52

    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 794
    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 em 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


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou
    avatar
    brunoluizmaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    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 em 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    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 em 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    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 em 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: 20/7/2019, 10:52