Discussion :

[meywey]

bonjour , j'ai un souci , j'ai developpé une base de données sous Access 2007 et j'ai crée des formulaires, maintenant j'aimerais rajouter des enregistrements à des tables de ma base de données grace à des boutons de commande.je rencontre deux problème , tout d'abrod lorsque je souhaite ajouter la reference Microsoft DAO 3.6 Object library , le message suivant apparait: " nom de module de projet ou de bibliothèque d'objets déjà utilisé "
Par ma suite j'ai lu qu'on avait pas besoin de rajouter la reference avec Access 2007 ; Alors j'ai crée mes bouton de commande et j'ai saisi le code suivant dans ma procédure:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Enregistrer_Click()
Dim MaBD As Database
Dim MaTable As Recordset
Dim MonControle As Control
Dim f As Form
 
MsgBox "test ok", vbInformation, "ok"
 
Set MaBD = CurrentDb()
Set f = Forms!FormCreerAuditeur
Set MaTable = MaBD.OpenRecordset("TBSITE", dbOpenDynaset)
 
MaTable.AddNew
 
MaTable!IdAuditeur = f!IdAuditeur
MaTable!FirstNameAud = f!FirstNameAud
MaTable!LastNameAud = f!LastNameAud
 
MaTable.Update
MaTable.Close
MaBD.Close
MsgBox "enregistrement reussi", vbInformation, "ok"
 
For Each MonControle In f.Controls
    If MonControle.ControlType = acTextBox Then
        MonControle = Null
    End If
Next MonControle
f!IdAuditeur.SetFocus
End Sub

et rien ne marche , lorsque j'effectue un enregistrement . j'aimerais donc savoir où peut se siteur le problème.
et ma dernière question est de savoir si on peut ecrire ce code à un formulaire rattaché à une table lors de sa création???

Merci d'avance.

[helas]

Bonjour,
En effet la référence DAO est déjà installée

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Enregistrer_Click()
Dim MaBD As DAO.Database
Dim MaTable As DAO.Recordset
Dim MonControle As Control
Dim f As Form
 
MsgBox "test ok", vbInformation, "ok"
 
Set MaBD = CurrentDb()
Set f = Forms!FormCreerAuditeur
Set MaTable = MaBD.OpenRecordset("TBSITE", dbOpenDynaset)
 
MaTable.AddNew
 
MaTable!IdAuditeur = f!IdAuditeur
MaTable!FirstNameAud = f!FirstNameAud
MaTable!LastNameAud = f!LastNameAud
 
MaTable.Update
MaTable.Close
MaBD.Close
MsgBox "enregistrement reussi", vbInformation, "ok"
 
For Each MonControle In f.Controls
    If MonControle.ControlType = acTextBox Then
        MonControle = Null
    End If
Next MonControle
f!IdAuditeur.SetFocus
End Sub

Cela devrait fonctionner

[novice06]

ou une struture de code comme celle-ci qui revient au même mais à connaitre pourquoi pas !?

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub Enregistrer_Click()
Dim MaBD As DAO.Database:Set MaBD = CurrentDb()
Dim MaTable As DAO.Recordset:Set MaTable = MaBD.OpenRecordset("TBSITE", dbOpenDynaset)
Dim f As Form:Set f = Forms!FormCreerAuditeur
Dim MonControle As Control
 
MsgBox "test ok", vbInformation, "ok"
 
With MaTable
    .AddNew
    !IdAuditeur = f!IdAuditeur
    !FirstNameAud = f!FirstNameAud
    !LastNameAud = f!LastNameAud
    .Update
End With
 
MaTable.Close
MaBD.Close
Set MaTable = Nothing
Set MaDB = Nothing
 
MsgBox "enregistrement reussi", vbInformation, "ok"
 
For Each MonControle In f.Controls
    If MonControle.ControlType = acTextBox Then
        MonControle = Null
    End If
Next MonControle
f!IdAuditeur.SetFocus
 
 
End Sub