Problème de concaténation de deux variables

**poissonsoluble** · 28/05/2007, 13h26

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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.

**SfJ5Rpw8** · 28/05/2007, 13h31

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

**poissonsoluble** · 28/05/2007, 13h33

Certain sont des label et d'autre des textBox, j'ai au total 84 variables

**poissonsoluble** · 28/05/2007, 15h02

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?

Merci pour ta réponse

**Delbeke** · 28/05/2007, 15h29

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

**zazaraignée** · 28/05/2007, 15h39

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?

**poissonsoluble** · 28/05/2007, 15h52

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é

**Phifi** · 28/05/2007, 16h05

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

**poissonsoluble** · 28/05/2007, 16h13

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

)
Bonne journée à tous et merci encore pour votre temps.

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

**poissonsoluble** · 28/05/2007, 17h11

Je reviens encore vous voir

En indexant mes controles de ma form, j'ai remplacé donc mes lignes de code par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

AU SECOURS SVP Merci pour votre aide

**Phifi** · 28/05/2007, 18h06

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)

**poissonsoluble** · 28/05/2007, 18h08

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?

**Phifi** · 28/05/2007, 18h31

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 ?

**sovo** · 29/05/2007, 01h45

Moi j'aurais juste une question

dans la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**poissonsoluble** · 29/05/2007, 10h18

Envoyé par sovo

Moi j'aurais juste une question

dans la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**poissonsoluble** · 29/05/2007, 10h21

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

**poissonsoluble** · 29/05/2007, 10h35

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