Gebruikersnaam onthouden en in zin laten verschijnen

[remcop1989]

Ik heb een module "gebruikers" gemaakt met dit erin:

Public Username As String
Public UserID As String

 

[remcop1989]

Het werkt nu:

Private Sub Form_Current()
   Me.Datum = Date
   Me.Offertenummer = Val(DMax("[Offertenummer]", "[Offertes]", "[GebruikerID]=" & [GebruikerID])) + 1
   Me.GebruikerID = UserID
End Sub