Formulaire de recherhe avec boite de dialogue sur access

Bonjour,
ca encore toujours pas marcher, j'ais essaye plusieurs autres facons.

Avec ce corde cela fonctionne tres bien, mais sans les contraintes
Private Sub btvalider_Click()
On Error GoTo btvalider_Click_Err
If (Not IsNull(RechercheF)) Then
DoCmd.OpenForm "T_Fournisseurs", acNormal, "", "[No]=[Forms]![RechercheF]![RechercheF]", acReadOnly, acNormal
DoCmd.Close acForm, "RechercheF"
Exit Sub
End If
Beep
MsgBox "Rentrer le numéro du Fournisseur a rechercher!", vbOKOnly, "Recherche Fournisseur"
Me.RechercheF.SetFocus
btvalider_Click_Exit:
Exit Sub

btvalider_Click_Err:
MsgBox Error$
Resume btvalider_Click_Exit
End Sub

NB : a) [No] ceci est le champ numéro contenant le numéro des fournisseurs
b) ][Forms]![RechercheF]![RechercheF] est le formulaire de recherché avec la zone de texte RechercheF
c) T_Fournisseurs est le formulaire fournisseurs qui doit ouvrir.

J'aimerais comparer la valeur du contrôle [No] qui se trouve sur le formulaire fournisseurs qui doit ouvrir avec la valeur du contrôle [RechercheF] qui se trouve sur le formulaire [Recherche Fournisseur]. Quand je cliquer sur le bouton si la valeur entrer sur le formulaire de recherche n'existe pas sur le formulaire fournisseur, il doit afficher un message.

J'ai beau essayer, mais je n'ai réussi pas, aide moi SVP !
Avec ce code les contraintes fonctionnent correctement, mais seulement quand je rentre le premier enregistrement du formulaire, le formulaire fournisseur ouvre.
Private Sub btvalider_Click()
On Error GoTo btvalider_Click_Err
'If Me.RechercheF = [No] Then
' DoCmd.OpenForm "T_Fournisseurs", acNormal, "", "[No]=[Forms]![RechercheF]![RechercheF]", acReadOnly, acNormal
'DoCmd.Close acForm, "RechercheF"
'ElseIf IsNull(RechercheF) Then
'MsgBox "Entrer le numero du Fournisseur!", vbOKOnly, "Recherche Fourn"
' Me.RechercheF.SetFocus
'ElseIf Not IsNumeric(RechercheF) Then
' MsgBox "La valeur cherchée doit être numérique !", vbExclamation
' Me.RechercheF.SetFocus
'ElseIf "[No]" <> (RechercheF) Then
'MsgBox "Fournisseur n'existe pas!", vbOKOnly, "Recherche prof"
'Me.RechercheF.SetFocus
'Else
'MsgBox "Erreur Inatendue!", vbOKOnly, "Recherche prof"
' Me.RechercheF.SetFocus
'Exit Sub '(Not IsNull(RechercheF))
'End If
btvalider_Click_Exit:
Exit Sub

btvalider_Click_Err:
MsgBox Error$
Resume btvalider_Click_Exit

End Sub

J'ai essayé plusieurs autre manières ca ne marche pas. Je ne sais plus quoi faire.