VBA verifier une zone de texte par rapport a une table

Dernière réponse : 16 Février 2011 14:35 dans Programmation

thcdelir

18 Janvier 2006 15:11:56

bonjour a tous ...

Voila j'ai un petit probleme ... Au travail j'ai une base access . Je voudrait pouvoir comparer le texte entré dans une zone de texte avec les champs présent dans ma table nommé Type_mat ... Je me suis rendu compte qu'il fallait que je develloppe ca en VBA, mais comme je ne connais pas grand chose je m'en repose sur vous ... Voila ce que j'ai bidouillé :

Declaration de la fonction :

Private Function test_ok(type_mat As ListBox, Valeur As String) As Boolean
Dim i As Integer
test_ok = False
For i = 0 To type_mat.ListCount - 1
If type_mat.ItemData(i) = Valeur Then test_ok = True
Next i

End Function

Declaration de la procedure :

Private Sub Texte159_Enter()
Dim i As Boolean
Dim type_mat
If type_mat.Value Is Not Null Then
MsgBox Texte159(test_ok([type_mat]![Type], Texte159.Value))
End If
End Sub

texte159 --> Nom de ma zone de texte
type_mat --> Nom de ma table
type --> nom du champs ds ma table ...

Une fois que j'execute ma commande je me retrouve avec une erreur d'execution 424 ... Objet requis ...

Voila chui un peu perdu ... Merci par avance ...

th

Autres pages sur : vba verifier zone texte rapport table

| Etre averti des réponses
| Alerter

Répondre à thcdelir

Lassé par la pub ? Créez un compte

zeb

Expert Programmation

18 Janvier 2006 17:06:10

(( C'est bien aimable de dire bonjour et merci (même si c'est une abbr. anglaise), mais la politesse sur PPC consiste aussi à respecter certaines règles qu'il faut aller chercher dans l'un des 3 premiers sujets, comme commencer tous tes bouts de codes par [ CODE ] (sans les espaces) et les finir par [ /CODE] )).

MsgBox Texte159(test_ok([type_mat]![Type], Texte159.Value))

Là, ça va pas du tout !

MsgBox Texte159(                                          )

                test_ok(                                 ) 

                        [type_mat]![Type], Texte159.Value

(( Je ne réécris sur plusieurs lignes, la lecture est plus simple, mais la syntaxe n'est pas correcte !! ))

Ligne 1: Texte159 n'est pas une fonction !
Ligne 3: [type_mat]![Type] n'est pas une listbox.

Courage...