variabele bij openen vastleggen

[jwaque]

Ik wil dat mensen op meerdere plekken in de database hun naam achter laten. Dit is vervelend voor mensen dus ik wil dat dat automatisch gebeurt. Hoe kan ik een variabel bij het openen van de database laten invoeren (inputbox) en overal verder in formulieren gebruiken. Nu laat ik bij ieder nieuw formulier opnieuw de initialen opgeven.

Ik heb nu onderstaande code. De variabele paraaf is in dit formulier te gebruiken maar niet in anderen. Ik had ook een module gemaakt met deze code maar ik kan dan in een formulier wel de module oproepen maar niet de variabele.

alvast bedankt voor jullie oplossingen

Option Compare Database
Dim paraaf As String


Public Sub Form_Open(Cancel As Integer)
'Dim paraaf As String

paraaf = InputBox("geef initialen")

End Sub

wat ik er oa mee wil doen

Private Sub MOArtnr_AfterUpdate()

Me.MOass = paraaf

End Sub

 

[rwellner]

Beste,

Probeer het eens met een public variabele.

Vb. Public strInitialen As String

Eenmalig de initialen laten invullen bij het opstarten en dan moet je naar mijn idee dit overal kunnen gebruiken..

 

[jwaque]

helaas mijn msgbox is nog steeds leeg. waarschijnlijk zet ik de variabele niet op de goede plaats of roep ik hem onjuist aan.

 

[OctaFish]

Je moet hem declareren als:

Public Paraaf as string

En die zet je dan in een algemene module.

 

[jwaque]

dank