[AC-2007] Disfonctionnement d'un command dans un formulaire continu

[memnochgr]

Mesdames, messieurs bonjour, premier post pour un problème délicat.
allez, j'explique.
un commande dans un formulaire A ouvre un formulaire B en acdialog avec un argument.
le formulaire B en se chargeant récupère l'openargs afin de modifier sa propre source :

Code :

1
2
3
dim str as string
str = "select * from xtable where N°=" & me.openargs & ";"
me.recordsource = str

le formulaire B est un formulaire en mode continu. chaque ligne de résultat contient donc les champs de la table xtable mais également une commande appelée btn1.
lorsque l'on clic sur btn1, se dernier déclenche un private sub m'affichant un message quelconque :

msgbox "ok"

Cela fonctionne parfaitement pour toutes les lignes excepté pour la toute dernière ou rien ne se passe... a croire que le btn1 n'a plus de code affecté pour cet enregistrement....

quelqu'un aurait une idée? parce que là... vais pas tarder à foutre mon mac par le fenêtre.....

[s.rais]

On peut voir le code ?

[memnochgr]

bien entendu.... avant tout voici les deux archi de base concernées.

Base1 :
N° --> numerique
Denomination --> text
base2 --> numerique (liaison avec N° de base2)

Base2 :
N° -->numérique
Denomination --> text
color --> numerique


FormulaireA : sourceobject = Base1

code du BTN1 du formulaireA :

Code :

1
2
3
Private Sub BTN1_Click()
DoCmd.OpenForm "FormulaireB", acNormal, , , acFormEdit, acDialog, 10
End Sub

code d'ouverture du formulaireB

Code :

1
2
3
4
5
6
7
Private Sub Form_Current()
Dim str As String
str = "SELECT Base2.N°, Base2.Denomination, base2.color"
str = str & " FROM Base2"
str = str & " WHERE (((Base2.color) = " & me.openargs & "))"
Me.RecordSource = str
End Sub

code du BTN2 sur les enregistrement sélectionnes du FormulaireB :

Code :

1
2
3
4
5
6
Private Sub BTN2_Click()
DoCmd.SetWarnings False
MsgBox Me.N°
DoCmd.RunSQL ("update Base1 set base2=" & Me.N° & " where N°=" & Me.OpenArgs & ";")
DoCmd.Close acForm, "FormulaireB", acSaveNo
End Sub

En espérant que cela vous aide... ou plutôt m'aide moi... LOL