Discussion :

[Tial]

Bonjour à toutes et tous.

Je suis confronté au problème suivant :

C'est la première fois que je bosse sur un formulaire à onglets.

D'habitude, je créé un bouton (bouto de Cde - Deplacement entre enreg - Rechercher un enreg) sur mon formulaire qui me permet d'effectuer une recherche sur tout le formulaire ou sur un champ bien défini.

Cette méthode ne semble pas fonctionner si il y a plusieurs onglets.
Pourriez vous me guider vers la méthode à utiliser.

Par avance merci.
Tial

[Lou Pitchoun]

Salut,

Un peu plus de précision s'impose...

Les champs sur les onglets font en général partis de l'enregistrement. Ca ne doit donc pas poser soucis.

Quand tu cliques sur ton bouton, es tu déjà positionné sur le champ ?

[Tial]

Salut Kikof

D'abord, merci de te pencher sur mon problème.

En fait, mon formulaire est en fenetre indépendante et modale.
Je viens de tester sans, et ça fonctionne donc, le problème semble venir de la.
Ceci dit, ceci est toujours un point bloquant pour moi.

Je ne sais pas comment contourner ce problème.
Tial

[Lou Pitchoun]

Tu peux mettre le code STP.. je sens que ça vient de là

[Tial]

Voila le code lié à mon bouton de recherche :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande204_Click()
On Error GoTo Err_Commande204_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Commande204_Click:
    Exit Sub
Err_Commande204_Click:
    MsgBox Err.Description
    Resume Exit_Commande204_Click
    End Sub

[Lou Pitchoun]

C'est bien ce qu'il me semblait....
Si tu définis Fenêtre modale ou indépendante je ne sais plus : tu bloques l'accès aux menus.
Donc ta ligne

Code :

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

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

ne peux pas s'exécuter.

Pour la solution :
utilise DAO cf le tutoriel de Christophe WARIN, et regarde ce paragraphe en particulier.

[Tial]

merci Kikof

Je vais voir si j'arrive à me débrouiller avec ça.

Tial

[Tial]

J'ai lu, mais visiblement pas tout compris car je n'arrive pas à adapter à mon cas.

[Lou Pitchoun]

C'est ce code que tu dois utiliser pour te positionner sur un enregistrement.

Code :

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

1
2
3
Dim strCritere as string
strCritere="NomClient LIKE " & chr(34) & "T*" & chr(34)
Me.Recordset.FindFirst strCritere

Quel est ton critère pour trouver un enregistrement ? La valeur d'un champ ?

[Tial]

J'ai bien compris pour ce code.

Code :

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

1
2
3
Dim strCritere as string
strCritere="NomClient LIKE " & chr(34) & "T*" & chr(34)
Me.Recordset.FindFirst strCritere

Pour faire un essai, j'ai crée une zone de texte pour remplacer "T" et "NomClient LIKE " par "Type Like" (Type étant mon champ).

Avec ça, j'arrive à faire une recherche sur mon premier champ contenant le texte de ma zone de texte (mais seulement sur l'enregistrement affiché).


Ce que je n'arrive pas à adapter :
1)Que la recherche se fasse sur l'ensemble de mes champs et enregistrements.
2)Pouvoir afficher suivant... Comme une recherche classique.

C'est la que je décroche...

Tial