Variable non acceptée dans Dlookup

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:

---

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

Bonjour

Code:

---

[IdClient]

---

n'est pas une variable, c'est pour cela que cela ne va pas.

Dans ton cas pour remplir entièrement un formulaire indépendant, passes par un recordset DAO (tuto dans la liste des tutos).

Philippe

Merci à toi pour cette prompte réponse !

J'ai mis ce code qui marche parfaitement pour atteindre un client et remplir tous les champs du formulaire par automatisme:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Function AtteindreClient()   Dim f As Object Dim rs As DAO.Recordset   On Error Resume Next Set rs = CurrentDb.OpenRecordset("select * from rqclients where idclient = " & Me![Cboatteindreclient])     For Each f In rs.Fields If IsError(Me.Form.Controls(f.Name).Tag) Then Else Me.Controls(f.Name) = f.Value End If Next   rs.Close Set rs = Nothing Me.Requery   End Function

---

Maintenant, est il possible de réutiliser ce code pour les actions ajout/actualisation dans la table ?.

Peut on distinguer certains champs à ne pas prendre en compte dans ces 2 dernières actions ? (tagger les champs non importants par ex ...)

Je suis débutant en VBA , merci pour votre patience et conseils ...

Salut,

Pourquoi utiliser un formulaire indépendant ?

Tu peux très bien lier ton formulaire à la source "rqclients" et après utiliser un code du genre:

Code:

---

1 2 3 4

With Me.Recordset.Clone .FindFirst "[idclient] = " & Me![Cboatteindreclient] If Not .NoMatch Then Me.Bookmark = .Bookmark End With

---

Qui positionne le formulaire sur le bon client ;)

A+

L'utilisation d'un formulaire indépendant est pour raison de sécurité dans le contrôle des champs, cela permet d'effectuer un contrôle de bon remplissage de tous les champs obligatoires ...

J'ai essayé en incorporant un beforeupdate sur le formulaire quand le formulaire était encore lié à la requête source mais, au cas ou l'on décidait de ne pas poursuivre le remplissage, on se retrouvait bloqué car access demande de remplir les champs obligatoirement.

Si je décidais de ne pas continuer la saisie de tous les champs obligatoires, impossible de quitter l'enregistrement en cours ...

Citation:

---

Si je décidais de ne pas continuer la saisie de tous les champs obligatoires, impossible de quitter l'enregistrement en cours ...

---

Parce que tu dois avoir des champs obligatoires dans ta source ou une intégrité référentielle.

Dans ce cas, pourquoi ne pas faire un "Escape" ou un Me.Undo sur ton formulaire lié à ta source ?

Je vais essayer avec un formulaire contenant que quelques champs et je te dirais si j'y arrive...

Je viens d'essayer :

J'ai mis cancel = true sur la condition isnull du champs obligatoire, ça marche mais après je suis bloqué, je suis obligé de fermer le formulaire...

Comment faire pour qu'il me permette d'annuler l'enregistrement en cours et me permette d'aller à un autre ?

Salut,

Pourquoi ne pas créer un bouton annuler avec le code

Code:

---

Me.Undo

---

???

A+