Discussion :

[ouflala]

Bon bon bon...
C'est super sympa toutes vos reponses...mais on s'y perd un peu...
Les éleveurs sont entrés au fur et a mesure et le but c'est bien d'avoir un controle qui evite d'indemniser des gens qui n'en n'ont pas le droit.

Normalement avec un msgbox suivit d'un setfocus ca devrait marcher...Mais je n'arrive pas a faire fonctionner le setfocus . Je voous joins mon code...
If (Texte40 < Texte102) Then
MsgBox ("ATTENTION c'est pas bon")
Texte40.setfocus
end if

[ilank]

Bonjour ouflala,
comment saisis-tu la date1 ?
Parce que si la saisie se fait au clavier et non par un control calendrier ou Datepicker; tu dois peut-être préciser que le test s'effectue sur des dates.

Exemple :

Code :

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

1
2
3
4
IF DateValue(Texte40)<DateValue(Texte102) Then
  MsgBox "....."
  Texte40.SetFocus
End if

Par ailleurs, tu écris :

Les éleveurs sont entrés au fur et a mesure et le but c'est bien d'avoir un controle qui evite d'indemniser des gens qui n'en n'ont pas le droit.

Je ne vois pas comment ici, tu fais la différence entre les élèveurs à indémniser et les autres. Puisque tu obliges la saisie d'une date de décès qui ouvre les droits à indémnisation, c'est que tu considères que seuls les éleveurs à indémniser sont saisis dans ce formulaire.
C'est bien ça ?

[mattvin]

Je comprend la même chose que ilank, c'est pour cela que j'ai proposé ma solution. Mais peut-être qu'on se trompe les deux.

Donc ouflala peux tu nous dire si :

• Tous les éleveurs seront rentrés
• Seuls les éleveurs qui auront l'indémnisations seront rentrés

Et pour que ton post soit plus clair, pourrais tu mettre la balise code stp.

ps : azertix, oui je susi d'accord avec toi

Merci d'avance.

Bonne journée.

[azertix]

Bon bon bon...
C'est super sympa toutes vos reponses...mais on s'y perd un peu...
Les éleveurs sont entrés au fur et a mesure et le but c'est bien d'avoir un controle qui evite d'indemniser des gens qui n'en n'ont pas le droit.

Normalement avec un msgbox suivit d'un setfocus ca devrait marcher...Mais je n'arrive pas a faire fonctionner le setfocus . Je voous joins mon code...
If (Texte40 < Texte102) Then
MsgBox ("ATTENTION c'est pas bon")
Texte40.setfocus
end if

Si je peux me permettre quelques conseils concernant ton code :
- donner des noms explicites à tes contrôles et utiliser des préfixes
- utiliser les syntaxes complètes :

Code :

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

Me.txtDateVaccin.Value

au lieu de :

Texte40

Je peux paraitre pointilleux, mais tu verras que ce sont de bonnes habitudes à prendre qui te faciliteront la vie, ainsi qu'au(x) développeur(s) qui reprendront éventuellement ton travail plus tard.
De plus, quand tu tape ton code, tu n'a pas à chercher un nom de contrôle du genre

Texte36

tu as juste à taper "Me." et suivant si tu cherche une zone de texte ou une zone de liste déroulante, tu fais txt ou lst et tu obtiens la liste de tes contrôles

Pour revenir au problème initial, j'irais plus loin qu'ilank en utilisant la fonction CDate() au lieu de DateValue() pour être sûr de comparer deux dates et non deux chaines de caractères :

Code :

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

1
2
3
4
If CDate(Me.Texte40.Value) < CDate(Me.Texte102.Value) Then
  MsgBox "....."
  Me.Texte40.SetFocus
End if

[ouflala]

Merci pour tous ces conseils...

Par contre le set focus ne parche tjs pas...
Quand je tape le code, que ce soit avant MAj, apres maj ou sur perte focus , un fois que je clique sur le OK de la fenetre msgbox, le focus n'est pas ur le bon champ...

[azertix]

Curieux
Ton champ n'est pas verrouillé ni désactivé ni invisible pourtant ...
Ce sont les seules raisons qui pourraient empêcher la réception du focus (je crois).
Essaye :

Code :

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

1
2
3
4
5
If CDate(Me.Texte40.Value) < CDate(Me.Texte102.Value) Then
  MsgBox "....."
  Me.Texte120.SetFocus
  Me.Texte40.SetFocus
End if

[ouflala]

Bon finalement, j'ai opté pour un verrouillage par defaut des champs. Ces derniers se deverrouillent qd la condition est remplie.
Par contre comme mon formulaire est en mode continu ca deverrouille tous les enregistrements...

qq'un a un solution???

[azertix]

J'ai testé chez moi le code que je t'ai donné plus haut et le focus est bien donné ...
Je te mets la base en PJ

[azertix]

Bon finalement, j'ai opté pour un verrouillage par defaut des champs. Ces derniers se deverrouillent qd la condition est remplie.
Par contre comme mon formulaire est en mode continu ca deverrouille tous les enregistrements...

qq'un a un solution???

Tu as positionné les propriétés de tes autres zones de texte sur Verrouillé ?
Normalement, ça devrait utiliser ces propriétés au démarrage du formulaire ...
Sinon tu les verrouille sur chargement du formulaire :

Code :

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

1
2
3
Private Sub Form_Load()
   Me.monControle.Locked = True
End Sub

Poste ton(tes) code(s) stp

[ouflala]

en fait c'est pas . locked que j'utilise, mais.enable=false
Ca viendrait de la????

[azertix]

Ben oui pardi !
Je te l'ai dit plus haut
Enabled = Activé en français et je t'ai donné plus haut les 3 raisons qui peuvent empêcher la réception du focus.
Si tu désactive un contrôle, il existe, il est visible, mais on ne peut pas l'utiliser.
Il faut que tu utilise Locked si tu veux empêcher la saisie dans la zone de texte

Bonne continuation, je ne repasse pas avant demain

[Jacques-Henri]

Je comprends mieux maintenant les exigences d'une saisie de la date 1 et je suis tjs convaincu des propositions d'azertix et ce sans parti pris : logiques et répondant parfaitement au besoin.
J' ajoute que je pourrai m'inspirer des petites finesses proposées. Comme quoi, l'échange d'idées est tjs intéressant.
Bonsoir et bonne chance à Ouflala

[ouflala]

Ouf ca y est... J'ai réussi... Le setfocus marche, et les champs sont verrouillés...Pas de possibilité de changements...

Un grand merci vous tous...

Par contre du coup j'ai un autre pb...(et ioui, sinon ca serait trop facile...)

L'enregistrement des animaux se fait sur un formulaire en mode continu, c'est a dire que les animaux sont à la suite pour un meme éleveur.

Quand un champs se bloque, ca bloque ce champs pour tous les animaux du formulaire...Comment faire pour que ca ne bloque que le champ de l'animal en cours??

[azertix]

Tu ne peux pas désactiver le contrôle juste pour un enregistrement, car c'est comme s'il y avait plusieurs fois le contrôle. Donc s'il est verrouillé, il le sera pour tous les enregistrements.
Ce qu'il te faut faire, c'est réactiver les contrôles si la saisie de la date est bonne, puis tout déverrouiller quand tu clique sur ton bouton d'ajout :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
If CDate(Me.Texte40.Value) < CDate(Me.Texte102.Value) Then
  'Quand c'est pas bon
  MsgBox "....."
  Me.Texte40.SetFocus
Else
  'Quand c'est bon
  Me.monControle1.Locked = False
  Me.monControle2.Locked = False
  Me.monControle3.Locked = False
  'etc...
End if

Sur click du bouton d'ajout :

Code :

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

1
2
3
4
Me.monControle1.Locked = True
Me.monControle2.Locked = True
Me.monControle3.Locked = True
'etc...

[ilank]

Bonjour à tous,
dans le cas où ton sous-formulaire à une source de données et que tous les controls sont eux-mêmes liés; tu peux essayer en placant le code dans le form_current,ou encore utiliser le format conditionnel et Enabled au lieu de Locked.

[azertix]

Bonjour à tous,
dans le cas où ton sous-formulaire à une source de données et que tous les controls sont eux-mêmes liés; tu peux essayer en placant le code dans le form_current,ou encore utiliser le format conditionnel et Enabled au lieu de Locked.

Ouflala n'utilise pas de sous-formulaire si je ne m'abuse

[ilank]

Ca ne change rien Azertix.
Tou dépend de la dépendance ou indépendance d'avec une source de données. Si les controls du formulaire sont indépendants; les propriétés s'appliquent sur toutes les lignes; s'ils sont liés à une source les propriétés peuvent être conditionnées aux valeurs de l'enregistrement. Tu peux bien avoir deux couleurs sur un form continu de cette manière.
J'ai parlé de sous-formulaire après avoir lu ça :

L'enregistrement des animaux se fait sur un formulaire en mode continu, c'est a dire que les animaux sont à la suite pour un meme éleveur.

Pour un même éleveur, plusieurs animaux sur un formulaire continu. Ca m'a semblé correspondre à une structure formulaire principal - sous-formulaire continu. Pas bien grave si je me suis trompé.

[azertix]

Si les controls du formulaire sont indépendants; les propriétés s'appliquent sur toutes les lignes; s'ils sont liés à une source les propriétés peuvent être conditionnées aux valeurs de l'enregistrement.

Ça ne serait pas l'inverse plutôt ?

De plus, l'objectif n'est pas de changer la mise en forme des contrôles, mais juste d'empêcher les utilisateurs de pouvoir remplir les champs tant que la condition n'est pas remplie (date1>date2). C'est donc bien la propriété Locked qui est à utiliser.

[ouflala]

Hello ...
en fait j'utilise un formulaire principal pour entrer les données des eleveurs, puis en face de chaque eleveur, il ya un petit bouton qui ouvre un autre formulaire qui permet de rentrer les animauix morts pour chaque eleveur...

Merci pour l'info azertix et ilank sur le blocage des formulaires.
Finalement j'ai opté pour ca:

Ce qu'il te faut faire, c'est réactiver les contrôles si la saisie de la date est bonne, puis tout déverrouiller quand tu clique sur ton bouton d'ajout :

Je pense que l'on peut clore ce topics....pour en rouvrir un autre sur un autre pb...
Merci pour tous les gars...c'est vraiment tres tres sympa de votre part...

[vodiem]

salut à tous,

d'abord veuillez m'excuserez d'avoir sauté quelques plusieurs lignes (voir pages... ).
on peut empêcher plus simplement la sortie avec l'événement "sur sortie" du controle:

Code :

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

1
2
3
4
5
Private Sub Texte40_Exit(Cancel As Integer)
If CDate(Me.Texte40.Text) < CDate(Me.Texte102.Value) Then
  MsgBox "....."
  Cancel = True
End Sub

mais je ne recommande pas cette méthode qui est incomplète et inappropriée car si l'utilisateur veux annuler il ne peut pas sortir du champ.

il est préférable pour cela d'utiliser l'événement "avant maj" dans les propriétés du formulaire et donc empêcher la validation de l'enregistrement si l'ensemble des conditions ne sont pas remplit pour la saisie et éventuellement se positionner sur le champ concerné.

sinon pour l'activation des controles tu trouveras peut être ton bonheur avec cette contribution.