Discussion :

[eric0512]

Bonjour
J'ai un champ A, qui a comme valeur par défaut 0. Si ce champs prend une valeur supérieure à 0, et après mise à jour, il donne le focus à un champs B contenant une liste déroulante et ouvre cette liste déroulante.
Je souhaiterai que la sélection d'une valeur ou une saisie au clavier soit obligatoire dans le champ B.
J'ai saisi le petit programme ci-dessous, il fonctionne après perte de focus du champ B, mais lorsque je ferme la boite de dialogue qui m'indique "Vous devez saisir un motif pour cette dépense", je peux très bien cliquer dans un autre champ et ne pas avoir de valeur dans mon champ B. J'aimerai que le focus revienne dans mon champ B et ouvre, comme initialement ma liste déroulante. Ceci tant qu'aucune valeur n'est pas rentrée.
Merci de votre aide.

Code :

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

1
2
3
4
5
6
Private Sub Modifiable33_LostFocus()
If IsNull(Me![Modifiable33]) Or Me![Modifiable33] = "" Then
MsgBox "Vous devez saisir un motif pour cette dépense!!! !"
Cancel = True
End If
End Sub

[Malick]

Avec ceci vous obtenez quoi :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Modifiable33_LostFocus()
        Dim AS String
	If IsNull(Me.[Modifiable33]) Or Me.[Modifiable33] = "" Then
		Alerte = MsgBox("saisissez un message", vbOkOnly, "Avertissement")
		Cancel = True
		Me.[Modifiable33].setfocus
	End If
End Sub

[eric0512]

Merci pour votre réponse rapide.
C'est identique à ce que je disais avant. A savoir que je peux quitter mon champ B en fermant la boite de dialogue et sans avoir fait de saisie.
J'aimerai ne pas pouvoir quitter le champs B sans avoir fait de saisie sous réserve que le champs A soit > 0

[Malick]

Une solution :

Vous pouvez créer cette obligation directement dans la structure de la table au niveau de la propriété Null interdit en le définissant à Oui.

Vous pouvez également mettre au niveau de la propriété Valide si et saisir Champ A> 0.

[eric0512]

J'y avais pensé au Null Interdit, mais ça oblige une saisie à chaque enregistrement. Alors que si la valeur du champ A est égale à 0 je n'ai pas besoin de saisie dans le champ B.

[Malick]

En utilisant seulement ceci :

Vous pouvez également mettre au niveau de la propriété Valide si et saisir Champ A> 0.

[eric0512]

Çà ne fonctionne pas non plus.....
Merci de votre aide en tout cas

[Malick]

Pourriez-vous zipper et poster une copie de votre base de données (sans données confidentielles) ?

[eric0512]

Voila le fichier zippé. Il y a quelques infos dedans mais qui ne sont pas confidentielles.

[Malick]

De quel formulaire s'agit-il ?

Quel est le champ concerné par la règle ?

[eric0512]

Formulaire Copie de NDF. Les champs concernés sont quoitrans et quoiautre (modifiable 33 et 35)

[Malick]

Voici une proposition qui consiste à rendre les champs inactifs tant que le champ obligatoire n'est pas renseigné.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Modifiable33_LostFocus()
	If IsNull(Me.[Modifiable33]) Or Me.[Modifiable33] = "" Then
		Alerte = MsgBox("Information incomplère sur le champ Transport", vbOKOnly, "Avertissement")
		cancel = True
		Me.[Modifiable33].SetFocus
		Me.lblAutres.Enabled = False
		Me.Modifiable35.Enabled = False
		Me.lblAutres.Enabled = False
	Else
		Me.lblAutres.Enabled = True
		Me.Modifiable35.Enabled = True
		Me.lblAutres.Enabled = True
	End If
End Sub

Cela te convient ?

[kiki29]

Salut, toujours consultable : Obliger une saisie numérique dans une TextBox

[eric0512]

Merci Milkoseck
Je viens de faire le test avec le fichier zippé. Ça ne marche tjs pas. Les 2 champs autre sont grisés et bloqués.
Merci en tout cas

[Malick]

Les 2 champs autre sont grisés et bloqués.

Oui c'est ce que j'ai expliqué dans mon précédent post.
Ces deux champs sont grisés, mais dès que le champ transport est renseigné, ils ne seront plus grisés.

Cela ne te convient pas ?

[eric0512]

Une partie est ok. Il faudrait que ça fasse la même chose lorsque le champ "quoiautre ou modifiable35" a reçu le focus et n'est pas rempli.

[Malick]

Essaie avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Modifiable35_LostFocus()
        Dim AS String
	If IsNull(Me.[Modifiable35]) Or Me.[Modifiable35] = "" Then
		Alerte = MsgBox("saisissez un message", vbOkOnly, "Avertissement")
		Cancel = True
		Me.[Modifiable35].setfocus
	End If
End Sub

[eric0512]

Non ça ne fonctionne pas. Il faudrait que les champs Autres et quoi autre se comportent comme les champs Transport.

[Malick]

Voici votre base corrigée ; est-ce bon pour vous ?