Discussion :

[LeXo]

Bonjour

voila alors il me remonte une erreur sur

le INSERT INTO,

j'ai été ce que disais me MSNDn sur cette erreur;

il dit que c'est un Pb ave le DISTINC et je n'en ait pas

mon select marche correctement alors
ya til un mot clé a mettre en plus si s'est un insert... je ne sais 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
 
Dim rs As Recordset
 
If (CmbSociete = "" Or CmbAnnee = "" Or CmbMois = "") Then
MsgBox "Sélectionner les critères", vbInformation, "Erreur"
Else
idsoc = CmbSociete.ListIndex + 1
Set rs = base.OpenRecordset("select * from facture where idsociete=" & idsoc & ";")
If rs.RecordCount <> 0 Then
MsgBox "Facture deja crée", vbInformation, "Erreur"
Else
Set rs = base.n
Set rs = base.OpenRecordset("INSERT INTO facture (idsociete) VALUES (2);")
MsgBox "Facture créee", vbInformation, "Erreur"
End If
rs.Close
End If

[Le Pharaon]

Y'a quoi comme message d'erreur ? (je ne parle pas du code d'erreur)

[wape]

Bonjour,

Essaye plutôt comme ceci :

Code :

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

base.Execute "INSERT INTO facture (idsociete) VALUES (2);", dbFailOnError

Si tu veux vraiment passer par un recordset :

Code :

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

1
2
3
4
5
Set rs = base.OpenRecordset("facture")
rs.AddNew
rs("idsociete") = 2
rs.Update
rs.Close

wape

[LeXo]

merci le
base.execute me va tres bien


encore merci