Problème de concaténation de deux variables

Version imprimable

Bonjour à tous. Je reviens encore une fois pour vous embêter un peu, j'ai un problème que je n'arrive pas à résoudre, je m'explique :
J'ai un formulaire en VB6 qui contient plusieurs champs, après validation de ce formulaire j'effectue une insertion dans ma base.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 strQuery = "SELECT * FROM Table [id_Table] = " & Id & "AND [annee] = " & Me.annee OuvrirRecordSet_rsADO strQuery If rsADO.EOF Then For I = 1 To 12 'Janvier rsADO.AddNew rsADO![id_Table] = Id rsADO![champs1] = Me.variable + I .... 'd'autres champs de ma table rsADO![mois] = I rsADO![annee] = Me.annee 'Fevrier Next Else Debug.print "Id existe déjà" End If 'Met à jour la table rsADO.Update rsADO.Requery rsADO.Close
Quand j'exécute ce code, j'ai l'erreur suivante :
Méthode ou membre de données introuvable (erreur 461)
Et ça correspond à la ligne où je concatene ma variable Me.variable + I :cry:
Pour info : dans mon formulaire j'ai les champs suivant : Me.variable1, Me.variable2, Me.variable3, ..., Me.variable12 qui correspondent à un champs pour chaque mois de l'année!!
Je crois j'ai tout dit, si quelqu'un peut m'aider à résoudre ce problème, c'est vraiment sympa de votre part, car là je suis bloquée :?
Je vous remercie d'avance.

28/05/2007, 12h31
SfJ5Rpw8

c'est pas tout à fait un probléme de concaténation ... tes variables variable1...
c'est quoi en fait des textbox..?
28/05/2007, 12h33
poissonsoluble

Certain sont des label et d'autre des textBox, j'ai au total 84 variables
28/05/2007, 14h02
poissonsoluble

Citation:

Envoyé par bbil

c'est pas tout à fait un probléme de concaténation ... tes variables variable1...
c'est quoi en fait des textbox..?

C'est quoi alors le problème? :bug:
Merci pour ta réponse
28/05/2007, 14h29
Delbeke

En Vb, On ne peux pas accéder à une variable en calculant son nom
28/05/2007, 14h39
zazaraignée

Puisque tu dois affecter explicitement à un champ de la table une valeur contenue dans un textBox ou un Label, pourquoi ne pas nommer explicitement le contrôle en question aussi dans ton code?
28/05/2007, 14h52
poissonsoluble

Citation:

Envoyé par zazaraignée

Puisque tu dois affecter explicitement à un champ de la table une valeur contenue dans un textBox ou un Label, pourquoi ne pas nommer explicitement le contrôle en question aussi dans ton code?

Je ne comprend pas trop ce que tu veux dire? Désolé :?
28/05/2007, 15h05
Phifi

Citation:

Envoyé par Delbeke

En Vb, On ne peux pas accéder à une variable en calculant son nom

C'était d'ailleurs l'objet d'un topic très récent. On ne peut pas concaténer deux chaines de caractères pour en faire un nom de variable ou d'objet (le fameux $$mavar en PHP). Il faut indexer les objets (label, textbox etc., -> variable(i))
28/05/2007, 15h13
poissonsoluble

Merci pour votre aide, j'avais pensé à cette solution mais je voulais voir si on pouvait pas faire pareil qu'en php et aussi pour éviter de refaire mon interface VB pour indéxer mes controle dans un tableau (84 variables en totales !!! :roll: )
Bonne journée à tous et merci encore pour votre temps.

N.B : Je suppose qu'en VB.Net c'est idem?

Je reviens encore vous voir :oops:
En indexant mes controles de ma form, j'ai remplacé donc mes lignes de code par :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 If rsADO.EOF Then For I = 0 To 11 rsADO.AddNew rsADO![Champs1] = variable(I) ... rsADO![mois] = I+1 ... Next I Else Debug.print "Déjà enregistré" End If 'Met à jour la table rsADO.Update rsADO.Requery rsADO.Close
Ce code s'arrete à l'itération I=1 (2eme itération) et effectue que l'enregistrement qui correspond au 1er mois (Janvier) et j'ai l'erreur : Run time error Risque de doublons de champs index ...
Le bug correspond à la ligne de AddNew

Si je met ces deux lignes :
Code:

1 2 3 rsADO.Update rsADO.Requery
juste avant le Next I, le code s'arrete aussi à l'itération I=1 et le bug correspond à la ligne de update (Même msg d'erreur)

Ce que je ne comprend pas c'est pourquoi il insère le 1er enregistrement et s'arrete à chaque fois au 2ème !!! :bug:
AU SECOURS SVP Merci pour votre aide

28/05/2007, 17h06
Phifi

Ben problème d'index unique apparement, tu essaies d'entrer 2 fois la même valeur dans un champ de type unique (à toi de nous le dire)
28/05/2007, 17h08
poissonsoluble

La clé primaire de la table où je veux insérer est de type auto-increment donc j'y touche pas, du coup je n'arrive pas à voir où les doublons se font?
28/05/2007, 17h31
Phifi

Tu peux très bien avoir un auto-incrément et un autre champ de type unique. A toi de nous dire lequel. C'est une base de quel type ? (Acces ?) Tu l'administres comment ?
29/05/2007, 00h45
sovo

Moi j'aurais juste une question

dans la ligne

Code:

rsADO![champs1] = Me.variable + I

c quoi champs1 est une variable qui contient une table ?? car je crois que le probleme viens de la, car d'apres le message d'erreur il n'arrive pas a acceder a la table dans la BD. essai de revoir cette variable ou cette table.
29/05/2007, 09h18
poissonsoluble

Citation:

Envoyé par sovo

Moi j'aurais juste une question

dans la ligne

Code:

rsADO![champs1] = Me.variable + I

c quoi champs1 est une variable qui contient une table ?? car je crois que le probleme viens de la, car d'apres le message d'erreur il n'arrive pas a acceder a la table dans la BD. essai de revoir cette variable ou cette table.

Champs1 est un attribut de ma table, et il le trouve bien car il arrive à insérer le 1er enregistrement!! Ce que je 'arrive toujours pas à trouver c'est pourquoi il n'insère pas la suite, est ce que c'est dû à ma boucle for qui est mal faite? Si vous voyez qqchose d'anormal dans mon code je vous remercie de me répondre.
J'ai changé mon code plusieurs fois et là il ne fait plus le msg d'erreur mais il n'insère que le 1er :cry:
29/05/2007, 09h21
poissonsoluble

Citation:

Envoyé par Phifi

Tu peux très bien avoir un auto-incrément et un autre champ de type unique. A toi de nous dire lequel. C'est une base de quel type ? (Acces ?) Tu l'administres comment ?

C'est une base de type access. Je ne sais pas ce que j'ai changé (plusieurs essai pour corriger l'erreur!!) et je n'ai plus le msg d'erreur mais j'ai toujours le problème d'une seule insertion!!! Merci pour ton aide
29/05/2007, 09h35
poissonsoluble

je ne comprend rien, hier j'ai testé, je n'avais plus le msg d'erreur des doublons, et auj en faisant plusieurs tests, je m'apercois que des fois ça passe sans erreur et des fois fois l'application plante avec le msg "risque de doublons..." :bug:
29/05/2007, 09h45
Phifi

Tu l'administres avec quel logiciel externe ? Acces ? Visdata ?
29/05/2007, 09h48
poissonsoluble

Tout a été crée sous access, et les donnée sont gérée avec une aplication en VB6/ADO
29/05/2007, 10h00
poissonsoluble

C'est bon, j'ai trouvé, j'avais un lien 1,1 entre cette table et une autre table dans ma base :aie: En tout cas je vous remercie pour le temps que vous m'avez consacré. Et peut être à bientôt ;) Bonne continuation.