MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Variável em Módulo Global Não Guarda a Informação

    Compartilhe

    kleyton_ribeiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 19/05/2014

    [Resolvido]Variável em Módulo Global Não Guarda a Informação

    Mensagem  kleyton_ribeiro em Sab 20 Set 2014, 01:18

    Criei um Módulo Global, assim:

    Código:
    Option Compare Database
    Option Explicit
    Public MAT As Long

    Tenho um formulário com vários subformulários em Guias de Navegação, e ao mudar de uma guia para a outra usei

    Código:
    MAT = Me.Matrícula
    no evento ao sair

    e ao carregar cada guia usei esse código:

    Código:
    Private Sub Form_Open(Cancel As Integer)
    Dim rst As Recordset
    Set rst = Me.RecordsetClone

        With rst
             .FindFirst "Matrícula = " & MAT & ""
             Me.Bookmark = .Bookmark
        End With
        
    Set rst = Nothing 'libera a memória

    End Sub

    Só fica em uma matrícula, mesmo que eu mude de registro ela sempre abre no mesmo registro, nunca muda.

    Essa é a última etapa do meu projeto que está anexo e que foi todo desenvolvido com a ajuda desse fórum e do usandoaccess.
    Anexos
    FichaIndividual.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (2 Mb) Baixado 9 vez(es)

    kleyton_ribeiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 19/05/2014

    Re: [Resolvido]Variável em Módulo Global Não Guarda a Informação

    Mensagem  kleyton_ribeiro em Dom 21 Set 2014, 04:04

    Foi muito teste, verificando cada um dos eventos, em cada objeto do formulários e do subformulário.

    Mas consegui!!!
    O evento que guarda a [Matrícula] tem que ser colocada no "Evento do SubformuláriodeNavegação"

    Não é no subformulário e nem no formulário principal, no modo desing quando selecionada a borda do subformulário antes de ativar o subformulário com o clique seguinte.

    com o seguinte código:

    Código:
    Private Sub SubformuláriodeNavegação_Exit(Cancel As Integer)
        If IsNull([Forms]![FICHA]![SubformuláriodeNavegação].[Form]![Matrícula]) Then
            Exit Sub
        Else
            MAT = [Forms]![FICHA]![SubformuláriodeNavegação].[Form]![Matrícula]
        End If
    End Sub

    para quem tiver interesse, vou finalizar o projeto e posto no repositório com o mesmo nome desses anexos.

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Variável em Módulo Global Não Guarda a Informação

    Mensagem  Alexandre Neves em Dom 21 Set 2014, 09:51

    Bom dia,
    Conseguiu? Marque "Resolvido"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    kleyton_ribeiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 19/05/2014

    Re: [Resolvido]Variável em Módulo Global Não Guarda a Informação

    Mensagem  kleyton_ribeiro em Dom 21 Set 2014, 15:00

    Obrigado pelo fórum, ainda tem mais duas dúvidas!!!!! hahaha

      Data/hora atual: Dom 04 Dez 2016, 06:06