A voir également:
- Access/VBA
- Access appdata - Guide
- Get access - Télécharger - Récupération de données
- Migration base access vers sql server - Télécharger - Gestion de données
- Commun file upload access denied - <a href="https://forums.commentcamarche.net/forum/services-en-ligne-388">Forum Services en ligne</a>
- L'indice n'appartient pas à la sélection vba ✓ - <a href="https://forums.commentcamarche.net/forum/programmation-3">Forum Programmation</a>
1 réponse
Pour faire ce que tu veux, je pense qu'il faut utiliser un "Recordset" (bibliothèque DAO). On l'utilise comme ceci.
----------------------------------------------------------------------------------------------------
Dim TaBaseDeDonnée As Database
Dim TonRecordset As Recordset
Dim requete As String
requete = "SELECT cequetuveux FROM taTable WHERE cequetuveux = ' " & champDuSousFormulaire & " ';"
Set TonRecordset = CurrentDb
Set TonRecordset = TaBaseDeDonnée .OpenRecordset(requete,dbDynaset)
textbox.Value = TonRecordset!cequetuveux
TonRecordset.Close
TaBaseDeDonnée.Close
----------------------------------------------------------------------------------------------------
Si le textBox est dans le formulaire parent du sous-formulaire utilise parent.textBox
Nico
----------------------------------------------------------------------------------------------------
Dim TaBaseDeDonnée As Database
Dim TonRecordset As Recordset
Dim requete As String
requete = "SELECT cequetuveux FROM taTable WHERE cequetuveux = ' " & champDuSousFormulaire & " ';"
Set TonRecordset = CurrentDb
Set TonRecordset = TaBaseDeDonnée .OpenRecordset(requete,dbDynaset)
textbox.Value = TonRecordset!cequetuveux
TonRecordset.Close
TaBaseDeDonnée.Close
----------------------------------------------------------------------------------------------------
Si le textBox est dans le formulaire parent du sous-formulaire utilise parent.textBox
Nico
Aïcha
MERCI MILLE ça marche.merci encore.
