Discussion :

[kpitaine]

Bonjour à tous,

J'essaye de rentrer mes données (issues de la saisie par différents utilisateurs dans un userform) dans une base de données acces BDD.mbd (avec une table Management contenant les champs: Utilisateur, Projet, Tache, Temps et Date). Le pb est que mon code ne fonctionne pas, et malgrès tout ce que je peux lire, je ne comprend pas pourquoi (la galère quand on est novice!).
Si une ame charitable pouvait me venir en aide...

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
Dim db As Database, rs As Recordset, r As Long
    Set db = OpenDatabase("C:\Users\c.dugue\Desktop\matthieu keip\Antares Managemnt\BDD.mdb")
    ' open the database
    Set rs = db.OpenRecordset("Management", dbOpenTable)
    ' get all records in a table
          With rs
            .AddNew ' create a new record
            ' add values to each field in the record
            .Fields("Projet") = UserForm1.ComboBox1
            .Fields("Utilisateur") = UserForm1.ComboBox2
            .Fields("Taches") = UserForm1.ComboBox3
            .Fields("Temps") = UserForm1.TextBox1 & " : " & UserForm1.TextBox2
            .Fields("Date") = Date
            ' add more fields if necessary...
            .Update ' stores the new record
        End With
 
rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing

Merci d'avance pour votre aide.

[youn1096]

bonjour,

essayes ce code:

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
 
 
 Sub enregistrer()
 
 Dim cnn As ADODB.Connection
 Dim sql As String
 Dim ChaineDeConnexion As String
 
 ChaineDeConnexion = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\Users\c.dugue\Desktop\matthieu keip\Antares Managemnt\BDD.mdb; ReadOnly=False"
    Set cnn = New ADODB.Connection
    cnn.ConnectionString = ChaineDeConnexion
    cnn.Open
 
    sql = "Insert into Management (Projet,Utilisateur,Taches,Temps,Date) values " & _
    "('" & UserForm1.ComboBox1.Value & "','" & UserForm1.ComboBox2.Value & "','" & UserForm1.ComboBox3.Value & "'," & UserForm1.TextBox1 & " : " & UserForm1.TextBox2 & ",#" & Date & "#)"
 
    cnn.Execute (sql)
 
 End Sub

pour tes valeurs :
- si c'est du texte faut que ton combobox soit entre ' ' : exemple :

Code :

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

 "'" & UserForm1.ComboBox3.Value & "'"

-si c'est numérique alors tu met rien : exemple:

Code :

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

 "" & UserForm1.ComboBox3.Value & ""

- si c'est une date alors entre # # : exemple:

Code :

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

 ",#" & Date & "#)"

tu doit préalablement activer la référence Microsoft ActiveX Data Objects x.x Library
Dans l'éditeur de macros:
Menu Outils.
Références.
Coche la ligne "Microsoft ActiveX Data Objects x.x Library".
Cliquez sur le bouton OK pour valider.

x.x dépend de la version installée sur ton poste.


et aussi la référence Microsoft ADO ext x.x for DLL and Security.

tu trouveras un bon tuto sur cette page :
http://silkyroad.developpez.com/VBA/ClasseursFermes/

Cdt.

[kpitaine]

Merci bcp pour ton aide. Il semblerait néanmoins qu'il subsiste un bug dans la requete... Connais-tu ce message d'erreur (voir en piece jointe)?
Merci.

[youn1096]

Bonjour,

Oui je connais ce message, n'ayant pas ta base de donnée et donc ne sachant pas comment est faite ta table je n'ai fait que te donner un exemple:

lis bien les précision après ou envoi moi une copie d'ecran de ta table en mode creation (nom du champ , type de donnée) ainsi qu'une copie ecran de ton userform

merci

[kpitaine]

Alors voici ma capture pour la bdd. Pour le userform, il n'y a pas de souci, on a bien les bons types.

[youn1096]

Bonjour,

désolé pour cette réponse tardive, les deux problèmes c'est les deux points dans temps qui est numérique donc le " : " n'est pas accepté, et le nom du champ "Date" qui est un mot réservé,
solution: tu changes ton champs temps en texte ou date ou alors t'enlèves les deux points pour laisser seulement une valeur numérique, et surtout tu renommes ton champs "Date" par quelque chose comme "DateProjet" comme tu veux

Cdt