Discussion :

[samgione]

Bonjour,

Avec ce corde cela fonctionne tres bien, mais sans les contraintes

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

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
24
25
26
27
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.

[marot_r]

Essaye cela qui devrait résoudre ton problème :

Code :

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

DoCmd.OpenForm "T_Fournisseurs", acNormal, "", "[No]=" & [Forms]![RechercheF]![RechercheF], acReadOnly, acNormal

A+

[samgione]

ca ne fonctionne pas toujours.
ecoute
le formulaire qui doit ouvrire (T_Fournisseurs) contien le champ No, Nom, Prenom, Adresse etc. et il ya 6 enregistrements environ.

cependant, le formulaire de recherche contien un seul champ: le champ RechercheF. avec bouton valider.

je veux quand je tappe une valeure dans le champ du formulaire de recherche et quand je clique sur le bouton, s'il ne trouve pas cette valeur pour qu'il y ait un message de confirmation.

c'est-a-dire, je veux comparer les deux champs de ces deux formulaire, le champ [No] du formulaire fournisseur et le champ [recherchef] du formulaire de recherche.

svp aide moi!

[samgione]

svp
dis moi comment je peux comparer deux zones de textes de deux formulaires diferents? si la valeure entrer dans form1 n'existe pas dans form2 encliquant sur le bouton valider, un message doit confirmer que cette valeur n'existe pas, si non, form2 doit ouvrire sur l'enregistrement specifier.

je suis vraiment coince.

[Robert1957]

Bonjour samgione,

Je crois que René n'avait pas bien compris la question et je le comprend ce n'était pas clair. Avec les explications que tu as ajouté je te dirais que ce n'est pas possible de la façon que tu nous montres. Tu ne peux pas faire référence à un champ dans un formulaire si celui-ci est fermé.

Pour faire fonctionner ton formulaire de recherche tel que tu le désires, il faut que tu fasses une vérification sur la table.

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub btvalider_Click() 
On Error GoTo btvalider_Click_Err 
Dim db as Dao.Database
Dim rst as Dao.Recordset
Dim strSQL as String
strSQL = "SELECT TaTable.No FROM TaTable WHERE ((No=)" & Forms![RechercheF]![RechercheF] & ");"
Set db = Currentdb
Set rst = db.OpenRecordset(strSQL)
If rst.EOF = False Then 
DoCmd.OpenForm "T_Fournisseurs", acNormal, "", "[No]=[Forms]![RechercheF]![RechercheF]", acReadOnly, acNormal 
DoCmd.Close acForm, "RechercheF" 
ElseIf rst.EOF = True Then
MsgBox "Blablabla",vbCritical
 
'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 
rst.Close
Set rst = Nothing
Set db = Nothing
btvalider_Click_Exit: 
 Exit Sub 
 
btvalider_Click_Err: 
 MsgBox Error$ 
 Resume btvalider_Click_Exit 
 
End Sub

Bonne journée