Discussion :

[djibysadji]

Bonsoir!
J'essaie d'ajouter des utilisateurs en passant par ce code mais j'ai une erreur de compilation: Type défini par l'utilisateur et non un projet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CmdEnregistrer_Click()
Dim db As Database
Dim rs As Recordset
Dim User_id As Integer
Dim urlPhotos As String
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM T_Utilisateurs ", dbOpenDynaset)
rs.AddNew
urlPhotos = CurrentProject.Path & "\GESCOLLE_DOSSIER\Photo_Personnel\"
User_id = rs("User_id")
rs("username") = Me.TxtUser
rs("login") = Me.Txtlogin
rs("Passe") = Me.TxtPasse
rs("Tel") = Me.TxtTel
rs("Email") = Me.TxtMail
rs("Role_id") = Me.TxtRole
rs("Photo") = urlPhotos & User_id & "." & GetExtFile(Me.TxtAdrPhotoSource)

djibysadji

[djibysadji]

Bonsoir
J'ai résolu l'erreur. Il fallait écrire à la 2ème ligne du code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DAO.Datadase