LaurensAcces
Gebruiker
- Lid geworden
- 26 nov 2012
- Berichten
- 25
Beste Forumleden,
Wie kan mij helpen met het volgende?
In een module roep ik met onderstaande code een UserID aan welke ik gebruik om log bestanden aan te leggen
Nu heb ik in de zelfde database een formulier waar op aangegeven kan worden welke medewerker een actie op moet volgen. Dit kan ingevuld worden met een keuzelijst met invoervak. Aangezien normaal gesproken depersoon die een actie boekt deze zelf ook opvolgt wil ik graag dat de standaardwaarde van de keuzelijst met invoervak bij het openen van een nieuw formulier gelijk is aan de huidge user, maar wel de keuze houdt om een andere medewerker in te vullen.
In de database zit een aparte tabel "Medewerkers" met hierin de kolom "Medewerker" waarin de zelfde namen staan als uit de UserId() terugkomen.
Ik maak nu al gebruik van de onderstaande code voor het laden van het formulier.
Alvast bedankt voor jullie moeite!
Met vriendelijke groet,
Laurens
Wie kan mij helpen met het volgende?
In een module roep ik met onderstaande code een UserID aan welke ik gebruik om log bestanden aan te leggen
Code:
Public Function UserID() As String
UserID = VBA.Environ("username")
End Function
In de database zit een aparte tabel "Medewerkers" met hierin de kolom "Medewerker" waarin de zelfde namen staan als uit de UserId() terugkomen.
Ik maak nu al gebruik van de onderstaande code voor het laden van het formulier.
Code:
Private Sub Form_Load()
If Not Nz(Me.OpenArgs, "") = "" Then
Me.ClientNo.Value = Me.OpenArgs
End If
If Me.NewRecord Then
Me.User = UserID()
End If
End Sub
Alvast bedankt voor jullie moeite!
Met vriendelijke groet,
Laurens