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]Erro: 438 - O Objeto não aceita esta propriedade ou método

    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 456
    Registrado : 11/12/2017

    [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método Empty [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método

    Mensagem  Ismael Silva em 23/4/2019, 20:04

    Boa tarde,

    Estou utilizando o código do Professor Gilberlanio, mas está dando o seguinte erro:

    438 - O Objeto não aceita esta propriedade ou método, o que me impede de carregar a foto no meu projeto. O que pode ter de errado?


    On Error GoTo PROC_ERR


       
       'verifica se o nome do cliente foi digitado
       If Len(Me.Nome_Func & "") = 0 Then
           MsgBox "Falta o nome do Funcionário, campo obrigatório.", vbInformation, ""
           Me.Nome_Func.SetFocus
           Exit Sub
       End If
       
       ' Requer referencia a Microsoft Office 11 Object Library
       Dim fd As FileDialog
       Set fd = Application.FileDialog(msoFileDialogFilePicker)
       
       fd.Title = "selecione o arquivo da imagem"
       fd.Filters.Add "Arquivos de imagem", "*.bmp; *.png; *.jpg", 1

       fd.Show
       
       If (fd.SelectedItems.Count > 0) Then
           Dim strPathFileOrigem, strImagens As String
           
           'arquivo escolhido
           strPathFileOrigem = fd.SelectedItems(1)
           
           'caminho destino e nome arquivo para copia de arquivo das imagens
           strImagens = Application.CurrentProject.Path & "\Fotos\" & Me.Id & "_" & Me.Nome_Func & Right(strPathFileOrigem, 4)
         
           'copiar
           FileCopy strPathFileOrigem, strImagens
           MsgBox "Arquivo arquivado em: " & vbCrLf & vbCrLf & strImagens, vbInformation, "Operação concluída."
       
           'actualiza dados form
           Me.txtCaminho = Mid(strImagens, InStrRev(strImagens, "\") + 1)
           Me.imagemCliente.Picture = Application.CurrentProject.Path & "\Fotos\" & Me.txtCaminho
           DoCmd.Save
       Else
           
           MsgBox "Não foi escolhido nenhum Arquivo", vbInformation, ""
       
       End If
       
       
    PROC_EXIT:
       Exit Sub
       
    PROC_ERR:
       DoCmd.Hourglass False
           MsgBox Err.Number & " - " & Err.Description
       Resume PROC_EXIT


    Vi que tem uns exemplos parecidos aqui no Fórum, mas eu não consegui resolver.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2804
    Registrado : 21/04/2011

    [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método Empty Re: [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método

    Mensagem  Marcelo David em 24/4/2019, 03:36

    Boa noite, o erro aponta para qual linha?


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 456
    Registrado : 11/12/2017

    [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método Empty Re: [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método

    Mensagem  Ismael Silva em 24/4/2019, 12:11

    Marcelo, bom dia

    Debuguei o código, e ele apresente o erro quando chega nesta sintaxe:

    Resume PROC_EXIT
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2804
    Registrado : 21/04/2011

    [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método Empty Re: [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método

    Mensagem  Marcelo David em 25/4/2019, 01:16

    A referencia a Microsoft Office xx Object Library
    Onde xx é a versão do access, está marcada?


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 456
    Registrado : 11/12/2017

    [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método Empty Re: [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método

    Mensagem  Ismael Silva em 25/4/2019, 01:28

    Sim Marcelo,

    Eu habilitei a referência, pois antes mesmo de dar esse erro, tinha dado outro, conforme abaixo

    ' Requer referencia a Microsoft Office 11 Object Library
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker),

    Só depois disso, deu esse erro 438, que não consegui resolver, mas o que me intriga, é que em outro projeto que eu tenho, tenho o mesmo código, e não apresenta nenhum erro, carrega as fotos normalmente.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2804
    Registrado : 21/04/2011

    [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método Empty Re: [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método

    Mensagem  Marcelo David em 25/4/2019, 01:41

    Tem alguma campo conflitando aí... Pode postar o banco para ver?
    Mas antes, veja se não há nenhum módulo de código, função, sub que tenha nome igual a algum outro objeto....


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 456
    Registrado : 11/12/2017

    [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método Empty Re: [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método

    Mensagem  Ismael Silva em 25/4/2019, 01:52

    Marcelo

    Segue link aí

    Não sei como vai abrir aí pra ti, pois toda vez que abro em algum PC diferente a tela nunca fica na mesma dimensão.

    https://www.dropbox.com/s/dwo5cyw8m407zuu/Gest%C3%A3o%20de%20Funcion%C3%A1rios.accdb?dl=0

    Frm_Lancamentos

    Botão Comando 19

    Obrigado
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2804
    Registrado : 21/04/2011

    [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método Empty Re: [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método

    Mensagem  Marcelo David em 25/4/2019, 02:14

    Então...
    imagemCliente não possui a propriedade Picture, pois é um Quadro de Objeto Não Acoplado

    Basta usar um controle Imagem e por o mesmo nome que já resolve seu problema.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 456
    Registrado : 11/12/2017

    [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método Empty Re: [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método

    Mensagem  Ismael Silva em 25/4/2019, 02:24

    Mas que coisa mesmo, tão simples...Aprendizado para as próximas.

    Muito obrigado Marcelo

    Resolvido!
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2804
    Registrado : 21/04/2011

    [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método Empty Re: [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método

    Mensagem  Marcelo David em 25/4/2019, 02:26

    Ótimo que resolveu! O fórum agradece o retorno!


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)

    Conteúdo patrocinado

    [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método Empty Re: [Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/8/2019, 19:26