Discussion :

[maxdeveloppeur]

Bonjour tout le monde,

Je viens de débuter en Vba sur access 2003. Je reçois le message d'erreur '424'
"Objet requis" lorsque je fais appel à cette fonction.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function messageNonRemplissage()
If IsNull(TbPartNumber.value) Then
MsgBox ("Veuillez tout d'abord remplir le champ Drawing Number")
End If
End Function

TbPartNumber : est une zone de texte

Pouvez-vous m'aider SVP ...
Je vous remercie d'avance

[Thierry85]

Bonjour,

A mon avis, ce n'est pas une fonction qu'il faut utiliser mais l'évènement "Après MAJ" du formulaire.
Le code devrait ressembler à quelque chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Form_AfterUpdate()
 
If Me.tbpartnumber.Value = "" Then
MsgBox ("Veuillez tout d'abord remplir le champ Drawing Number")
Else
End If
 
End Sub

A vérifier quand même...
Bon courage

[nico84]

Bonjour,

Selon l'endroit où se trouve la fonction, il se peut qu'elle ne voie pas l'objet TbPartNumber. Il convient dans ce cas d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function messageNonRemplissage(s)
If IsNull(s) Then
MsgBox ("Veuillez tout d'abord remplir le champ Drawing Number")
End If
End Function

Et d'appeler :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

messageNonRemplissage(TbPartNumber)