Discussion :

[Tonio571]

Bonjour à tous,

j'essai de créer une recherche dans un sous formulaire, je la créé simplement avec l'assistant. Quand je la test en ouvrant le sous formulaire seul, ça fonctionne, mais quand j'ouvre le formulaire qui contient ce sous formulaire, ça ne fonctionne plus. Je débute sur access donc je suis un peu perdu...

voici le code (enfin je crois )

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
 
Private Sub Rechercher_un_contact_Click()
On Error GoTo Err_Rechercher_un_contact_Click
 
 
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
 
Exit_Rechercher_un_contact_Click:
    Exit Sub
 
Err_Rechercher_un_contact_Click:
    MsgBox Err.Description
    Resume Exit_Rechercher_un_contact_Click
 
End Sub

merci d'avance !

[Mahefasoa]

Bonjour,

Ton problème ne se situerait-il pas au niveau de

Code extrait :

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

1
2
 
Screen.PreviousControl.SetFocus

???
Lorsque ton sous-formulaire est devenu un sous-formulaire (tu comprends ce que je veux dire), il n'est plus accessible par Screen. C'est le formulaire principal qui porte cette "étiquette".
Pourquoi ne pas choisir une syntaxe plus ... saine en désignant le sous-formulaire ainsi qu'un contrôle contenu dans ce dernier plus proprement?!

Bon courage et @+

[Tonio571]

Je veux bien mais en fait, je ne sais pas comment désigné un formulaire... Jusqu'à maintenant je n'utilisais VBA...

[loufab]

Bonjour,

Forms.monform.monsousform.form
Forms("monform").monsouform.form
Forms(x).monsousform.form ou x est le numéro dans la pile
Application.screen.activeform.monsousform.form

Pour désigner un sous form je pense avoir fait le tour

Cordialement,

Ps : il y a un tuto qui devrait être publié très (très) prochainement sur les appels.