Insert avec If dans VBA

Version imprimable

Oups j'avais pas mis de balise sorry:oops: :oops: :oops: :oops: :oops: :oops: :oops: :oops:

dc:
je disais

Comment puis-je faire pour faire un
INSERT dans une table access si j'ai des conditions
je m'explique

j'ai une table Contrat qui possede plusieurs champs
pour faire un update
Code:

1 2 3 4 5 6 7 8 9 10 cs_Requete = "update CONTRAT set BL_CONFIRME_=" & cs_confirme If cs_DateSignatureResil <> "" Then cs_Requete = cs_Requete + ", DT_SIGNATURE=#" & Format(cs_DateSignature, "mm/dd/yyyy") & "#" End If If cs_ConfirmSignee2Parties <> "" Then cs_Requete = cs_Requete + ", CONFIRM_SIGNEE_2_PARTIES='" & cs_ConfirmSignee2Parties & "'" End If cs_Requete = cs_Requete + " where NUM_CONTRAT='" & G_cs_NumContrat & "'"
Avec un Update un petit coup de plus et ca fonctionne mais comment faire avec un INSERT ???

Vba ( access)

09/08/2007, 16h46
mout1234

Bonjour,

Je ne vois pas bien où est ton problème...

La méthode que tu as utilisées consiste à créer par code une instruction SQL, que tu executes ensuite par un DB.execute ou un Docmd.runSQL.

Qu'il s'agisse d'un UPDATE ou d'un INSERT, tu procèdes selon la même logique.
09/08/2007, 16h48
titeZ

Pas vraiment
puisqu'on fait
INSERT INTO ( Champs 1, Champs2, Champs 3) values....

mais conditions comment puis-je les mettre la dedans:roll:

Le plus simple est sans doute de décomposer ton instruction en sous parties

Dans le genre (ce n'est qu'un exemple non testé ...)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim sFields As String
Dim sValues As String
 
If cs_DateSignatureResil <> "" Then
 
    sValues = sValues + ", #" & Format(cs_DateSignature, "mm/dd/yyyy") & "#"
    sFields = sFields + ", DT_SIGNATURE"
 
End If
 
...
 
 
 
'supprimer la première ,
sValues = Mid(sValues, 2)
sFields = Mid(sFields, 2)
 
cs_requete = "INSERT INTO (" & sFields & ") VALUES " & sValues

09/08/2007, 17h08
titeZ

:(
jviens d'essayer mais non ca ne marche pas :s

Je ne comprend pas le mid Ici vu qu'on a mis des if

^^

Citation:

Envoyé par titeZ

:(
jviens d'essayer mais non ca ne marche pas :s

Tu vas un peu vite là! je ne t'ai donné qu'une voie pas un code tout fait!

Citation:

Envoyé par titeZ

Je ne comprend pas le mid Ici vu qu'on a mis des if

Si tu as plusieurs if à suivre, tu ne peux pas savoir à l'avance lequel constituera le 1er élément de la liste.
L'idée est donc de mettre une virgule dans tout tes if, puis , une fois tous les if traités, de supprimer la première virgule en trop.
Fais plusieurs essais avec des cas de if différents en exécutant en pas à pas ...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 If cs_DateSignatureResil <> "" Then sValues = sValues + ", #" & Format(cs_DateSignature, "mm/dd/yyyy") & "#" sFields = sFields + ", DT_SIGNATURE" End If If .... Then sValues = sValues & ", ...." sFields = sFields & ", ...." End If ... 'supprimer la première , sValues = Mid(sValues, 2) sFields = Mid(sFields, 2)
Bon courage