MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 615
    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 : 3101
    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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 615
    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 : 3101
    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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 615
    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 : 3101
    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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 615
    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 : 3101
    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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 615
    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 : 3101
    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)

      Data/hora atual: 8/7/2020, 15:09