[AC-2007] problème boite de dialogue

[ronin.01]

Bonjour,

j'ai une base de donnée avec deux formulaires actifs A et B et qui doivent l'être obligatoirement.

J' ai une boîte de dialogue pour rechercher un numéro de ligne sur le formulaire A :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub NumLigne_Click()
'on va insérer une boite de dialogue afin de selectionner une ligne
 
Dim ctl As Control, str As String
 
str = InputBox("Entrez un numéro de ligne : ")
'If Nz(str, "") = "" Then Exit Sub
 
'si le numéro de ligne n'est pas dans la série un message d'erreur est renvoyé
 
If DCount("*", "TT_suivi", "n°=" & str) = 0 Then
MsgBox ("Ce numéro n'existe pas")
Else
 
Set ctl = Me.ActiveControl
Me.n°.SetFocus
DoCmd.FindRecord str, acEntire, , acSearchAll, , acCurrent
ctl.SetFocus
 End If
 
End Sub

Cependant quand je selectionne un numéro de ligne pour le formulaire A, le formulaire B s'affiche et je suis obligé de revenir sur le formulaire A pour être positionné sur la ligne choisie.

Je sollicite votre aide pour savoir comment faut il faire pour qu'il ne bascule pas sur le formulaire B

Cordialement
Stéphane