Discussion :

[scoobydoos]

Bonjour,

Je veux que toutes mes zones de texte avec un astérisque soient remplis.
J'ai mis ca comme code mais il me met une erreur (voir piece jointe)
J'ai mis aussi dans ma table les champs avec "Null interdit = oui" mais je voulais un message perso, cela fait doublon ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton_save_close_Click()
 
If societe.Text = "" Or adresse.Text = "" Or cp.Text = "" Or Ville.Text = "" Or tel.Text = "" Then
    MsgBox("Tous les champs précédés d'une astérique doivent être remplis", vbInformation, "Attention") = vbAbort
Else
    DoCmd.Save
    DoCmd.Close
    Forms![Liste des Clients].Requery
End If
 
End Sub

Est-ce qu'il faut que je fasse une cascade de if...then ? ou que je mette Me. avant mes zones de texte ?

merci par avance

@+

[paidge]

Bonjour,

A priori oui. J'aurai plutôt vu quelque chose du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub CommandButton_save_close_Click()
 
If Me.txt_champ1 = "" Or Me.txt_champ2 = "" Or Me.txt_champ3 = "" Or Me.txt_champ4 = "" Or Me.txt_champ5 = "" Then
    MsgBox("Tous les champs précédés d'une astérique doivent être remplis", vbInformation, "Attention") = vbAbort
Else
    DoCmd.Save
    DoCmd.Close
    Forms![Liste des Clients].Requery
End If
 
End Sub

Mais le message d'erreur indique qu'il ne peut pas faire référence à une propriété du contrôle si celui-ci n'est pas actif. Donc peut-être qu'il faut utiliser la méthode setfocus.

[scoobydoos]

Bonjour,

merci mais ca me fait pas plus de chose...
1- Pourquoi faut-il enlever .text derrière les noms des textes ?
2- Comment fonctionne le code setfocus ?

merci par avance

@+

[micniv]

Bonjour,
Pour rendre la saisie de certains champs obligatoire, il faut utiliiser l'évènement du formulaire Form_beforeUpdate .
Voir des exemples sur ce forum et dèjà dans l'aide

[paidge]

La propriété Texte (Text) permet de définir ou de renvoyer le texte contenu dans une zone de texte ou dans la partie zone de texte d'une zone de liste modifiable. Chaîne en lecture/écriture.

expression.Text
expression Obligatoire. Expression renvoyant l'un des objets figurant dans la liste Application.

Remarques
Le paramètre de la propriété Texte (Text) représente le texte que vous souhaitez afficher dans le contrôle. Cette propriété vous permet également de lire le texte actuellement affiché dans le contrôle.

Cette propriété peut être paramétrée ou lue uniquement à l'aide d'une macro ou de Visual Basic.


Remarque Pour définir ou renvoyer la propriété Text d'un contrôle, ce dernier doit avoir le focus, sinon une erreur se produit. Pour amener le focus dans un contrôle, vous pouvez utiliser la méthode SetFocus ou l'action AtteindreContrôle.


Lorsque le contrôle est activé, la propriété Texte (Text) contient les données texte qui figurent actuellement dans celui-ci ; la propriété Valeur (Value)contient les dernières données enregistrées pour le contrôle. Lorsque vous déplacez le focus vers un autre contrôle, les données de celui-ci sont mises à jour et la propriété Valeur (Value) prend cette nouvelle valeur. Le paramètre de la propriété Texte (Text) n'est alors plus disponible tant que le contrôle n'est pas de nouveau activé. Si vous utilisez la commande Sauvegarder l'enregistrement du menu Enregistrements pour enregistrer les données contenues dans le contrôle sans déplacer le focus, les paramètres des propriétés Texte (Text) et Valeur (Value) seront identiques.

Place ton curseur sur les mots-clés de ton code VBA et appuies sur F1 pour afficher l'aide concernant ce mot-clé C'est très pratique et on en apprend beaucoup

Quand tu écris "Me.NomDucontrole" dans ton code, ça te renvoit la valeur du contrôle ça n'est pas le cas en VB mais en VBA oui

Pour ce qui est de la méthode SetFocus, il suffit d'écrire "Me.NomDuControle.Setfocus" pour "activer" (ou mettre le focus dessus....ce qui veut dire la même chose) le contrôle en question