[ACCESS][VBA]
Fermé
Bonjour
Je voudrais tester si un de mes champs fait partie des champs d'une table. Seulement, je ne sais pas comment écrire le code pour ce test.
Le champ que je désire tester appartient à un formulaire et se nomme CLE. Et je veux tester s'il se trouve parmi les champs de la table OF_En_Cours.
If ........... Then
MsgBox CLE
DoCmd.OpenForm "Temps_Production", , , stLinkCriteria
DoCmd.OpenQuery "Recup_Val_Inter_Prod", acNormal, acEdit
End If
Si quelqu'un peut m'aider...
Merci
Je voudrais tester si un de mes champs fait partie des champs d'une table. Seulement, je ne sais pas comment écrire le code pour ce test.
Le champ que je désire tester appartient à un formulaire et se nomme CLE. Et je veux tester s'il se trouve parmi les champs de la table OF_En_Cours.
If ........... Then
MsgBox CLE
DoCmd.OpenForm "Temps_Production", , , stLinkCriteria
DoCmd.OpenQuery "Recup_Val_Inter_Prod", acNormal, acEdit
End If
Si quelqu'un peut m'aider...
Merci
A voir également:
- [ACCESS][VBA]
- Access appdata - Guide
- Find vba - Astuces et Solutions
- Excel compter cellule couleur sans vba - Guide
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Acer quick access - Forum logiciel systeme
2 réponses
blux
Messages postés
26694
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
1 mars 2025
3 327
20 juin 2005 à 15:18
20 juin 2005 à 15:18
(Re) Salut,
recherche du côté de l'aide à propos de la collection 'fields' d'une tabledef...
---
A+ Blux
recherche du côté de l'aide à propos de la collection 'fields' d'une tabledef...
---
A+ Blux
"Les cons, ça ose tout. C'est même à ça qu'on les reconnait"
random
Messages postés
1612
Date d'inscription
vendredi 26 novembre 2004
Statut
Membre
Dernière intervention
30 mars 2006
155
20 juin 2005 à 15:29
20 juin 2005 à 15:29
dim ma var as string
dim champ as field
dim existe as boolean
existe=false
mavar=me!nomducontrole
for each champ in tabledefs(matable).fields
if mavar=champ.name then
trouve=true
exit for
next champ
if existe then
msgbox("trouvé")
dim champ as field
dim existe as boolean
existe=false
mavar=me!nomducontrole
for each champ in tabledefs(matable).fields
if mavar=champ.name then
trouve=true
exit for
next champ
if existe then
msgbox("trouvé")
20 juin 2005 à 15:24
MERCI