1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
|
Private Sub Form_Load()
Dim str As String, sNom As String, sPrenom As String, sEmail As String, rst As DAO.Recordset
dim i as long ' Nous allons attribuer à cette variable l'id de l'utilisateur ou l'id créé s'il s'agit d'un nouvel utilisateur
' Je déconseille généralement de mettre des signes diacritiques sur les noms de variable (accents, tréma, cédille, etc...)
str = Environ("USERNAME")
i = Nz(DLookup("ID", "TB Requestor", "[LOGIN]='" & str & "'"), 0)
If i = 0 Then
ChoseName: ' Tu as oublié de reprendre le nom de l'ancre, tu peux en mettre dans tes procédures lorsque tu veux forcer VB à se positionner à des endroits précis du code...
sNom = InputBox("Welcome to PHISH Database! Since you're a new user, please register by providing your lastname first:")
If sNom = "" Then Resume ChoseName
ChoseFirstName:
sPrenom = InputBox("Your Firstname please:")
If sPrenom = "" Then Resume ChoseFirstName
ChoseEmail:
sEmail = InputBox("Lastly, please fill in your email:")
If sEmail = "" Then Resume ChoseEmail
Set rst = CurrentDb.OpenRecordset("TB Requestor")
rst.AddNew
rst!LOGIN = str
rst!Nom = sNom
rst!Prénom = sPrenom
rst!Email = sEmail
rst.Update
rst.Close
Set rst = Nothing
i = LastNumAuto()
MsgBox "Thank you. You are now registered in FISH."
Me.Usercombo.Requery
End If
Me.Usercombo = i
End Sub |
Partager