Bonjour à tous ,

Je cherche à remplir un formulaire indépendant à partir d'un combobox et voudrais que le nom du formulaire soit mis en variable :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Function AtteindreClient()
 
Dim frm As Form
Set frm = Form_clients
 
Me.IdClient = frm.Cboatteindreclient
 
Me.Prénom = DLookup("[prénom]", "[rqclients]", "[idclient] = '" & frm.[IdClient] & "'")
 
End Function
Access 2010 me dit que l'expression du critère est incompatible ...

Deplus, connaitriez vous une méthode pour simplifier le code pour remplir un formulaire indépendant ? Faut il obligatoirement passer par dlookup ?

Merci d'avance