[access] Valide si année en cours

Toutes les réponses

• 

  

  0

  Connectez-vous pour voter

  C'est bon j'ai réussi à résoudre mon problème en passant par du VB.

  J'ai oublié la fonction Valide si.

  Dans l'évènement après mise à jour de ma zone de texte j'y ai mis le code:

  Private Sub Test_AfterUpdate()
  If DatePart("yyyy", Test) > DatePart("yyyy", Date) Then
     MsgBox "Date invalide"
     Cancel = False
  ElseIf DatePart("yyyy", Test) < DatePart("yyyy", Date) Then
     MsgBox "Date invalide"
     Cancel = False
  End If
  End Sub

  
  Et maintenant ça fonctionne, je ne peux plus mettre de date dont l'année est < ou > à l'année système. Il ne me reste plus qu'à trouver le moyen de retourner sur mon champ après l'erreur et ne plus passer à l'instruction suivante.
  

  • Marqué comme réponse Aurel BeraModerator vendredi 10 mai 2013 06:54

  jeudi 9 mai 2013 16:23

  Réponse

  |

  Citation
• 

  

  0

  Connectez-vous pour voter

  J'ai un peu amélioré le code:

  Private Sub Test_AfterUpdate()
  If DatePart("yyyy", Test) <> DatePart("yyyy", Date) Then
     MsgBox "Date invalide"
  End If
  End Sub

  Par contre toujours impossible de rester sur le même champ pour modifier l'erreur, je passe automatiquement au champ suivant.

  Avez-vous une idée pour rester sur le même champ afin de le modifier avant de passer au suivant?

  Merci

  • Marqué comme réponse Aurel BeraModerator vendredi 10 mai 2013 06:55

  jeudi 9 mai 2013 18:10

  Réponse

  |

  Citation
• 

  

  0

  Connectez-vous pour voter

  Bonjour

  On a marque votre réponse afin que d'autres personnes avec le même problème puissent profiter de cette solution.

  Cordialement

  ---

  Aurel BERA, Microsoft
  Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

  vendredi 10 mai 2013 06:56

  Réponse

  |

  Citation

  Modérateur
• 

  

  0

  Connectez-vous pour voter

  Pas de problème.

  Auriez-vous par hasard une idée sur la façon de faire afin de rester sur le même champ lors d'une erreur? J'ai essayé avec "On error resume" mais ça passe toujours au champ suivant...

  vendredi 10 mai 2013 07:39

  Réponse

  |

  Citation
• 

  

  0

  Connectez-vous pour voter

  Bonjour
  

  On Error ...  s'applique aux erreurs apparues dans le code VBA.
  Pour  "focuser" un champ le code VBA c'est
  Forms!Employees!EmployeeID.SetFocus:
  http://msdn.microsoft.com/fr-fr/library/office/aa221598(v=office.11).aspx
  

  Cordialement,

  ---

  Aurel BERA, Microsoft
  Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

  vendredi 10 mai 2013 08:55

  Réponse

  |

  Citation

  Modérateur
• 

  

  0

  Connectez-vous pour voter

  Bonsoir,

  merci encore, j'ai maintenant bien saisi l'histoire du on error...

  Par contre le Forms!Employees!EmployeeID.SetFocus ne me conviens pas vraiment s'il est tout seul. J'ai trouvé ce que je voulais faire avec une partie de ce code.

  Private Sub Form_BeforeUpdate(Cancel As Integer)
  If IsNull(DteInterObj.Value) Or DteInterObj.Value = "" Or DteInterObj.Value = " " Then
  MsgBox " Date vide"
  Me.DteInterObj.SetFocus
  Cancel = True
  end sub

  
  

  J'ai encore un petit souci maintenant.

  J'ai une combobox dans laquelle j'ai mes clients. Je souhaiterai que lorsque je sélectionne un client dans la liste, il soit impossible de supprimer le texte car si je supprime le texte après avoir sélectionné mon client et que je valide, j'ai un message d'erreur. J'aimerai bien que lorsque je sélectionne un client et que j'efface manuellement ce dernier, je sois dirigé vers le contrôle suivant. Ou mieux, empêcher la suppression du texte.

  J'ai déjà empêché la saisie dans la combobox.

  Merci.

  vendredi 10 mai 2013 22:22

  Réponse

  |

  Citation
• 

  

  0

  Connectez-vous pour voter

  Bon bin finalement j'ai encore trouvé :)

  Voici le code:

  Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  Select Case KeyCode
      Case vbKeyBack: KeyCode = 0
      Case vbKeyDelete: KeyCode = 0
    End Select
  End Sub

  
  

  vendredi 10 mai 2013 23:06

  Réponse

  |

  Citation