vba access pb de connection bdd et pb requète Résolu/Fermé

Question

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

blux · Answer

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

blux · Answer

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

ffmanfan · Answer

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

blux · Answer

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

Polux31 · Answer

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

ffmanfan · Answer

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

ffmanfan · Answer

C le cas.

Polux31 · Answer

voilà ce que j'ai trouvé sur le site de support Microsoft:
https://support.microsoft.com/fr-fr/help/466677

;o)

ffmanfan · Answer

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.

Polux31 · Answer

de rien;

bon courage

;o)
polux

ffmanfan · Answer

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 & ");")

Polux31 · Answer

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.

ffmanfan · Answer

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.

Polux31 · Answer

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

blux · Answer

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

ffmanfan · Answer

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.

ffmanfan · Answer

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.

Polux31 · Answer

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.

ffmanfan · Answer

ouai j'y avais pas penser j'essaye.

ffmanfan · Answer

Sa ne fonctionnent toujours pas.

ffmanfan · Answer

G peut être trouver une alternative a sa je vais finalement combiner les deux tables (je supprime la table tarifs et l'insère  dans la table Produit) et pour les dates et l'année je ferai un formulaire de mise a jour.
Parce que là je croi que sa ne va jamais marcher.
Merci quand pour ces aides; ça m'a aidé a mieux comprendre la combinaison vba sql.
Encore merci a vous pour votre réactiviter.

ffmanfan · Answer

Bonjour,
Pour mon sql en faite il suffit d'enlever le ".Text" qu'il y a dans les variables.
Maintenant il accepte mon sql.
Après il suffit que les variable soit du même format. Sa c'est autre chose.

ffmanfan · Answer

Bonjour,
G une erreur dans ma requète mais je ne sais pas où.
Enfin C le débeugueur de visual basic access 2007 qui me dit :
Erreur 3067: la requête doit être construite à partir d'au moins une table ou une requête source.

Voilà le code:

reqI = "INSERT INTO TblAncienTarifs (N°Produit, Année, DateActualisation, PrixHT, Remise, DateDébut, DateFin, Commentaire) VALUES (" & txtN°Pdt & ", (SELECT Année FROM TblProduit WHERE N°Produit= " & txtN°Pdt & ") , (SELECT DateActualisation FROM TblProduit WHERE N°Produit= " & txtN°Pdt & ") , (SELECT PrixHT FROM TblProduit WHERE N°Produit= " & txtN°Pdt & ") , (SELECT Remise FROM TblProduit WHERE N°Produit= " & txtN°Pdt & ") , (SELECT DateDébut FROM TblProduit WHERE N°Produit= " & txtN°Pdt & ") , (SELECT DateFin FROM TblProduit WHERE N°Produit= " & txtN°Pdt & ") , (SELECT Commentaire FROM TblProduit WHERE N°Produit= " & txtN°Pdt & "));"

Merci d'avance.

blux · Answer

J'insiste : on ne met pas un select dans un value, il faut contruire la chaine reqI avec des dlookup à la place des select...

ffmanfan · Answer

je connaissais pas je vais essayer

ffmanfan · Answer

dlookup ne fonctionne pas pour récupérer les champs de type Numéro auto?

ffmanfan · Answer

non sa ne marche pas il m'affiche: erreur 2471: L'expression entrée comme paramètre est à l'originede l'erreur suivante:<>. voilà mon code: reqS1 = DLookup("N°Propduit", "TblProduit", "N°Produit = " & txtN°Pdt & " ") reqS1 est déclarer en Variant. Merci d'avance.

ffmanfan · Answer

non C bon cette ligne ne me servait à rien en faite.
Mon insert into marche mais bizarrement en faite il a du mal a rentré les dates (ex: au lieu de rentrée 01/01/2008, il rentre 00:00:43 or il est 8:33) ainsi que les variables string (au lieu de mettre rien il met 1,28652058432935E-03).
C'est vraiment bizarre.

Voilà mon code:

    reqS2 = DLookup("Année", "TblProduit", "N°Produit = " & txtN°Pdt & "")
    reqS3 = DLookup("DateActualisation", "TblProduit", "N°Produit = " & txtN°Pdt & " ")
    reqS4 = DLookup("PrixHT", "TblProduit", "N°Produit = " & txtN°Pdt & " ")
    reqS5 = DLookup("Remise", "TblProduit", "N°Produit = " & txtN°Pdt & " ")
    reqS6 = DLookup("DateDébut", "TblProduit", "N°Produit = " & txtN°Pdt & " ")
    reqS7 = DLookup("DateFin", "TblProduit", "N°Produit = " & txtN°Pdt & " ")
    reqI = "INSERT INTO TblAncienTarifs (N°Produit, Année, DateActualisation, PrixHT, Remise, DateDébut, DateFin, Commentaire) VALUES (" & txtN°Pdt & ", " & reqS2 & ", " & reqS3 & ", " & reqS4 & ", " & reqS5 & ", " & reqS6 & ", " & reqS7 & ");"

Merci d'avance.

ffmanfan · Answer

Autant pour moi G complètement oublier de mettre la colone qu'est en string et G du mal a me rentré dans la tête les #  pour les dates.
Sinn G fait les modifs et voilà le résultat:
Erreur 3346:
Le nombre de valeur de la requête doit coïncider avec le nombre de champs destination.

Voilà le code:

reqI = "INSERT INTO TblAncienTarifs (N°Produit, Année, DateActualisation, PrixHT, Remise, DateDébut, DateFin, Commentaire) VALUES (" & txtN°Pdt & ", " & reqS2 & ", #" & reqS3 & "#, " & reqS4 & ", " & reqS5 & ", #" & reqS6 & "#, #" & reqS7 & "#, '" & reqS1 & "');"

Et pour répondre a ta question la colonne est en texte.

ffmanfan · Answer

Je crois savoir.
que se passe t-il quand on veut insérer un nombre a virgule??

formalisme insert into:
INSERT INTO NomDeTable (Champ1, ...) VALUES (Val1, ...)

Or si une des valeur est avec une virgule je pense que sa pose problème:
ex: essayer d'insérer 0,13 (soit 13%) sa fera:
INSERT INTO NomDeTable (Champ1, Champ2) VALUES (Val1, 0,13)
!!!!!!
on veut insérer 2 valeur mais du fait du chffre a virgule il pense qu'on en rentre 3. Même si on rajoute un espace ça ne fonctionnera pas car il ne prend en compte les espace que quand il sont entre []. Mais cela n'a aucun sens pour les type numérique, on utilise ça uniquement dans le cas de données textes contenant des espaces (ex: [salut a tous]).

Comment faire pour insérer des chiffres a virgules??

Merci d'avance.

ffmanfan · Answer

c'est sa le problème mon champ est de type numérique et plus précisément pourcentage et de base il met les virgules.
Mais a mon avis si je mais:
INSERT INTO NomTable (Champ1, Champ2) VALUES ([Val1] ,[Val2])
Ça contredit ce que j'ai dit mais il y a que les cons qui ne change pas d'avis^^.
Qui ne tante rien a rien au point où j'en suis.

ffmanfan · Answer

Ça ne fonctionne toujours pas avec les []. Ça me dit qu'il manque une donnée.

ffmanfan · Answer

ouf enfin sa marche a merveille.
Je te remercie Blux.

ffmanfan · Answer

il faut impérativement mettre des ' pour les nombres a virgule (dans le cas ou vous mettez des virgules) car sinon sa créer une erreur. G eu le même problème avec un update.
En tout cas encore merci.

Vba access pb de connection bdd et pb requète

34 réponses

Discussions similaires