Sub ou fonction non definie....[VBA]
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
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
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
A voir également:
- Sub ou fonction non definie....[VBA]
- Fonction si ou - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- Fonction ms dos non valide - Forum Windows 8 / 8.1
- Excel compter cellule couleur sans vba - Guide
2 réponses
Salut,
voilà une soluce :
Lupin
voilà une soluce :
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
