Discussion :

[pat04]

Bonjour à tous,

Le masque de recherche par défault d'access n'étant pas top je souhaite en faire un moi.

Je n'ai besoin que d'1 critère de recherche.

Mon idée :

Je suis dans un formulaire dépendant déjà ouvert et je suis positionné sur l'enregistrement 1 et le champ X.

J'ai créer un bouton recherche et je souhaitaiterais que sur l'évènement "sur click" de ce bouton s'ouvre une fenêtre type MonDossier= Inputbox("Saisir n° de Dossier").

Je récupére cette variable qui me sert à chercher mon enregistrement et à me positionner dessus, le curseur devant se trouver sur le champ X qui n'est pas le champ en tête du formulaire.

C'est sur cette dernière phrase que j'ai un peu de mal à m'en sortir.

Merci de votre aide.

[pgz]

Bonjour,

Je récupére cette variable qui me sert à chercher mon enregistrement et à me positionner dessus, le curseur devant se trouver sur le champ X qui n'est pas le champ en tête du formulaire.

C'est sur cette dernière phrase que j'ai un peu de mal à m'en sortir.

EN clair, qu'est-ce que tu n'arrives pas à faire :
- te positionner sur l'enregistrement
- ou laisser le curseur dans le contrôle où il était?

PGZ

[pat04]

Jusqu'à inputbox ça va, mais après je ne sais pas comment programmer en VB pour récupérer la variable et l'utiliser pour me positionner sur le bon enregistrement et sur le bon champ.

Merci

[pgz]

Re,

Ce n'est pas trop difficile, sauf un point :
quand tu vas cliquer sur ton bouton de commande, le contrôle qui était actif va perdre le focus et c'est bien ennuyeux!

Pour éviter cela, il ne faut pas utiliser un contrôle bouton de commande, mais par exemple une étiquette. Pour la présentation, tu peux lui donner une apparence 'en relief'. Cette étiquette tu l'appelles MonBouton et sur évènement click

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub MonBouton_Click()
Dim ctl As Control, str As String
 
str = InputBox("num dossier?")
If Nz(str, "") = "" Then Exit Sub
 
Set ctl = Me.ActiveControl
Me.IdDossier.SetFocus
DoCmd.FindRecord str, acEntire, , acSearchAll, , acCurrent
ctl.SetFocus
 
End Sub

En considérant que le numéro de dossier est dans un champ IdDossier.

Il y a d'autres façons de faire...

Bon courage,

PGZ

[pat04]

Je te remercie pour le code, ça marche nickel sans rien "ajouter ni retirer", comme je souhaitais.

Merci encore

Pat04