Vba access pb de connection bdd et pb requète [Résolu]

ffmanfan - Dernière réponse le 2 juin 2008 à 10:17

Bonjour,
J'ai un problème avec ce code il ne fonctionnent pas. je travail sur access 2007 pour un projet qui sera sur access 2003 et j'utilise un livre sur le vba access 2002.
Voilà le code:
Private Sub cmdEnreg_Click()
Dim db As Connection
DoCmd.Hourglass True
Set db = CurrentProject.Connection
db.Execute " INSERT INTO TblProduit VALUES LibProduit = " & txtNomPdt.Text & " , N°Catégorie = (SELECT N°Catégorie FROM TblCatégorieProduit WHERE LibCatégorie = " & lstCategorie.Text & " ) , Conditionnement = " & txtConditionnement.Text & " , N°Fournisseur = ( SELECT N°Fournisseur FROM TblFournisseur WHERE RaisonSociale = " & LstFournisseur.Text & " ) , RéfFournisseur = " & txtRefFourn.Text & " , Commentaire = " & txtCommentaire.Text & " ; "
db.Execute " INSERT INTO TblTarifs VALUES N°Produit = ( SELECT N°Produit FROM TblProduit WHERE LibProduit = " & txtNomPdt.Text & " ) , Année = " & txtAnnée.Text & " , DateActualisation = " & txtDateActu.Text & " , DateDébut = " & txtDateDébut & " , DateFin = " & txtDateFin & " Commentaire = " & txtCommentaire.Text
If lstCategorie.Text = "Parquet" Then
If lstTypeParquet.Text = "Massif" Then
db.Execute " INSERT INTO TblParquet VALUES N°Produit = ( SELECT N°Produit FROM TblProduit WHERE LibProduit = " & txtNomPdt.Text & " ) , Essence = ( SELECT idNatureBois FROM tblNatureBois WHERE NatureBois = " & lstNatureBois.Text & " ) , Epaisseur = " & txtEpaisseurBois.Text & " , Longueur = " & txtLongueur.Text & " , Largeur = " & txtLargeur.Text & " , Bordure = " & txtBordure.Text & " , Commentaire = " & txtCommentaire.Text & " ; "
End If
If lstTypeParquet.Text = "Contre Colé" Then
db.Execute " INSERT INTO TblParquet VALUES N°Produit = ( SELECT N°Produit FROM TblProduit WHERE LibProduit = " & txtNomPdt.Text & " ) , Essence = ( SELECT idNatureBois FROM tblNatureBois WHERE NatureBois = " & lstNatureBois.Text & " ) , Epaisseur = " & txtEpaisseurBois.Text & " , Longueur = " & txtLongueur.Text & " , Largeur = " & txtLargeur.Text & " , NombreDeFrise = " & txtNbFrise.Text & " , Commentaire = " & txtCommentaire.Text & " ; "
End If
End If
If lstCategorie.Text = "Abrasif" Then
If lstTypeAbrasif.Text = "Rouleau" Then
db.Execute " INSERT INTO TblAbrasif VALUES N°Produit = ( SELECT N°Produit FROM TblProduit WHERE LibProduit = " & txtNomPdt.Text & " ) , EpaisseurGrain = " & txtEpaisseurGrain.Text & " , Longueur = " & txtLongueur.Text & " , Largeur = " & txtLargeur.Text & " , Commentaire = " & txtCommentaire & " ; "
End If
If lstTypeAbrasif.Text = "Disque" Then
db.Execute " INSERT INTO TblAbrasif VALUES N°Produit = ( SELECT N°Produit FROM TblProduit WHERE LibProduit = " & txtNomPdt.Text & " ) , EpaisseurGrain = " & txtEpaisseurGrain.Text & " , Diamètre = " & txtDiamètre.Text & " , Commentaire = " & txtCommentaire & " ; "
End If
If lstTypeAbrasif.Text = "Bande sans fin" Then
db.Execute " INSERT INTO TblAbrsif VALUES N°Produit = ( SELECT N°Produit FROM TblProduit WHERE LibProduit = " & txtNomPdt.Text & " ) , EpaisseurGrain = " & txtEpaisseurGrain.Text & " , Longueur = " & txtLongueur.Text & " , Largeur = " & txtLargeur.Text & " , Commentaire = " & txtCommentaire & " ; "
End If
If lstTypeAbrasif.Text = "Grille" Then
db.Execute " INSERT INTO TblAbrasif VALUES N°Produit = ( SELECT N°Produit FROM TblProduit WHERE LibProduit = " & txtNomPdt.Text & " ) , Diamètre = " & txtDiamètre.Text & " , Commentaire = " & txtCommentaire & " ; "
End If
If lstTypeAbrasif.Text = "Pad" Then
db.Execute " INSERT INTO TblAbrasif VALUES N°Produit = ( SELECT N°Produit FROM TblProduit WHERE LibProduit = " & txtNomPdt.Text & " ) , Diamètre = " & txtDiamètre.Text & " , Commentaire = " & txtCommentaire & " ; "
End If
End If
If lstCategorie.Text = "Liquide" Then
db.Execute " INSERT INTO TblLiquide VALUES N°Produit = ( SELECT N°Produit FROM TblProduit WHERE LibProduit = " & txtNomPdt.Text & " ) , TypeLiquide = ( SELECT N°Type FROM TblTypeLiquide WHERE LibTypeLiquide = " & lstTypeLiquid.Text & " , Effet = " & txtEffet.Text & " , Commentaire = " & txtCommentaire & " ; "
End If
If lstCategorie.Text = "Outillage" Then
db.Execute " INSERT INTO TblOutillage VALUES N°Produit = ( SELECT N°Produit FROM TblProduit WHERE LibProduit = " & txtNomPdt.Text & " ) , N°Employé = ( SELECT idEmploye FROM tblEmployes WHERE NomEmploye = " & lstEmploye.Text & " , DateAquisition = " & txtDate.Text & " , Commentaire = " & txtCommentaire & " ; "
End If
End Sub
Merci d'avance

Vba access pb de connection bdd et pb requète »

Suggestions

Vba access pb de connection bdd et pb requète
[Access, VBA] problème avec ADOBD.connection (Résolu) » Forum
Access et VB : attacher des tables via ODBC » Forum
Connection BdD Access » Forum
[VBA] Access : chemin d'accès d'une autre bdd » Forum
Access VBA: variable = champs de la BDD » Forum

Plus

Réponse

blux 12866Messages postés 26 août 2001Date d'inscription ModérateurStatut 31 mai 2012Dernière intervention 27 mai 2008 à 09:32

Y'a un truc qui ne va pas marcher, c'est db.execute, qui ne s'applique qu'à un objet de type database, donc je pense qu'un des problèmes vient de la définition de la base courante, que veux-tu faire avec "CurrentProject.Connection" ?

Si tu veux travailler sur la base courante, il faut déclarer "db as database" et mettre "set db=currentdb", ensuite tu pourras exécuter des requêtes...

Ajouter un commentaire

Réponse

blux 12866Messages postés 26 août 2001Date d'inscription ModérateurStatut 31 mai 2012Dernière intervention 27 mai 2008 à 09:18

Salut,

si tu commençais par nous dire ce qui ne fonctionne pas : quel est le message d'erreur et à quelle ligne ? plutôt que de déposer 100 lignes de code...

Ajouter un commentaire

ffmanfan - 27 mai 2008 à 09:24

le problème viens d'abord de cette ligne:
Set db = CurrentProject.Connection

avec comme message :
Erreur d'exécution '13':
Incompatibilité de type

et désolé pour toute les lignes de codes c'est le matin et je suis mal réveillé.

Réponse

ffmanfan 27 mai 2008 à 10:09

Merci pour la connection, mais maintenant C la ligne pour db.execute qui affiche:
Erreur d'exécution '2185':
Impossible de faire référence à une propriété ou de la définir pour un contrôle si ce dernier n'est pas activé.

La ligne de code est la suivante:

db.Execute " INSERT INTO TblProduit VALUES LibProduit = " & txtNomPdt.Text & " , N°Catégorie = (SELECT N°Catégorie FROM TblCatégorieProduit WHERE LibCatégorie = " & lstCategorie.Text & " ) , Conditionnement = " & txtConditionnement.Text & " , N°Fournisseur = ( SELECT N°Fournisseur FROM TblFournisseur WHERE RaisonSociale = " & LstFournisseur.Text & " ) , RéfFournisseur = " & txtRefFourn.Text & " , Commentaire = " & txtCommentaire.Text & " ; "

merci d'avance

Ajouter un commentaire

Réponse

blux 12866Messages postés 26 août 2001Date d'inscription ModérateurStatut 31 mai 2012Dernière intervention 27 mai 2008 à 12:28

je crois que l'action 'execute' met entre () ses arguments

Ajouter un commentaire

ffmanfan - 27 mai 2008 à 14:06

Erreur de syntaxe.

par contre je ne vois pas où car le curseur se place sur INTO. A moin que ce ne soit les & qui posent problème?

voilà le code:

db.Execute (INSERT INTO TblProduit VALUES LibProduit = " & txtNomPdt.Text & " , N°Catégorie = (SELECT N°Catégorie FROM TblCatégorieProduit WHERE LibCatégorie = " & lstCategorie.Text & ") , Conditionnement = " & txtConditionnement.Text & " , N°Fournisseur = (SELECT N°Fournisseur FROM TblFournisseur WHERE RaisonSociale = " & LstFournisseur.Text & ") , RéfFournisseur = " & txtRefFourn.Text & " , Commentaire = " & txtCommentaire.Text & " ;)

Merci d'avance

blux- 27 mai 2008 à 14:12

mets ton curseur sur 'execute' et appuie sur F1, ça devrait ouvrir l'aide concernant la syntaxe de execute...

Réponse

Polux31 5740Messages postés 25 septembre 2007Date d'inscription 20 novembre 2011Dernière intervention 27 mai 2008 à 14:18

Bonjour,

L'argument doit être de type string pour la commande Execute. Il faut donc la placer entre double cote (" "). Ensuite les insertions de type String doivent être entre simple cote (' ') dans une instruction SQL. Seules les insertions de type numérique n'en ont pas besoin.

db.Execute ("INSERT INTO TblProduit VALUES LibProduit = ' " & txtNomPdt.Text & " ' , N°Catégorie = _
(SELECT N°Catégorie FROM TblCatégorieProduit WHERE LibCatégorie =  ' " & lstCategorie.Text & " ') _
, Conditionnement = ' " & txtConditionnement.Text & "' , N°Fournisseur = _
(SELECT N°Fournisseur FROM TblFournisseur WHERE RaisonSociale = ' " & LstFournisseur.Text & " ') , _
 RéfFournisseur = ' " & txtRefFourn.Text & " ' , Commentaire = ' " & txtCommentaire.Text & "'  ;")

;o)

polux

Ajouter un commentaire

Réponse

ffmanfan 27 mai 2008 à 14:23

Bonjour,
Je retombe sur l'erreur 2185:
Impossible de faire référence à une propriété ou de la définir pour un contrôle si ce dernier n'est pas activé.

Ajouter un commentaire

blux- 27 mai 2008 à 14:39

db doit être décrit en type 'database'...

Réponse

ffmanfan 27 mai 2008 à 14:40

C le cas.

Ajouter un commentaire

Réponse

Polux31 5740Messages postés 25 septembre 2007Date d'inscription 20 novembre 2011Dernière intervention 27 mai 2008 à 14:50

voilà ce que j'ai trouvé sur le site de support Microsoft:
http://support.microsoft.com/kb/466677/fr

;o)

Ajouter un commentaire

Réponse

ffmanfan 27 mai 2008 à 15:00

Merci pour cette aide.
Je débute en vba et je suis mal réveillé même a 15H.
Et je pense avoir trouver un moyen plus simple.
Je vous tient au courant.

Ajouter un commentaire

Réponse

Polux31 5740Messages postés 25 septembre 2007Date d'inscription 20 novembre 2011Dernière intervention 27 mai 2008 à 15:13

de rien;

bon courage

;o)
polux

Ajouter un commentaire

Réponse

ffmanfan 27 mai 2008 à 16:32

bonjour,
Mon code marche en partie. Mais le code sql ne fonctionne toujours pas. snif.
voilà le code:

db.Execute ("INSERT INTO TblTarfs (N°Produit, Année, DateActualisation, PrixHT, DateDébut, DateFin, Commentaire) VALUES ((SELECT N°Produit FROM TblProduit WHERE LibProduit=" & txtNomPdt.Text & "), " & txtAnnée.Text & ", " & txtDateActu.Text & ", " & txtPrix.Text & ", " & txtDateDébut.Text & ", " & txtDateFin.Text & ", " & txtCommentaire.Text & ");")

Ajouter un commentaire

Réponse

Polux31 5740Messages postés 25 septembre 2007Date d'inscription 20 novembre 2011Dernière intervention 27 mai 2008 à 16:36

relis le post 8 ... les insertions de type String (texte) doivent être encadrées d'une simple cote ('papa') ... et les types Date avec (# 12/12/2007 #) ... seules les types numérique ne sont pas encadrées.

Ajouter un commentaire

Réponse

ffmanfan 27 mai 2008 à 16:42

db.Execute ("INSERT INTO TblTarfs (N°Produit, Année, DateActualisation, PrixHT, DateDébut, DateFin, Commentaire) VALUES ((SELECT N°Produit FROM TblProduit WHERE LibProduit='" & txtNomPdt.Text & "'), " & txtAnnée.Text & ", #" & txtDateActu.Text & "#, " & txtPrix.Text & ", #" & txtDateDébut.Text & "#, #" & txtDateFin.Text & "#, '" & txtCommentaire.Text & "');")

Comme sa ça me fait la même chose.

Ajouter un commentaire

Réponse

Polux31 5740Messages postés 25 septembre 2007Date d'inscription 20 novembre 2011Dernière intervention 27 mai 2008 à 16:45

as-tu bien vérifié le type de tes champs et de tes insertions ???

Ajouter un commentaire

Réponse

blux 12866Messages postés 26 août 2001Date d'inscription ModérateurStatut 31 mai 2012Dernière intervention 27 mai 2008 à 16:48

Jamais vu de requête insert 'into avec' un 'select' comme source de 'values'...

Ajouter un commentaire

Réponse

ffmanfan 28 mai 2008 à 08:25

C parce qu'en faite j'utilise une liste déroulante ou j'affiche un libelle mais le pb C que je doit récupérer l'identifiant du libelle d'où le select dans le insert into.

Ajouter un commentaire

Réponse

ffmanfan 28 mai 2008 à 08:32

Mais qu'est ce que je raconte je suis encore sur l'ancien programme.

Là C parce que j'utilise un numéro automatique pour N°Produit dans le table TblProduit mais elle est relié a une table TblTarifs qui a le même identifiant que le produit ainsi que l'année car le prix peut changer tout les ans.

Ajouter un commentaire

Réponse

Polux31 5740Messages postés 25 septembre 2007Date d'inscription 20 novembre 2011Dernière intervention 28 mai 2008 à 08:34

tu peux donc faire un requete a part pour récupérer la donnée avant de la mettre dans l'insert, ça simplifierai un peu.

Ajouter un commentaire

Réponse

ffmanfan 28 mai 2008 à 08:35

ouai j'y avais pas penser j'essaye.

Ajouter un commentaire

Réponse

ffmanfan 25Messages postés 28 mai 2008Date d'inscription 28 mai 2008 à 08:52

Sa ne fonctionnent toujours pas.

Ajouter un commentaire

1 2

Répondre au sujet

Posez votre question

Dossier à la une

Passage au tout numérique : quel coût pour les particuliers ?

Passage au tout numérique : quel coût pour les particuliers ?

Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.

Vba access pb de connection bdd et pb requète [Résolu]

Vba access pb de connection bdd et pb requète »

Passage au tout numérique : quel coût pour les particuliers ?