Problème sur la gestion d'erreur d'access 2000

Question

J'essaye de gérer les erreurs d'un des formulaire de ma base. Voila le bout de code que j'essaye de compléter:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const err_null = 3314
If DataErr = err_null Then
Dim sociétés As DAO.Recordset
        Dim sites As DAO.Recordset
        Dim dbs As Database
        Set dbs = CurrentDb 
        Set sites = dbs.OpenRecordset("sites")
        Me.[Nom].Value = "erreur"
        sites.Edit
        Me.[Nom société court].Value = sites![Nom société court]
        Me.[Nom Site].Value = sites![Nom du site]
        Response = acDataErrContinue
End If
End Sub

J'explique le problème:
 j'ai trois champs  (Nom,Nom société court, Site)qui doivent absolument avoir une valeur (defini dans les tables)
Je veux gérer le cas ou l'utilisateur ne saisie pas les infos
merci d'avance

alfajac · Answer

Salut,

pourquoi ne fais tu pas une simple detection de contenu de champ ... champs vide/ champs plein ?
c plus simple ..
et tu peux egalement envoyer un message pour indiquer a l'utilisateur qu'il faut remplir tel ou tel champs avant de valider ..
je le fais courement ds mes developpement et en plus c'est convivial ... l'utilisateur ne se pose pas de question et ne cherche pas l'erreur.

B courage,

 8-) Le Negociateur

tbbuim1 · Answer

Pour se faire, je te conseil d'utiliser la fonction isnull
if IsNull(Me.NomSite) then msgbox "Tu m'as oublié! :("
TBBUIM

Problème sur la gestion d'erreur d'access 2000

2 réponses

Discussions similaires