Bij tekstbox enter mesbox 1 malig laten komen

[patrickje]

Hoi

Ik heb deze code gemaakt.

Private Sub T1_Enter()
MsgBox "Gelieve het mesnummer op deze manier invullen A-1234"
End Sub

Alleen als ik nu elke keer op de tekstbox klik krijg ik elke keer de melding.

Is het mogelijk om dit 1 malig te laten komen ??

M.V.G.

 

[Basenburgen]

Misschien kun je een tijdelijke variabele gebruiken

Private Sub T1_Enter()
If IsNull(TempVars!tmpMelding) = True Then
MsgBox "Gelieve het mesnummer op deze manier invullen A-1234"
End if
TempVars.Add "tmpMelding", "1"
End Sub

Bij het formulier laden zou ik automatisch de tmpMelding laten wissen zodat je altijd opnieuw begint.

succes

 

[patrickje]

Hoi Bassenburgen

Dank je voor je snelle reactie
Maar als ik deze code invoer dan krijg ik een foutmelding bij de 2de regel.

Ik ben zelf niet zo ver thuis in VBA
Kan je me iets verder helpen /??

 

[Basenburgen]

Ik ben er ook nog mee bezig om het mezelf aan te leren.
Ik dacht dat VBA universeler was dan het blijkbaar is.
Sorry bij Excell werkt deze manier blijkbaar niet.

heb je misschien een voorbeeld bestandje?

 

[Roncancio]

Dim bMelding As Boolean

Private Sub T1_Enter()
If bMelding = False Then
'''Je bericht
End If
bMelding = True
End Sub

Met vriendelijke groet,


Roncancio