Discussion :

[climz]

Bonjour à tous
Voila j'ai crée un formulaire qui permet d'ajouter un utilisateur jusque la tout va bien. Mais après cette ajout il faut que je remplisse d'autre table avec le Chrono (id) de cette utilisateur et la je ne sais pas comment faire
Voila mon 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
20
21
22
Private Sub Commande5_Click()
 
 
DoCmd.SetWarnings False
If Not Nom = Empty And Not Prenom = Empty And Not Groupe = Empty Then
    DoCmd.RunSQL "INSERT INTO T_Utilisateur (Nom, Prenom, Groupe) VALUES ('" & Nom & "' , '" & Prenom & "','" & Groupe & "')"
 
 
    DoCmd.RunSQL "INSERT INTO T_TOTAL (G_Chrono, U_Chrono, Nbr_depassement, Total_mesure, Total_gaz) VALUES ('1','" & U_Chrono & "','0','0','0')"
    DoCmd.RunSQL "INSERT INTO T_TOTAL (G_Chrono, U_Chrono, Nbr_depassement, Total_mesure, Total_gaz) VALUES ('2','" & U_Chrono & "','0','0','0')"
 
 
    MsgBox ("Utilisateur ajouté")
Exit_Commande5_Click:
    DoCmd.SetWarnings True
    DoCmd.Close
Else: GoTo suite1
suite1:
MsgBox ("Valeur(s) manquante(s)")
End If
 
End Sub

Dans les requetes INSERT je met U_Chrono mais je suis bien conscient qu'il ne sais pas a quoi se referencé.
J'aurai aimé faire cela :

Code :

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

1
2
 
U_Chrono = DoCmd.RunSQL "SELECT T_UTILISATEUR.U_Chrono From T_UTILISATEUR Where T_UTILISATEUR.nom = '" & nom & "'

Mais cela ne marche pas (erreur)
Quelqu'un à t'il une solution à ce problème ou par une autre methode ?
Merci à tous

[stan21]

U_CHRONO est une valeur de quel type ?

si c'est du numérique il faut que tu fasse plutot ainsi pour tes insert into :

Code :

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

1
2
3
4
 
 
    DoCmd.RunSQL "INSERT INTO T_TOTAL (G_Chrono, U_Chrono, Nbr_depassement, Total_mesure, Total_gaz) VALUES ('1'," & U_Chrono & ",'0','0','0')"
    DoCmd.RunSQL "INSERT INTO T_TOTAL (G_Chrono, U_Chrono, Nbr_depassement, Total_mesure, Total_gaz) VALUES ('2'," & U_Chrono & ",'0','0','0')"

[climz]

Ok
mais cela ne change rien il ne connait pas la valeur de U_Chrono corréspondant au nouveau uilisateur

[Tofalu]

Bien sûr, runSQL ne s'applique qu'aux requêtes action et ne retourne pas de valeur. Pour obtenir une valeur, il faut utiliser les recordsets

http://warin.developpez.com/access/dao

[climz]

est-ce que c'est faisable avec quelque chose du genre :

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
 
 
'Déclaration des variables
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cmd As ADODB.Command
Dim prm1 As ADODB.Parameter
 
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
Set cmd = New ADODB.Command
Set prm1 = New ADODB.Parameter
'Définition du pilote de connexion
'cnx.Provider = "Microsoft.Jet.Oledb.4.0"
Chemin = ThisWorkbook.Path & "\bd4.mdb"
 
cnx.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source = " & Chemin & ";"
cnx.Execute "Update T_TOTAL Set ....................
rst.Open "INSERT INTO .....................

?

Peut etre avec un truc du genre :

Code :

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

set U_Chrono = rst.Execute("SELECT ...

Mais je n'ai que des erreur et je ne m'y connais pas tellement avec cette syntaxe

[climz]

non ?