Bonjour,

(urgent : j'en ai besoin pour demain :s)

petit "problème" concernant un champ ...

J'ai une table access que je manipule via vb6 mais je tombe sur un petit "problème" .. enfin pour moi en tant que débutant ^^

Alors voila je fais la requete suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
cmd.Open "Select * From Commandes", cnx, adOpenDynamic, adLockOptimistic
 
 
cmd.AddNew
cmd.Fields("design_command").Value = txt_design.Text
cmd.Fields("date_command").Value = txt_date.Text
cmd.Fields("paiement_command").Value = Combo1.Text
cmd.Fields("n_user").Value = user("n_user")
cmd.Update
La table Détail_Commandes est en relation avec la table commande et j'enchaine donc avec un :

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
 
desgn.Open "Select n_command From Commandes where design_command like '" & txt_design.Text & "'", cnx, adOpenDynamic, adLockOptimistic
 
dcmd.Open "Select * From Détail_Commandes", cnx, adOpenDynamic, adLockOptimistic
 
 
With FlexGrid
For lRow = .FixedRows + 1 To .Rows - 1 ' Process all rows except fixed ones
 
    dcmd.AddNew
    dcmd.Fields("n_produit").Value = .TextMatrix(lRow, 0)
    dcmd.Fields("qte_dcommand").Value = .TextMatrix(lRow, 4)
    dcmd.Fields("n_command").Value = desgn("n_command")
    dcmd.Update
 
Next lRow
le souci est que si la désignation de la commande existe déjà, il va (d'apres les test effectués) soit l'enregistré dans la mauvaise commande soit ne pas l'enregistré du tout ...

Donc ce que j'aimerai bien faire c'est une vérification sur la désignation de la commande ... qu'elle soit unique ! mais je ne sais pas comment faire ..

ou alors ce qui serait encore mieux c'est de récup l'id de la commande qui vient d'être enregistré (les deux requete s'éxecute à le suite) mais c'est un numéro auto donc ...

Si quelqu'un peu m'aider ce serait génial

Cordialement, Didier.