réactualiser un formulaire
j'avais créer une macro dans laquelle je suprimais des enregistrements et ce, en fonction d'un test sur le type de jour.
Cette macro fonctionnait correctement mais les enregistrements supprimés étaient remplacés par un #suprimé
j'ai trouvé dans les FAQ qu'il fallait utiliser Requery
j'ai doncmis dans mon code DoCmd.Requery "datesaisie" ou date de saisie est un des champs de l'enregistrement
mais il ne se passe rien, j'ai toujours #suprimé
Y-aurail-il une erreur dans mon code, comment remédier à ce problème
ci-dessous mon code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Private Sub sup_dim_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim reponse As Integer
Set db = Application.CurrentDb
reponse = MsgBox("ETES VOUS CERTAIN DE VOULOIR SUPPRIMER LES DIMANCHE", vbYesNo + vbQuestion, "sortir")
If reponse = vbNo Then
MsgBox ("VOUS ALLEZ SORTIR DU FORMULAIRE")
DoCmd.Close
Else
db.Execute ("delete SAISIE.DATESAISIE, SAISIE.MATINW, SAISIE.AMW FROM SAISIE WHERE (Weekday([datesaisie]))=1 And ([MATINW]=0 AND [AMW]=0);")
End If
DoCmd.Requery "datesaisie"
End Sub |
