Discussion :

[clickandgo]

Bonjour,

Voici le code que j'ai placé dans un sous-formulaire et qui est sensé rechercher un contact et afficher celui-ci dans le formulaire principal :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Form_Current()
 
With Forms![gestion des contacts].Recordset.Clone
    .FindFirst "[numcontact] = " & Me![NumContact]
        If Not .NoMatch Then Forms![gestion des contacts].Bookmark = .Bookmark
            End With
 
End Sub

Access me sort alors l' erreur décrite dans le titre...
Le dit code devrait s' éxécuter après clic sur sélecteur du SF.

Merci pour vos suggestions

[User]

Salut,

D'après ce que je comprends de ton code tu souhaites synchroniser le formulaire principal "gestion des contacts" sur l'enregistrement actif du sous-formulaire.

ATTENTION AUSSI LES SOURCES DE TES " FORMULAIRES DOIVENT ETRE IDENTIQUES SINON LES BOOKMARK NE VONT PAS CORRESPONDRE !

Si oui alors as-tu essayé simplement comme ceci sur current de ton sous-formulaire:

Code :

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

1
2
3
4
5
6
 
Private Sub Form_Current()
 
Forms![gestion des contacts].Bookmark = Me.Bookmark
 
end sub

Sinon,
Pourquoi ne pas utiliser une liste déroulante au lieu d'un sous-formulaire

avec un code sur la liste du genre :

Code :

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

1
2
3
4
5
6
7
8
Private Sub LaListe_Click()
 
With Me.RecordsetClone
    .FindFirst "[numcontact] = " & Me![LaListe]
        If Not .NoMatch Then Me.Bookmark = .Bookmark
            End With
 
End Sub

A+