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

    [Resolvido]Porque não funciona access 2016 64 bits

    ÓscarSantos
    ÓscarSantos
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 335
    Registrado : 18/09/2013

    [Resolvido]Porque não funciona access 2016 64 bits Empty [Resolvido]Porque não funciona access 2016 64 bits

    Mensagem  ÓscarSantos 3/4/2021, 10:40

    ao clicar no botão do formulario tenho o seguinte comando que não está a funcionar, posso saber onde está o problema?


    Código:
    Private Sub btnLocalizar_Click()
    On Error GoTo 1
        Dim strCaminho As String, strPastaInicial As String
        strPastaInicial = "C:\Users\nunol\Pictures\Capas de DVD´S\"
        strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
        "Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
        If Len(strCaminho) > 0 Then
            Me.LocalFoto1 = Mid([strCaminho], InStrRev([strCaminho], "\") + 1)
            Me.Foto1.Picture = Me.LocalFoto1

        End If
        
    Exit_1:
        DoCmd.Hourglass False
        DoCmd.Echo True
        Exit Sub

    1:
        DoCmd.Hourglass False
        DoCmd.Echo True
        Msg = "Erro # " & Str(err.Number) & " gerado na " & err.Source _
            & vbNewLine & vbNewLine & "Descrição: " & err.Description _
            & vbNewLine & vbNewLine & "Por favor contate o Administrador do Sistema."
        MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", err.HelpFile, err.HelpContext
        Resume Exit_1

    End Sub

    e tenho esta função :
    Código:
    Public Type OpenFilename
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustomFilter 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


    Public Const OFN_FILEMUSTEXIST = &H1000
    Public Const OFN_HIDEREADONLY = &H4
    Public Const OFN_PATHMUSTEXIST = &H800
    Const cTAMANHO = 11
    Public Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" _
        Alias "GetOpenFileNameA" (lpofn As OpenFilename) As Long
    Public Declare PtrSafe Function GetPrivateProfileString Lib "kernel32" Alias _
        "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
        ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, _
        ByVal nSize As Long, ByVal lpFileName As String) As Long
    Public Declare PtrSafe Function WritePrivateProfileString Lib "kernel32" Alias _
        "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
        ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
    Public Declare PtrSafe Function FindWindow Lib "user32" Alias _
        "FindWindowA" (ByVal lpClassname As String, ByVal lpWindowName As Long) As Long
    Public Declare PtrSafe Function SendMessage Lib "user32" Alias _
        "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
        ByVal wParam As Long, ByVal lParam As Long) As Long

    Public Function Buscar(lngHwnd As Long, strTítulo As String, strPastaInicial As String, strFiltro As String) As String
        
        Dim filebox As OpenFilename
        Dim result As Long
        With filebox
            .lStructSize = Len(filebox)
            .hwndOwner = lngHwnd
            .hInstance = 0
            .lpstrFilter = strFiltro & vbNullChar & _
                "Todos os Arquivos (*.*)" & vbNullChar & "*.*" & vbNullChar & vbNullChar
            .nMaxCustomFilter = 0
            .nFilterIndex = 1
            .lpstrFile = Space(256) & vbNullChar
            .nMaxFile = Len(.lpstrFile)
            .lpstrFileTitle = Space(256) & vbNullChar
            .nMaxFileTitle = Len(.lpstrFileTitle)
            .lpstrInitialDir = strPastaInicial & vbNullChar
            .lpstrTitle = strTítulo & vbNullChar
            .Flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY
            .nFileOffset = 0
            .nFileExtension = 0
            .lCustData = 0
            .lpfnHook = 0
        End With

        result = GetOpenFileName(filebox)
        If result <> 0 Then
            Buscar = left(filebox.lpstrFile, InStr(filebox.lpstrFile, vbNullChar) - 1)
        Else
            Buscar = ""
        End If

    End Function



    .................................................................................
    _________________________________________________________
    sempre a aprender
    para enviar ou postar só access2007 infelizmente é o que tenho no trabalho Sad .
    para dar tópico como resolvido https://www.maximoaccess.com/t860-resolucao-de-topicos
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Porque não funciona access 2016 64 bits Empty Re: [Resolvido]Porque não funciona access 2016 64 bits

    Mensagem  DamascenoJr. 3/4/2021, 13:01



    .................................................................................
    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.
    ÓscarSantos
    ÓscarSantos
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 335
    Registrado : 18/09/2013

    [Resolvido]Porque não funciona access 2016 64 bits Empty Re: [Resolvido]Porque não funciona access 2016 64 bits

    Mensagem  ÓscarSantos 4/4/2021, 11:02

    muito obrigado DamascenoJr.
    já está a funcionar.


    .................................................................................
    _________________________________________________________
    sempre a aprender
    para enviar ou postar só access2007 infelizmente é o que tenho no trabalho Sad .
    para dar tópico como resolvido https://www.maximoaccess.com/t860-resolucao-de-topicos
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Porque não funciona access 2016 64 bits Empty Re: [Resolvido]Porque não funciona access 2016 64 bits

    Mensagem  DamascenoJr. 4/4/2021, 12:56

    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: 16/6/2021, 14:30