vis tekst ved hjælp af mousover

Option Compare Database
Option Explicit

Private IsPopped As Boolean

Private Sub Form_Current()
    DoCmd.Close acForm, "Popup"
    IsPopped = False    
End Sub

Private Sub DinTekstboks_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Not IsPopped Then
        DoCmd.OpenForm "Popup"
        IsPopped = True
    End If
        
End Sub