Discussion :

[clickandgo]

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

[Invité]

Bonjour

Code :

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

[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

[clickandgo]

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 :

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
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 ...

[User]

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 :

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

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+

[clickandgo]

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 ...

[User]

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 ?