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 ...
(( 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] )).
