Modifiable.textRésolu

Question

jour,
j'ai un petit problème...j'ai un formulaire avec un modifiable, j'aimerais que si celui-ci n'est pas rempli, une message box apparaisse pour dire l'erreur.
J'ai mis ce code mais il ne marche pas...si vous pouvez m'aider...

If Modifiable_Pays.Text = "" Then
MsgBox "Erreur : Il manque le pays", vbCritical, "Erreur"
End If

merci beaucoup.

acbdev · Accepted Answer

Essaye cela 

If  Me!Modifiable_Pays = "" or isnull(me!Modifiable_Pays) then
   MsgBox "Erreur : Il manque le pays", vbCritical, "erreur"
end if

Me corresponds au nom du formulaire actif

Anne

jmfmarques · Answer

Bonsoir,

C'est bien ...

Mais il manque une précision indispensable : la procédure évènementielle dans laquelle tu as mis ce code !!! 

Que fait-on, pour le savoir ? On mouille son doigt et on le met au vent ?

charly2812 · Answer

oups, desolé....
voila l'ensemble :
Private Sub Commande2_Click()

If Modifiable_Pays.Text = "" Then
MsgBox "Erreur : Il manque le pays", vbCritical, "Erreur"
End If
If Modifiable_Region = "" Then
MsgBox "Erreur : Il manque la régioné", vbCritical, "Erreur"
End If

Requete_Ajout_Domaine = "insert into Domaine(Libelle_Domaine,ID_Region) values (""" & Texte_Domaine & """,""" & Modifiable_Region & """)"
CurrentDb.Execute (Requete_Ajout_Domaine)
Form_Gestion_BDD.Liste_Domaine.Requery

MsgBox "Domaine ajouté", vbInformation, "Information"

On Error GoTo Err_Fermer_Formulaire_Ajouter_Domaine_Click

    DoCmd.Close

Exit_Fermer_Formulaire_Ajouter_Domaine_C:
    Exit Sub

Err_Fermer_Formulaire_Ajouter_Domaine_Click:
    MsgBox Err.Description
    Resume Exit_Fermer_Formulaire_Ajouter_Domaine_C

    
End Sub
merci

jmfmarques · Answer

Private Sub Commande2_Click()
  If Modifiable_Pays.Text = "" Then
      MsgBox "Erreur : Il manque le pays", vbCritical, "Erreur"
  End If
  If Modifiable_Region = "" Then
     MsgBox "Erreur : Il manque la régioné", vbCritical, "Erreur"
  End If


Ce que tu as écrit ne peut que fonctionner, pour autant :

1) que tu sois sous VB6 et pas sous VB.Net !!!!
2) qu'existent bien les textxtboxes nommées 
Modifiable_Pays et Modifiable_Region (ne pas oublier de lui ajouter le .text ...) et qu'elles sont vides

Quel est donc ton problème ?

charly2812 · Answer

merci pour ta réponse,
je suis sous access.
l'erreur est l'erreur 2185:
Impossible de faire référence à une propriété ou de la définir pour un contrôle si ce dernier n'est pas activé...
si tu as une idée je suis preneur...

Modifiable.text

5 réponses

Votre réponse