alias666
Messages postés308Date d'inscriptionmardi 1 juin 2004StatutMembreDernière intervention23 mars 2010
-
22 nov. 2004 à 16:49
alias666
Messages postés308Date d'inscriptionmardi 1 juin 2004StatutMembreDernière intervention23 mars 2010
-
23 nov. 2004 à 10:39
Salut j'essaye d'importer des données de table en pc en fonction du pc que je sélectionne dans une combox box et ba il importe les données dans la table.
voici mon code sachant que quand j'exécute il me dit opération non valide au niveua de la requete pourquoi??
Private Sub btnRapport_Click()
Dim Rst As Recordset, Rst2 As Recordset
If cboProfil.ListIndex < 0 Then
MsgBox "Veuillez sélectionner un profil", vbInformation, "Information"
cboProfil.SetFocus
Else
If cboPc.ListIndex < 0 Then
MsgBox "Veuillez sélectionner un pc", vbInformation, "Information"
cboPc.SetFocus
Else Set Rst2 Db.OpenRecordset("INSERT INTO Impression ( Libellé, Page, Device, [Group], Item, [Value] ) SELECT TableImport.Libellé,TableImport.Page, TableImport.Device, TableImport.Group, TableImport.Item, TableImport.Value FROM TableImport, Impression where tableimport.libellé " & cboPc.List(cboPc.ListIndex), dbOpenDynaset)
Rst2.Close
End If
End If
End Sub
alias666
Messages postés308Date d'inscriptionmardi 1 juin 2004StatutMembreDernière intervention23 mars 2010 23 nov. 2004 à 10:39
Eh Jack j'ai trouvé mdr! c'est un truc tout con lol :big)
Si on regarde bien mon code, je fais un Set Rst, le hic c'est que pour faire un INSERT sachant que c'est une instruction, il faut faire un
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 22 nov. 2004 à 17:54
Salut alias666
-1- Dans tes appellations de champs, fait attention de ne jamais utiliser de mon clé d'un langage. Ici, "Value" est limite ...
-2- A la fin de ta requète : A mon avis, il manque des ' devant et derrière puisqu'il s'agit de texte :