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]Erros de códigos ao migrar para office 2019 64 bits

    avatar
    cruzbacelar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 13/05/2014

    [Resolvido]Erros de códigos ao migrar para office 2019 64 bits Empty [Resolvido]Erros de códigos ao migrar para office 2019 64 bits

    Mensagem  cruzbacelar em 15/4/2020, 16:51

    Bom dia a todos,
    Venho tendo dificuldade no meu banco de dados acces,pois depois que migrei para o oficce 2019,meu banco de dados vem informando erros.
    Utilizava o oficce 2010 32 bits,onde foi construido o banco de dados access.o sistema funcionava redondinho.Hoje uso o oficce 2019 64 bits,mas esta havendo um erro em um dos códigos.
    Agradeceria muito se alguém poder me ajudar com esse problema.
    Vou explicar o erro.
    Tenho no formulário principal,uma campo onde carrego a logo da empresa.Essa logo é transmitida a todos os relatórios dos outros forms.
    depois que migrei para o 2019,esse procedimento não ocorre mais.Quando clico no botão pra carregar a logo,nada acontece e não aparece a logo no formulário principal mais e nem nos relatórios.Lembrando que foi alterado pasta onde fiva a logo no pc,mas não consigo carregar outra.
    Segue o código que uso.O procedimento explicado aqui no site mesmo está feito certinho.Mas não está funcionando no oficce 2019.
    Desde já agradeço a todos.

    Crie um módulo

    Option Compare Database
    Option Explicit

    Type tagOPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
    End Type
    Declare Function apiGetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Long
    '
    Dim OPENFILENAME As tagOPENFILENAME
    Public Const OFN_READONLY = &H1
    Public Const OFN_OVERWRITEPROMPT = &H2
    Public Const OFN_HIDEREADONLY = &H4
    Public Const OFN_NOCHANGEDIR = &H8
    Public Const OFN_SHOWHELP = &H10
    Public Const OFN_ENABLEHOOK = &H20
    Public Const OFN_ENABLETEMPLATE = &H40
    Public Const OFN_ENABLETEMPLATEHANDLE = &H80
    Public Const OFN_NOVALIDATE = &H100
    Public Const OFN_ALLOWMULTISELECT = &H200
    Public Const OFN_EXTENSIONDIFFERENT = &H400
    Public Const OFN_PATHMUSTEXIST = &H800
    Public Const OFN_FILEMUSTEXIST = &H1000
    Public Const OFN_CREATEPROMPT = &H2000
    Public Const OFN_SHAREAWARE = &H4000
    Public Const OFN_NOREADONLYRETURN = &H8000
    Public Const OFN_NOTESTFILECREATE = &H10000
    Public Const OFN_NONETWORKBUTTON = &H20000
    Public Const OFN_NOLONGNAMES = &H40000 ' force no long names for 4.x modules
    Public Const OFN_EXPLORER = &H80000 ' new look commdlg
    Public Const OFN_NODEREFERENCELINKS = &H100000
    Public Const OFN_LONGNAMES = &H200000 ' force long names for 3.x modules

    Public Const OFN_SHAREFALLTHROUGH = 2
    Public Const OFN_SHARENOWARN = 1
    Public Const OFN_SHAREWARN = 0

    '
    '-------------------------------------------------------
    ' Open Common Dialog Function
    '-------------------------------------------------------
    Function OpenCommDlg()
    Dim message$, Filter$, FileName$, FileTitle$, DefExt$
    Dim Title$, szCurDir$, APIResults&
    '
    Filter$ = "Imagens (GIF,PCX,BMP,JPG)" & Chr$(0) & "*.BMP;*.GIF;*.PCX;*.JPG;" & Chr$(0) & _
    "Todos os ficheiros (*.*)" & Chr(0) & "*.*;" & Chr(0)
    Filter$ = Filter$ & Chr$(0)
    '
    FileName$ = Chr$(0) & Space$(255) & Chr$(0)
    FileTitle$ = Space$(255) & Chr$(0)
    '* Give the dialog a caption title.
    Title$ = "Selecionar imagem" & Chr$(0)
    '
    DefExt$ = "BMP" & Chr$(0) ' extensión por defecto
    szCurDir$ = CurDir$ & Chr$(0) ' directorio por defecto, el actual
    '* Set up the data structure before you call the GetOpenFileName
    OPENFILENAME.lStructSize = Len(OPENFILENAME)
    'If the OpenFile Dialog box is linked to a form use this line.
    'It will pass the forms window handle.
    OPENFILENAME.hwndOwner = Screen.ActiveForm.hwnd
    'If the OpenFile Dialog box is not linked to any form use this line.
    'It will pass a null pointer.
    'OPENFILENAME.hwndOwner = 0&
    OPENFILENAME.lpstrFilter = Filter$
    OPENFILENAME.nFilterIndex = 1
    OPENFILENAME.lpstrFile = FileName$
    OPENFILENAME.nMaxFile = Len(FileName$)
    OPENFILENAME.lpstrFileTitle = FileTitle$
    OPENFILENAME.nMaxFileTitle = Len(FileTitle$)
    OPENFILENAME.lpstrTitle = Title$
    OPENFILENAME.flags = OFN_FILEMUSTEXIST Or OFN_READONLY Or OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST
    OPENFILENAME.lpstrDefExt = DefExt$
    OPENFILENAME.hInstance = 0
    OPENFILENAME.lpstrCustomFilter = String(255, 0)
    OPENFILENAME.nMaxCustFilter = 255
    OPENFILENAME.lpstrInitialDir = szCurDir$
    OPENFILENAME.nFileOffset = 0
    OPENFILENAME.nFileExtension = 0
    OPENFILENAME.lCustData = 0
    OPENFILENAME.lpfnHook = 0
    OPENFILENAME.lpTemplateName = 0
    If apiGetOpenFileName(OPENFILENAME) <> 0 Then
    OpenCommDlg = Left$(OPENFILENAME.lpstrFile, InStr(OPENFILENAME.lpstrFile, Chr$(0)) - 1)
    Else
    OpenCommDlg = ""
    End If
    End Function

    Chame-lhe ModuloImagem

    Agora na sua tabela

    Apague o campo OLE e substitua por este:

    iUbicacion - Texto

    No formulário crie um campo com o controle Imagem e chame-lhe Imagen3

    Por baixo da imagem insira a caixa de texto iUbicacion e pode reduzi-la até esconde-la

    Crie um botão de comando e no evento Click()
    iUbicacion.SetFocus
    Dim s As String
    s = OpenCommDlg()
    If s <> "" Then
    iUbicacion = s
    iUbicacion_AfterUpdate
    End If

    E no evento do form Current

    Private Sub Form_Current()
    iUbicacion_AfterUpdate
    End Sub


    Private Sub iUbicacion_AfterUpdate()
    Dim s As String
    s = Nz(iUbicacion.Value, "")
    If s <> "" Then s = IIf(Dir(s) = "", "", s)
    On Error Resume Next
    Imagen3.Picture = s
    If Err.Number <> 0 Then Imagen3.Picture = ""
    On Error GoTo 0
    End Sub
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Erros de códigos ao migrar para office 2019 64 bits Empty Re: [Resolvido]Erros de códigos ao migrar para office 2019 64 bits

    Mensagem  DamascenoJr. em 15/4/2020, 22:05



    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    cruzbacelar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 13/05/2014

    [Resolvido]Erros de códigos ao migrar para office 2019 64 bits Empty Re: [Resolvido]Erros de códigos ao migrar para office 2019 64 bits

    Mensagem  cruzbacelar em 16/4/2020, 04:35

    Obrigado amigo.
    Vou dar uma olhada.
    avatar
    cruzbacelar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 13/05/2014

    [Resolvido]Erros de códigos ao migrar para office 2019 64 bits Empty Re: [Resolvido]Erros de códigos ao migrar para office 2019 64 bits

    Mensagem  cruzbacelar em 16/4/2020, 05:02

    Infelizmente não resolveu o meu caso. Neutral
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Erros de códigos ao migrar para office 2019 64 bits Empty Re: [Resolvido]Erros de códigos ao migrar para office 2019 64 bits

    Mensagem  DamascenoJr. em 18/4/2020, 15:52

    Qual parte especificamente não deu certo?

    Anexe essa parte do projeto para adaptarmos.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    cruzbacelar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 13/05/2014

    [Resolvido]Erros de códigos ao migrar para office 2019 64 bits Empty Re: [Resolvido]Erros de códigos ao migrar para office 2019 64 bits

    Mensagem  cruzbacelar em 21/4/2020, 15:46

    Amigo consegui resolver ,obrigado pela atenção.
    Abraço.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Erros de códigos ao migrar para office 2019 64 bits Empty Re: [Resolvido]Erros de códigos ao migrar para office 2019 64 bits

    Mensagem  DamascenoJr. em 21/4/2020, 15:48

    Faltou dar o tópico por finalizado. Aguardamos sua ação.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    cruzbacelar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 13/05/2014

    [Resolvido]Erros de códigos ao migrar para office 2019 64 bits Empty Re: [Resolvido]Erros de códigos ao migrar para office 2019 64 bits

    Mensagem  cruzbacelar em 21/4/2020, 15:51

    Resolvido.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Erros de códigos ao migrar para office 2019 64 bits Empty Re: [Resolvido]Erros de códigos ao migrar para office 2019 64 bits

    Mensagem  DamascenoJr. em 21/4/2020, 15:52

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 28/11/2020, 02:16