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]Código 64 bits

    Rui Maciel
    Rui Maciel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 298
    Registrado : 11/09/2012

    [Resolvido]Código 64 bits Empty Código 64 bits

    Mensagem  Rui Maciel em 3/12/2012, 11:44

    Tenho a função bacAccessHide para 32 bits do office, contudo, gostaria de contar com a ajuda de algum membro para compor a função para as versões 32 e 64 bits do office. Obrigado.

    Com os melhores cumprimentos,

    Rui Maciel
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  JPaulo em 3/12/2012, 12:20

    Ola seja bem vindo ao fórum;

    Para o 64 Bits tem de declarar o PtrSafe


    Private Declare PtrSafe Function bla bla bla

    Deveria checkar a versão, antes das instruções com um #If VBA7 Then

    http://msdn.microsoft.com/en-us/library/office/ee691831(v=office.14).aspx



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Código 64 bits Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Código 64 bits Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Código 64 bits Folder_announce_new Instruções SQL como utilizar...
    Rui Maciel
    Rui Maciel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 298
    Registrado : 11/09/2012

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  Rui Maciel em 3/12/2012, 14:30

    Carissímo JPaulo, em baixo segue a função, quais as alterações que tenho que fazer, é que sou mesmo novato nisto. Obrigado
    Cumprs.,

    Rui Maciel

    Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
    Dim dwReturn As Long

    Const SW_HIDE = 0
    Const SW_SHOWNORMAL = 1
    Const SW_SHOWMINIMIZED = 2
    Const SW_SHOWMAXIMIZED = 3

    Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long

    Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
    If Procedure = "Hide" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
    End If
    If Procedure = "Show" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
    End If
    If Procedure = "Minimize" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
    End If
    If SwitchStatus = True Then
    If IsWindowVisible(hWndAccessApp) = 1 Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
    Else
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
    End If
    End If
    If StatusCheck = True Then
    If IsWindowVisible(hWndAccessApp) = 0 Then
    fAccessWindow = False
    End If
    If IsWindowVisible(hWndAccessApp) = 1 Then
    fAccessWindow = True
    End If
    End If
    End Function
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  JPaulo em 3/12/2012, 16:24

    Seria isto;


    #If VBA7 Then

    Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
    Dim dwReturn As Long

    Const SW_HIDE = 0
    Const SW_SHOWNORMAL = 1
    Const SW_SHOWMINIMIZED = 2
    Const SW_SHOWMAXIMIZED = 3

    Private Declare PtrSafe Function ShowWindow Lib "user32" ( ByVal hWnd As LongPtr, _
    ByVal nCmdShow As Long ) As Boolean

    #Else

    Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
    Dim dwReturn As Long

    Const SW_HIDE = 0
    Const SW_SHOWNORMAL = 1
    Const SW_SHOWMINIMIZED = 2
    Const SW_SHOWMAXIMIZED = 3

    Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long

    End If


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Código 64 bits Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Código 64 bits Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Código 64 bits Folder_announce_new Instruções SQL como utilizar...
    Rui Maciel
    Rui Maciel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 298
    Registrado : 11/09/2012

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  Rui Maciel em 3/12/2012, 17:05

    FANTÁSTICO OBRIGADO JPAULO

    Contudo, como tenho duas macros mrcHide e mcrRestore, onde mando executar a função dá erro, isto é, não aparece o formulário de login entra direto para o vba. Como posso resolver este problema. Desde já agradeço a atenção e tempo dispensado. Obrigado.

    Cumprimentos,

    Rui Maciel
    GCONTABIL
    GCONTABIL
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 17/12/2011

    [Resolvido]Código 64 bits Empty Faltou declarar aqui tb

    Mensagem  GCONTABIL em 3/12/2012, 23:53

    #If VBA7 Then

    Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
    Dim dwReturn As Long

    Const SW_HIDE = 0
    Const SW_SHOWNORMAL = 1
    Const SW_SHOWMINIMIZED = 2
    Const SW_SHOWMAXIMIZED = 3

    Private Declare PtrSafe Function ShowWindow Lib "user32" ( ByVal hWnd As LongPtr, _
    ByVal nCmdShow As Long ) As Boolean

    #Else

    Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
    Dim dwReturn As Long

    Const SW_HIDE = 0
    Const SW_SHOWNORMAL = 1
    Const SW_SHOWMINIMIZED = 2
    Const SW_SHOWMAXIMIZED = 3

    Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long

    End If
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  JPaulo em 4/12/2012, 09:24

    Gilson bom dia;

    Não entendi a sua ajuda;

    Se for VBA7 coloca o PtrSafe e se não for coloca também o PtrSafe ????


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Código 64 bits Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Código 64 bits Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Código 64 bits Folder_announce_new Instruções SQL como utilizar...
    Rui Maciel
    Rui Maciel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 298
    Registrado : 11/09/2012

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  Rui Maciel em 4/12/2012, 09:45

    Mesmo assim não funciona, pois acho que o PtrSafe só vale se for para VBA7, envio em anexo a base de dados para dar uma vista de olhos. Ao entrar quero que apareça o login aparecendo o menu principal. Se por acaso der para melhorar agradeço.
    Cumprimentos,
    Rui Maciel
    Anexos
    [Resolvido]Código 64 bits AttachmentParóquia de Nogueira.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (681 Kb) Baixado 26 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  JPaulo em 4/12/2012, 10:37

    Option Compare Database

    #If VBA7 Then
    Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
    Dim dwReturn As Long
    Const SW_HIDE = 0
    Const SW_SHOWNORMAL = 1
    Const SW_SHOWMINIMIZED = 2
    Const SW_SHOWMAXIMIZED = 3
    Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, _
    ByVal nCmdShow As Long) As Boolean
    #Else
    Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
    Dim dwReturn As Long
    Const SW_HIDE = 0
    Const SW_SHOWNORMAL = 1
    Const SW_SHOWMINIMIZED = 2
    Const SW_SHOWMAXIMIZED = 3
    Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long
    #End If


    Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
    If Procedure = "Hide" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
    End If
    If Procedure = "Show" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
    End If
    If Procedure = "Minimize" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
    End If
    If SwitchStatus = True Then
    If IsWindowVisible(hWndAccessApp) = 1 Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
    Else
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
    End If
    End If
    If StatusCheck = True Then
    If IsWindowVisible(hWndAccessApp) = 0 Then
    fAccessWindow = False
    End If
    If IsWindowVisible(hWndAccessApp) = 1 Then
    fAccessWindow = True
    End If
    End If
    End Function


    Anexos
    [Resolvido]Código 64 bits AttachmentParóquia de Nogueira_II.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (448 Kb) Baixado 74 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Código 64 bits Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Código 64 bits Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Código 64 bits Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  JPaulo em 4/12/2012, 10:39

    O If para o VBA7 só é compreendido sempre que executar VBA 7 (por exemplo, Office 2010).
    Como o Office 2003 não tem VBA7, corre a parte no Else.
    Isso permitirá que você continue usando a API sem alterações.


    Os controles ActiveX são provavelmente, o mais problemático.
    Neste ponto, não há substituições de 64 bits para os controlos ActiveX comuns tais como TreeView, ListView e assim por diante.
    Você pode ter que investir em um controle ActiveX de terceiros para ambas as plataformas 32-bit e 64-bit.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Código 64 bits Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Código 64 bits Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Código 64 bits Folder_announce_new Instruções SQL como utilizar...
    Rui Maciel
    Rui Maciel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 298
    Registrado : 11/09/2012

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  Rui Maciel em 4/12/2012, 12:20

    Caro JPaulo Obrigado

    As alterações que fez no projeto foram necessárias para o funcionamento normal da base de dados? É que por exemplo a numeração deixou de estar automática?
    Quais são os controles ActiveX necessários e como posso consegui-los.
    Cumprimentos e muito grato pela ajuda,
    Rui Maciel
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  JPaulo em 4/12/2012, 12:24

    Isso acontece porque converti do Access 2010 para o 2007.

    Não use esse banco que lhe enviei, apenas veja o que fiz nos códigos e replique para o seu banco.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Código 64 bits Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Código 64 bits Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Código 64 bits Folder_announce_new Instruções SQL como utilizar...
    Rui Maciel
    Rui Maciel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 298
    Registrado : 11/09/2012

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  Rui Maciel em 4/12/2012, 14:36

    Boa tarde JPaulo

    Qual foi a parte dos códigos que alterou, pois, estão iguais aos meus, foi a parte vba? Não estou conseguindo aplicar. O erro que está a dar é Compile error "Function call on left-hand side of assignment must return variant or object", no modulo basAccessWindow onde diz:

    If procedure = "Hide" Then
    ........
    fAccessWindow = False

    Agradeço a compreensão. Obrigado.

    Cumprimentos,

    Rui Maciel
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  JPaulo em 4/12/2012, 15:53

    Repare que no seu, você tem o #End If, após a função.

    Na minha alteração, o #End If, faz parte apenas da checagem da versão, deixando a função de fora.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Código 64 bits Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Código 64 bits Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Código 64 bits Folder_announce_new Instruções SQL como utilizar...
    Rui Maciel
    Rui Maciel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 298
    Registrado : 11/09/2012

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  Rui Maciel em 4/12/2012, 16:00

    Anexo o ficheiro para poder verificar. Obrigado.
    Cumprimentos,
    Rui Maciel
    Anexos
    [Resolvido]Código 64 bits AttachmentParóquia de Nogueira.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (681 Kb) Baixado 9 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  JPaulo em 4/12/2012, 16:16

    Mudei-lhe o código para um outro.

    A chamada da função que esconde a janela do Ms Access, é feita no primeiro formulario "Login".



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Código 64 bits Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Código 64 bits Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Código 64 bits Folder_announce_new Instruções SQL como utilizar...
    Rui Maciel
    Rui Maciel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 298
    Registrado : 11/09/2012

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  Rui Maciel em 4/12/2012, 16:59

    As macros ficam sem efeito nesse caso?
    No menu principal se eu quiser voltar à base de dados não consigo. O que posso fazer, tem a ver com a nova função.
    Abraço,
    Rui Maciel
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  JPaulo em 4/12/2012, 17:08

    Sim, as macros ficam sem efeito.

    Para entrar na estrutura da base de dados, entre com a tecla shift pressionada.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Código 64 bits Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Código 64 bits Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Código 64 bits Folder_announce_new Instruções SQL como utilizar...
    Rui Maciel
    Rui Maciel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 298
    Registrado : 11/09/2012

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  Rui Maciel em 4/12/2012, 17:19

    Obrigado JPaulo
    Isso eu percebo o que queria dizer era que o botão que eu tenho no formulário menu principal para configurar BD depois de inserir a password não aparece a base de dados com a tabela arquivo de clientes. será que é possivel arranjar esse botão?
    De resto eu mimo, obrigado
    Rui Maciel
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  JPaulo em 4/12/2012, 17:56

    Para que o banco continue com uma imagem mais profissional, acesse à tabela através de um novo formulario continuo, para que o codigo continue a funfar.

    É só aperfeiçoar;



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Código 64 bits Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Código 64 bits Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Código 64 bits Folder_announce_new Instruções SQL como utilizar...
    Rui Maciel
    Rui Maciel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 298
    Registrado : 11/09/2012

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  Rui Maciel em 4/12/2012, 18:15

    Grato pela ajuda.
    Abraço,
    Rui Maciel
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  JPaulo em 5/12/2012, 08:54

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Código 64 bits Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Código 64 bits Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Código 64 bits Folder_announce_new Instruções SQL como utilizar...
    Rui Maciel
    Rui Maciel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 298
    Registrado : 11/09/2012

    [Resolvido]Código 64 bits Empty Formulário imprimir não funciona

    Mensagem  Rui Maciel em 5/12/2012, 18:11

    Boa tarde João Paulo
    Desculpe estar novamente a chatear, pois, sei que o mestre tem muito em que pensar, o aplicativo dá um erro ao sair com o botão "Sair" no "Menu Principal", fica aberto a base de dados, assim como, dá um erro de compilação, não sempre, ao entrar. Aproveito para que dê uma vista de olhos, é que não consigo que o formulário "frmImprimir", que consegui através do forum, bem hajam, abra no formulário "Menu principal", só abre quando entro com a tecla shift.
    Grato pela atenção dispensada, aguardando uma resposta sua,
    Rui Maciel
    Anexos
    [Resolvido]Código 64 bits AttachmentParóquia de Nogueira - Cópia - Cópia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (742 Kb) Baixado 9 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  JPaulo em 6/12/2012, 11:19

    Todos os formularios e relatorios têm de ter popup=sim e janela restrita=sim.

    O formulario "frmImprimir", tinha alguns erros, já corrigidos e comentados com a data de hoje.

    Obs:
    Quando necessitar de ajuda neste fórum, por favor, evite dirigir-se a uma unica pessoa, o fórum tem 16.200 usuários e muitos são expert`s na materia.



    Anexos
    [Resolvido]Código 64 bits AttachmentParóquia de Nogueira_OLD_2012-12-06.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (449 Kb) Baixado 89 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Código 64 bits Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Código 64 bits Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Código 64 bits Folder_announce_new Instruções SQL como utilizar...
    Rui Maciel
    Rui Maciel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 298
    Registrado : 11/09/2012

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  Rui Maciel em 6/12/2012, 11:52

    Para a próxima já sei João Paulo.
    O problema está resolvido. Obrigado. Às vezes as pequenas coisas escapam. Considere sem efeito o novo tópico que enviei hoje.
    Abraço,
    Rui Maciel
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1030
    Registrado : 23/01/2018

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  crysostomo em 8/5/2019, 17:36

    Olá JPaulo, boa tarde, eu ainda utilizo a 32 bits, sei que mas pra frente vou ter problemas, eu vi todas as mensagens desse tópico, mas não compreendi.
    Existe um arquivo definitivo para declaração ou terei que declarar ptrsafe em todas as function?


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado

    [Resolvido]Código 64 bits Empty Re: [Resolvido]Código 64 bits

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/12/2019, 15:20