Discussion :

[castours]

Bonjour
Je voudrai mettre une procedure conditionnelle avec la fonction date et un champ date dans une table ou sur un formulaire.
Le champ date nomé DateDépart
Tant que la date du départ est superieur a la date du jour l'enregistrement reste valable.
Si la date du depart est egal ou inferieur al date du jour ,effacer l'enregistrement avec un message d'avertissement comme par exemple voulez vous effacer ces enregistrements.
Si quelqu'un pouvez m'ecrire ces quelques lignes de procedure, j'en serai ravi.
Je ne connais que trés peu VBA.
Avec access 2003
Alors merci de votre aide

[ClaudeLELOUP]

Bonjour,

Ai-je compris ce que tu voudrais faire ?

Dans un formulaire, l'utilisateur est occupé à ajouter un nouvel enregistrement.
Tu voudrais imposer que dans le contrôle qui doit contenir une date de départ, celle-ci doit être supérieure à la date du jour.

[castours]

Bonjour
Merci d'avoir repondu
Oui c'est un peu cela.
On fait un devis avec une date de voyage. On a des reponse ou pas.
Je voudrai que tous les enregistremnts inferieur a la date du jour s'efface lorsque la date du jour arrive.

[ClaudeLELOUP]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Compare Database
Option Explicit
 
Private Sub Form_Current()
  On Error GoTo GestionErreur
  Dim Reponse As Integer
  If Me.DateDépart < Date Then
      Reponse = MsgBox("Voulez-vous supprimer ?", vbInformation + vbDefaultButton2 + vbOKCancel)
        If Reponse = vbOK Then
           'DoCmd.SetWarnings False
           DoCmd.RunSQL ("DELETE id FROM LaSourceDuFormulaire WHERE id=" & Me.id & ";")
           DoCmd.SetWarnings True
        End If
  End If
  Exit Sub
GestionErreur:
  Select Case Err.Number
     Case 3075 'on essaie de supprimer un supprimé
       Exit Sub
     Case Else
       MsgBox "Erreur N° " & Err.Number & " " & Err.Description & "."
  End Select
End Sub