{Access} relier des champs.
Fermé
jf_26
Messages postés
18
Date d'inscription
lundi 27 juillet 2009
Statut
Membre
Dernière intervention
28 octobre 2009
-
24 août 2009 à 15:45
jf_26 Messages postés 18 Date d'inscription lundi 27 juillet 2009 Statut Membre Dernière intervention 28 octobre 2009 - 24 août 2009 à 21:14
jf_26 Messages postés 18 Date d'inscription lundi 27 juillet 2009 Statut Membre Dernière intervention 28 octobre 2009 - 24 août 2009 à 21:14
A voir également:
- {Access} relier des champs.
- Access appdata - Guide
- Word mettre à jour tous les champs ✓ - Forum Word
- Mise à jour des champs dans entête/pied de page ✓ - Forum Word
- Générique champs elysées john miles - Forum Musique / Radio / Clip
- MAJ automatique de champs répétitifs dans un document Word - Forum Word
1 réponse
jf_26
Messages postés
18
Date d'inscription
lundi 27 juillet 2009
Statut
Membre
Dernière intervention
28 octobre 2009
2
24 août 2009 à 21:14
24 août 2009 à 21:14
Je crois avoir trouver ma solution avec
Dim db As Database
Dim rst As Recordset
Dim SQL As String
Set db = CurrentDb
SQL = "SELECT DISTINCT Client.Titre, Client.Courriel, Client.tel, Client.NoPoste FROM Client WHERE Client.Nomclient= '" & Me.Nomclient & "'; "
Set rst = db.OpenRecordset(SQL, dbOpenForwardOnly, dbReadOnly)
Forms![Client].Texte65 = rst.Fields("Titre")
Forms![Client].Texte67 = rst.Fields("Courriel")
Forms![Client].Texte69 = rst.Fields("tel")
Forms![Client].Texte57 = rst.Fields("NoPoste")
Dim db As Database
Dim rst As Recordset
Dim SQL As String
Set db = CurrentDb
SQL = "SELECT DISTINCT Client.Titre, Client.Courriel, Client.tel, Client.NoPoste FROM Client WHERE Client.Nomclient= '" & Me.Nomclient & "'; "
Set rst = db.OpenRecordset(SQL, dbOpenForwardOnly, dbReadOnly)
Forms![Client].Texte65 = rst.Fields("Titre")
Forms![Client].Texte67 = rst.Fields("Courriel")
Forms![Client].Texte69 = rst.Fields("tel")
Forms![Client].Texte57 = rst.Fields("NoPoste")