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

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.

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.

Bom dia,
Conseguiu? Marque "Resolvido"

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