|
|
|
|
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~ |
Access "fonction mid non défini Access fonction module complémentaire vba Ado recordset vb type non défini Derniere cellule "non filtrée" vba Faire fonctionner une freebox v5 en non dégroupé Fonction jour semaine vba Fonction len vba Fonction renvoyer tableau en vba Fonction support définition risk Fonction « replace » non définie dans l'expression Format haute définition non supporté belgacom tv Masquer barre fonctions vba excel Prochaine cellule non vide vba Tant que cellule non vide vba Type défini par l'utilisateur non défini vba folder Variable objet ou variable de bloc with non définie vba Vba changer la valeur d'une cellule en fonction d'une autre Vba syntax sub function
