Discussion :

[titeZ]

Oups j'avais pas mis de balise sorry

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 :

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

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)

[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.

[titeZ]

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

mais conditions comment puis-je les mettre la dedans

[mout1234]

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 :

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
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

[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

^^

[mout1234]

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!

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 :

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
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