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


    Adaptar Foto em Formulário para Windows10

    Walter
    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 314
    Registrado : 17/04/2011

    Adaptar Foto em Formulário para Windows10 Empty Adaptar Foto em Formulário para Windows10

    Mensagem  Walter em 28/1/2020, 22:03

    Boa noite, amigos do Forum.

    Estou tentando colocar o Aplicativo de Fotos em Formulario no meu novo Notebook. Ele funciona direitinho no antigo, com Windows 8.1 e Office 2013.
    No novo notebook, com Windows 10 e Office 2013 ele não funciona. Ao clicar no botão "Buscar Foto" não acontece nada. nenhuma menagem de erro, mas não abre nenhuma pasta. Alguem poderia tentar achar o erro, por favor? Abaixo estou anexando o arquivo.
    Muito obrigado.
    Anexos
    Adaptar Foto em Formulário para Windows10 AttachmentFoto em formulario.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (734 Kb) Baixado 13 vez(es)


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4059
    Registrado : 06/11/2009

    Adaptar Foto em Formulário para Windows10 Empty Re: Adaptar Foto em Formulário para Windows10

    Mensagem  Assis em 29/1/2020, 08:34

    Walter Bom dia

    No meu Win 10 64 Bt e Office 2013 32 Bt, funciona direitinho.

    Tem todas as actualizações do Office 2013 ?


    Adaptar Foto em Formulário para Windows10 Foto11


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6554
    Registrado : 15/03/2013

    Adaptar Foto em Formulário para Windows10 Empty Re: Adaptar Foto em Formulário para Windows10

    Mensagem  ahteixeira em 29/1/2020, 09:31

    Olá a todos,

    Walter, verifique a dica do Assis, se tem as atualizações.

    Se não resolver, veja se tópico abaixo ajuda:
    https://www.maximoaccess.com/t29422-resolvidoimagens-nao-carregam-no-relatorio-no-access-2016

    Abraço
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4564
    Registrado : 20/04/2011

    Adaptar Foto em Formulário para Windows10 Empty Re: Adaptar Foto em Formulário para Windows10

    Mensagem  Silvio em 29/1/2020, 11:06

    Boas....só um pitaco.

    Walter, precisa ver qual a versão do teu Office no notebook antigo.

    Provavelmente, você deve estar usando uma versão 64bits no teu novo notebook e do teu antigo, deve ser 32bits.

    Além do mais, veja as dicas do Assis.

    Adendo: aqui no meu..Win10 Pro 64bits, Ms Office 2010 SP1- 32bits...tudo funcionando perfeitamente.


    Última edição por Silvio em 29/1/2020, 11:09, editado 1 vez(es) (Razão : acréscimo de adendo.)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Walter
    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 314
    Registrado : 17/04/2011

    Adaptar Foto em Formulário para Windows10 Empty Re: Adaptar Foto em Formulário para Windows10

    Mensagem  Walter em 29/1/2020, 11:23

    Bom dia, Silvio.
    Onde eu vejo a versão? Se é 64 ou 32?

    Um abraço.


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4564
    Registrado : 20/04/2011

    Adaptar Foto em Formulário para Windows10 Empty Re: Adaptar Foto em Formulário para Windows10

    Mensagem  Silvio em 29/1/2020, 11:46

    Abra qualquer arquivo do Word ou Excel ou Access.

    Vá no menu superior, localizar..."Arquivo". Clicar.
    Depois em ajuda.
    Irá aparecer na tela logo abaixo de:" Sobre o Microsoft Access ".


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Walter
    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 314
    Registrado : 17/04/2011

    Adaptar Foto em Formulário para Windows10 Empty Re: Adaptar Foto em Formulário para Windows10

    Mensagem  Walter em 29/1/2020, 11:52

    Isso mesmo, Silvio.
    O antigo é 32 e o novo é 64 bits.
    Tem como resolver isso?


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4564
    Registrado : 20/04/2011

    Adaptar Foto em Formulário para Windows10 Empty Re: Adaptar Foto em Formulário para Windows10

    Mensagem  Silvio em 29/1/2020, 12:11

    Bom, tem até tem.

    O caminho mais fácil e simples...tira esse de 64bits e instala um de 32bits com o Service pack atualizado.

    Eu, particularmente, não entendo o porque de colocar um Office de 64bits, mundialmente é pouco usado.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Walter
    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 314
    Registrado : 17/04/2011

    Adaptar Foto em Formulário para Windows10 Empty Re: Adaptar Foto em Formulário para Windows10

    Mensagem  Walter em 29/1/2020, 12:52

    Hum!
    Se tiver um jeito de adaptar os códigos, talvez fosse melhor. Estou com medo de trocar o Office para 32 bits e não ser esse o problema.... Sei que nas instruções que têm "Declare" devo mudar para "Declare PtrSafe", mas acho que isso não é suficiente nesse caso. Tem outras modificações necessárias.
    Vou colocar os códigos abaixo e ver se alguém pode adapta-lo para mim:

    No Formulário tem esses:

    --------------------------------- -

    Private Sub BuscaFoto_Click()
    Dim s As String
    s = OpenCommDlg()
    If s <> "" Then
    foto = s
    foto_AfterUpdate
    End If
    End Sub


    ------------------------------ -

    Private Sub Comando17_Click()
    DoCmd.OpenForm "Fml_Tutorial"
    End Sub


    -------------------------------- -

    Private Sub Form_Current()
    foto_AfterUpdate
    End Sub


    ---------------------------------------------- -

    Private Sub foto_AfterUpdate()
    Dim s As String
    s = Nz(foto.Value, "")
    If s <> "" Then s = IIf(Dir(s) = "", "", s)
    On Error Resume Next
    Imagem3.Picture = s
    If Err.Number <> 0 Then Imagem3.Picture = ""
    On Error GoTo 0
    End Sub


    -------------------------------------------------- -

    E o 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 PtrSafe 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 = ("C:\Users\walte\Desktop\Materlândia Estratégia de Saúde da Familia\MinhasFotos")
    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



    Será que é possível adaptar???





    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Adaptar Foto em Formulário para Windows10 Empty Re: Adaptar Foto em Formulário para Windows10

    Mensagem  DamascenoJr. em 30/1/2020, 00:29

    Até um tempo atrás eu também usava esta forma buscar arquivos, porém substitui por outra que julguei ser mais "limpa". Veja se ela resolve seu problema.

    A referência Microsoft Office XX.0 Access database engine Object Library deve está habilitada.

    No seu módulo use apenas isso
    Código:
    Option Compare Database
    Option Explicit

    Public Function fncLocalizarArquivo() As String
    On Error GoTo trataerro
        
        Dim fd As Office.FileDialog
        
        Set fd = Application.FileDialog(msoFileDialogOpen)
        
        With fd
        
            With .Filters
                .Clear
               '.Add "Arquivo PDF", "*.pdf", 1
                .Add "Arquivo SUAEXTENSAO", "*.SUAEXTENSAO", 1
            End With
            
            .Title = "Selecione o arquivo"
            .AllowMultiSelect = False
            .InitialFileName = "c:\"
            .InitialView = msoFileDialogViewPreview
            
            If .Show Then fncLocalizarArquivo = .SelectedItems(1)

        End With
        
    sair:
        Exit Function
        
    trataerro:
        fncLocalizarArquivo = ""
        Resume sair:
        
    End Function

    Um exemplo propriamente para buscar arquivos de imagem, e que usa a dica acima, é mostrada no tópico abaixo.

    https://www.maximoaccess.com/t37121-editando-imagens-access-com-paint#253633


    .................................................................................
    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.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Adaptar Foto em Formulário para Windows10 Empty Re: Adaptar Foto em Formulário para Windows10

    Mensagem  DamascenoJr. em 8/2/2020, 22:47

    Algum avanço, Walter?


    .................................................................................
    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.

    Conteúdo patrocinado

    Adaptar Foto em Formulário para Windows10 Empty Re: Adaptar Foto em Formulário para Windows10

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/4/2020, 05:18