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]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 13 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.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6434
    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: Qua 18 Out 2017, 04:59