|
|
|
|
Bonjour,
Voila mon probleme :
Je veux interroger une table pour voir si un des champs présents dans mon formulaire se trouve dans cette table.
Le champ en question est : Code_Salarie et la table : Temps_en_cours
J'ai ce code là mais dès que je clique sur ma zone de liste (Liste18) il m'affiche l'erreur "Sub ou fonction non définie" en surlignant en gris "TableDefs" et en jaune fluo la premiere ligne de code "Private Sub Liste18_Click".
Si quelqu'un a une idée du pourquoi du message...
Merci beaucoup
Private Sub Liste18_Click()
Dim ma_var As String
Dim champ As Field
Dim existe As Boolean
ma_var = Me!Code_Salarie
champ = SALARIE
existe = False
For Each champ In TableDefs("Temps_en_cours").Fields
If ma_var = champ.Name Then
trouve = True
End If
Exit For
Next champ
If existe Then
MsgBox ("trouvé")
End If
End Sub
Salut,
Sub TrouveChamps()
Dim MaBase
Dim ceChamp
Dim maVar As String
Dim Existe As Boolean
maVar = "Nature"
Existe = False
Set MaBase = CurrentDb()
For Each ceChamp In MaBase.TableDefs("TableComplete").Fields
If maVar = ceChamp.Name Then
Existe = True
Exit For
End If
Next ceChamp
If Existe Then
MsgBox ("trouvé")
End If
End Sub
Lupin ~L'essentiel est invisible pour les yeux~ ~On ne voit bien qu'avec le coeur~ |
Appel de fonction de la part d'une autre fonction vba As3 1120: accès à la propriété non définie Besoin non fonctionnel d'un site web(temps d'execution ,) Bouton eteindre iphone ne fonctionne plus Comment consulter le profil facebook d'un non ami Disque dur non reconnu Fonction ms-dos non valide Fonction rechercher disparu seven Fonction replace vba Lancer une fonction vba depuis excel Modem device on high definition audio bus Opérateur telephone mobile non blacklister Pause dans programme vba Pilote de bus microsoft uaa pour high definition audio Problem msn new version yes non Programme vba graphique Périphérique high definition audio Savoir si jeux pc fonctionne
