Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Insert Into ... ça veut pas marcher

Insert Into ... ça veut pas marcher

8 réponses
Avatar
denis le breton
Eric, 3stone, Pierre, anor, et les autres à l'aide !!!
Je croyais tenir le bon bout, snif et j'ai rien fumer ni bu
----------------------
liballoc = ""
cptoffc = 0
For oc = 1 To 80
offcibass = "off_cib_ass" & oc
valoc = DLookup(offcibass, "crea_camp", numcamp)
If valoc = -1 Then
If liballoc <> "" Then
liballoc = liballoc & ", "
End If
cptoffc = cptoffc + 1
numcib = "[Num_cible] =" & oc
liboc = "lib_oc" & oc
liboc = DLookup("Cible_associée", "offre", numcib)
liballoc = liballoc & liboc
End If
Next
nb_off_c = cptoffc
nbo = Nz(DLookup("nb_off", "compt_off"))
CurrentDb.Execute "INSERT INTO camp_off_cib(num_camp,camp,nb_off_c,off_c_1)
values (" & "'" & numcamp & "'" & "," & "'" & lib_camp & "'" & "," & "'" &
nb_off_c & "'" & "," & "'" & liballoc & "'" & ")"
----------------------------------

En gros je recherche les libellés associés à des cases à cocher, dans une
table liée
et je stocke dans une table de ma base Locale
le currentdb.execute ne donne pas d'erreur
mais la table n'est alimenté par rien
Une idée ! merci
Denis
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonjour.

que contient numcamp ( numcib aussi), car dans un dlookup il faut indiquer
un paramètre de type clause where qui servira à sélectionner
l'enregistrement et non donner une valeur .

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum
Formez-vous en ligne grâce aux Webcasts Microsoft Technet :
http://www.microsoft.com/france/technet/seminaires/webcasts.mspx


"denis le breton" a écrit dans le
message de news:
Eric, 3stone, Pierre, anor, et les autres à l'aide !!!
Je croyais tenir le bon bout, snif et j'ai rien fumer ni bu
----------------------
liballoc = ""
cptoffc = 0
For oc = 1 To 80
offcibass = "off_cib_ass" & oc
valoc = DLookup(offcibass, "crea_camp", numcamp)
If valoc = -1 Then
If liballoc <> "" Then
liballoc = liballoc & ", "
End If
cptoffc = cptoffc + 1
numcib = "[Num_cible] =" & oc
liboc = "lib_oc" & oc
liboc = DLookup("Cible_associée", "offre", numcib)
liballoc = liballoc & liboc
End If
Next
nb_off_c = cptoffc
nbo = Nz(DLookup("nb_off", "compt_off"))
CurrentDb.Execute "INSERT INTO
camp_off_cib(num_camp,camp,nb_off_c,off_c_1)
values (" & "'" & numcamp & "'" & "," & "'" & lib_camp & "'" & "," & "'" &
nb_off_c & "'" & "," & "'" & liballoc & "'" & ")"
----------------------------------

En gros je recherche les libellés associés à des cases à cocher, dans une
table liée
et je stocke dans une table de ma base Locale
le currentdb.execute ne donne pas d'erreur
mais la table n'est alimenté par rien
Une idée ! merci
Denis


Avatar
denis le breton
nuncamp et numcib sont des données numérique (boucle)
objectif rechercher la valeur sur un enregistrement dont la valeur est
numcamp ou numcib
récupérer la valeur d'un champ (string)
et stocker 4 valeurs 1re numérique, 2me texte, 3me numérique, 4me texte

Au fait désolé de ne pas t'avoir cité dans la liste des bienfaiteurs, je te
présente mes excuses.


Bonjour.

que contient numcamp ( numcib aussi), car dans un dlookup il faut indiquer
un paramètre de type clause where qui servira à sélectionner
l'enregistrement et non donner une valeur .

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum
Formez-vous en ligne grâce aux Webcasts Microsoft Technet :
http://www.microsoft.com/france/technet/seminaires/webcasts.mspx


"denis le breton" a écrit dans le
message de news:
Eric, 3stone, Pierre, anor, et les autres à l'aide !!!
Je croyais tenir le bon bout, snif et j'ai rien fumer ni bu
----------------------
liballoc = ""
cptoffc = 0
For oc = 1 To 80
offcibass = "off_cib_ass" & oc
valoc = DLookup(offcibass, "crea_camp", numcamp)
If valoc = -1 Then
If liballoc <> "" Then
liballoc = liballoc & ", "
End If
cptoffc = cptoffc + 1
numcib = "[Num_cible] =" & oc
liboc = "lib_oc" & oc
liboc = DLookup("Cible_associée", "offre", numcib)
liballoc = liballoc & liboc
End If
Next
nb_off_c = cptoffc
nbo = Nz(DLookup("nb_off", "compt_off"))
CurrentDb.Execute "INSERT INTO
camp_off_cib(num_camp,camp,nb_off_c,off_c_1)
values (" & "'" & numcamp & "'" & "," & "'" & lib_camp & "'" & "," & "'" &
nb_off_c & "'" & "," & "'" & liballoc & "'" & ")"
----------------------------------

En gros je recherche les libellés associés à des cases à cocher, dans une
table liée
et je stocke dans une table de ma base Locale
le currentdb.execute ne donne pas d'erreur
mais la table n'est alimenté par rien
Une idée ! merci
Denis







Avatar
Raymond [mvp]
au 1er passage la valeur de numcamp n'est pas chargée ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum
Formez-vous en ligne grâce aux Webcasts Microsoft Technet :
http://www.microsoft.com/france/technet/seminaires/webcasts.mspx


"denis le breton" a écrit dans le
message de news:
nuncamp et numcib sont des données numérique (boucle)
objectif rechercher la valeur sur un enregistrement dont la valeur est
numcamp ou numcib
récupérer la valeur d'un champ (string)
et stocker 4 valeurs 1re numérique, 2me texte, 3me numérique, 4me texte

Au fait désolé de ne pas t'avoir cité dans la liste des bienfaiteurs, je
te
présente mes excuses.



Avatar
denis le breton
Si lva fonctionne j'ai mis des espions sur mes variables tout est ok !
je sais pas ou le blème


au 1er passage la valeur de numcamp n'est pas chargée ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum
Formez-vous en ligne grâce aux Webcasts Microsoft Technet :
http://www.microsoft.com/france/technet/seminaires/webcasts.mspx


"denis le breton" a écrit dans le
message de news:
nuncamp et numcib sont des données numérique (boucle)
objectif rechercher la valeur sur un enregistrement dont la valeur est
numcamp ou numcib
récupérer la valeur d'un champ (string)
et stocker 4 valeurs 1re numérique, 2me texte, 3me numérique, 4me texte

Au fait désolé de ne pas t'avoir cité dans la liste des bienfaiteurs, je
te
présente mes excuses.








Avatar
Raymond [mvp]
je ne comprends pas ton code:

cptoffc = cptoffc + 1
******* ça sert à quoi ?
numcib = "[Num_cible] =" & oc
liboc = "lib_oc" & oc
******* ça sert à quoi ?
liboc = DLookup("Cible_associée", "offre", numcib)
liballoc = liballoc & liboc
End If
Next

ce serait possible d'avoir ta base par mail ? je jetterai un oeil demain
matin.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum
Formez-vous en ligne grâce aux Webcasts Microsoft Technet :
http://www.microsoft.com/france/technet/seminaires/webcasts.mspx


"denis le breton" a écrit dans le
message de news:
Si lva fonctionne j'ai mis des espions sur mes variables tout est ok !
je sais pas ou le blème



Avatar
Eric
Bonjour,

1-Comme l'indique Raymond, numcap n'est pas défini du moins au travers
du code posté. Donc valoc est Null tu ne passes alors jamais dans le If.
2-nbo ça sert à quoi car pas utilisé pour le Insert Into ?
3- Y a un problème avec liboc, tu mets liboc="lib_oc" & oc
et ligne suivante liboc = DLookup("Cible_associée", "offre", numcib).
Donc la 1ère affectation ne sert à rien car elle est écrasée par la
ligne qui suit et qui *ne réutilse pas* la ligne précédente. Donc QUID
de liboc="lib_oc" & oc ?
4- Des erreurs dans la manière d'insérer les données. Si chp1 et chp3
sont numériques, chp2 et chp4 alphanumériques alors :
CurrentDb.Execute "INSERT INTO camp_off_cib(num_camp,camp,nb_off_c,off_c_1)
values (" & numcamp & ",'" & lib_camp & "'," & nb_off_c & ",'" &
liballoc & "');" suffit amplement.


Eric, 3stone, Pierre, anor, et les autres à l'aide !!!
Je croyais tenir le bon bout, snif et j'ai rien fumer ni bu
----------------------
liballoc = ""
cptoffc = 0
For oc = 1 To 80
offcibass = "off_cib_ass" & oc
valoc = DLookup(offcibass, "crea_camp", numcamp)
If valoc = -1 Then
If liballoc <> "" Then
liballoc = liballoc & ", "
End If
cptoffc = cptoffc + 1
numcib = "[Num_cible] =" & oc
liboc = "lib_oc" & oc
liboc = DLookup("Cible_associée", "offre", numcib)
liballoc = liballoc & liboc
End If
Next
nb_off_c = cptoffc
nbo = Nz(DLookup("nb_off", "compt_off"))
CurrentDb.Execute "INSERT INTO camp_off_cib(num_camp,camp,nb_off_c,off_c_1)
values (" & "'" & numcamp & "'" & "," & "'" & lib_camp & "'" & "," & "'" &
nb_off_c & "'" & "," & "'" & liballoc & "'" & ")"
----------------------------------

En gros je recherche les libellés associés à des cases à cocher, dans une
table liée
et je stocke dans une table de ma base Locale
le currentdb.execute ne donne pas d'erreur
mais la table n'est alimenté par rien
Une idée ! merci
Denis


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
denis le breton
Ouah le C .. (je parle de moi)
alors pour répondre à vous deux qui vous êtes acahrné à décoder le code
toute mes valeurs sont OK, je vais quand même vérifier que le liboc n'est
pas bizarre
mais quelle andouille, la variable numcamp est déclaré en string (non pas le
bout de ficelle) au lieu d'être integer
et puis comme j'ai besoin de la valeur chiffre c'est donc une variable
integer que je colle dans le currentdb et çà roule
Merci encore Eric pour la reformulation de la formule, qiu ne tournait pas
pour la raison expliquée plus haut
Je vais passer un bon week-end
Un grand merci pour le temps que vous passez
Denis




Bonjour,

1-Comme l'indique Raymond, numcap n'est pas défini du moins au travers
du code posté. Donc valoc est Null tu ne passes alors jamais dans le If.
2-nbo ça sert à quoi car pas utilisé pour le Insert Into ?
3- Y a un problème avec liboc, tu mets liboc="lib_oc" & oc
et ligne suivante liboc = DLookup("Cible_associée", "offre", numcib).
Donc la 1ère affectation ne sert à rien car elle est écrasée par la
ligne qui suit et qui *ne réutilse pas* la ligne précédente. Donc QUID
de liboc="lib_oc" & oc ?
4- Des erreurs dans la manière d'insérer les données. Si chp1 et chp3
sont numériques, chp2 et chp4 alphanumériques alors :
CurrentDb.Execute "INSERT INTO camp_off_cib(num_camp,camp,nb_off_c,off_c_1)
values (" & numcamp & ",'" & lib_camp & "'," & nb_off_c & ",'" &
liballoc & "');" suffit amplement.


Eric, 3stone, Pierre, anor, et les autres à l'aide !!!
Je croyais tenir le bon bout, snif et j'ai rien fumer ni bu
----------------------
liballoc = ""
cptoffc = 0
For oc = 1 To 80
offcibass = "off_cib_ass" & oc
valoc = DLookup(offcibass, "crea_camp", numcamp)
If valoc = -1 Then
If liballoc <> "" Then
liballoc = liballoc & ", "
End If
cptoffc = cptoffc + 1
numcib = "[Num_cible] =" & oc
liboc = "lib_oc" & oc
liboc = DLookup("Cible_associée", "offre", numcib)
liballoc = liballoc & liboc
End If
Next
nb_off_c = cptoffc
nbo = Nz(DLookup("nb_off", "compt_off"))
CurrentDb.Execute "INSERT INTO camp_off_cib(num_camp,camp,nb_off_c,off_c_1)
values (" & "'" & numcamp & "'" & "," & "'" & lib_camp & "'" & "," & "'" &
nb_off_c & "'" & "," & "'" & liballoc & "'" & ")"
----------------------------------

En gros je recherche les libellés associés à des cases à cocher, dans une
table liée
et je stocke dans une table de ma base Locale
le currentdb.execute ne donne pas d'erreur
mais la table n'est alimenté par rien
Une idée ! merci
Denis


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr




Avatar
Eric
re,
Une remarque toutefois.(Mais je peux me tromper car je me base sur le
code posté)

Tu devrais avoir une variable strNumcamp définie comme une String car
elle doit être de la même forme que numcib du genre :
strNumcamp = "[UnChamp]=" & UneValeur/Variable
pour pouvoir l'utiliser dans ton DLookUp()
*ET*
une variable Numcamp définie comme Integer pour l'affecter à ton champ
dans la requête Inser Into ... Values(..)

Ouah le C .. (je parle de moi)
alors pour répondre à vous deux qui vous êtes acahrné à décoder le code
toute mes valeurs sont OK, je vais quand même vérifier que le liboc n'est
pas bizarre
mais quelle andouille, la variable numcamp est déclaré en string (non pas le
bout de ficelle) au lieu d'être integer
et puis comme j'ai besoin de la valeur chiffre c'est donc une variable
integer que je colle dans le currentdb et çà roule
Merci encore Eric pour la reformulation de la formule, qiu ne tournait pas
pour la raison expliquée plus haut
Je vais passer un bon week-end
Un grand merci pour le temps que vous passez
Denis


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr