Mise à jour contrôle après suppression

**ThieBEN** · 26/10/2007, 10h00

Bonjour à tous,
Mon problème réside sur le fait que j'ai un sytème d'archivage de données et que lorsque que j'archive un enregistrement le mot supprimé apparait. j'ai bien essayé la solution de la FAQ mais dans mon cas ça ne fonctionne pas. j'ai déjà dans mon formulaire sur AprèsMJ Me.refresh pour mettre à jour ma liste déroulante donc le Me.requery je ne sais où le placer.
quelqu'un peut-il m'aider.
merci

**Domi2** · 26/10/2007, 10h20

Bonjour,

Essaie après d'ajouter après le refresh :

Code :

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

Me.TaListe.Requery

Domi2

**ThieBEN** · 26/10/2007, 14h34

Désolé mais ça ne marche pas, le mot supprimé apparait toujours.
merci
ThieBEN

**Domi2** · 26/10/2007, 14h55

Re,

Code :

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

j'ai déjà dans mon formulaire sur AprèsMJ Me.refresh

Désolé, j'avais pas bien lu...

Suivant la façon dont tu archives ton enregistrement, l'évènement Après MAJ ne se produit peut-être pas...

Comment archives-tu ? Sur clic d'un bouton ?

Domi2

**ThieBEN** · 26/10/2007, 15h53

Oui avec un bouton et une requête ajout et sup.
MERCI

**Domi2** · 26/10/2007, 15h59

Re,

Essaie de faire le refresh et le requery en adaptant TaListe au nom de ta zone de liste déroulante après avoir exécuté les requêtes dans la procédure sur clic du bouton.

Domi2

**ThieBEN** · 29/10/2007, 09h36

Je ne comprends pas la réponse. Ma liste n'a rien à voir avec l'archivage. En effet elle sert uniquement pour rechercher des enregistrements.
J'utilise ces codes

Après mis jour zone de liste:

Code :

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

1
2
3
4
5
Sub Liste99_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Me.RecordsetClone.FindFirst "[N°adhérents] = " & Me![Liste99]
    Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

Mise à jour du formulaire:

Code :

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

1
2
3
Private Sub Form_AfterUpdate()
Me.Refresh
End Sub

Code du bouton archivage :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande4_Click()
DoCmd.SetWarnings False
 
If MsgBox("Confirmez vous l'archivage de cet adhérent ?", vbYesNo) = vbYes Then
    DoCmd.OpenQuery "Requête Ajout Archive"
    DoCmd.OpenQuery "Requête Suppression Archive"
End If
DoCmd.Close
DoCmd.SetWarnings True
End Sub

Merci

**Domi2** · 29/10/2007, 10h09

Bonjour,

J'essaie de résumer parce que je ne suis pas sûr d'avoir tout compris...

Soit un formulaire, avec une liste déroulante pour rechercher et afficher des enregistrements.

Une fois un enregistrement choisis, tu as sur ce même formulaire un bouton permettant de le supprimer de la table sous-jacente et de l'ajouter dans une table d'archivage. C'est correct ?

Si oui, je ne pense pas qu'il soit nécessaire d'utiliser l'événement Après Maj du formulaire.

Essie de de faire les refresh après les requêtes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande4_Click()
DoCmd.SetWarnings False
 
If MsgBox("Confirmez vous l'archivage de cet adhérent ?", vbYesNo) = vbYes Then
    DoCmd.OpenQuery "Requête Ajout Archive"
    DoCmd.OpenQuery "Requête Suppression Archive"
End If
Me.Refresh
Me.Liste99.Requery
DoCmd.Close
DoCmd.SetWarnings True
End Sub

Domi2

**ThieBEN** · 30/10/2007, 10h43

J'ai essayé rien ne marche.
Je résume : j'ai un formulaire principal ou une liste déroulante permet d'affiché un enregistrement choisi. Ensuite sur ce même formulaire j'ai un controle date de résiliation et un bouton archivé. Lorsque j'entre un date de résiliation il me suffit de cliquer sur le bouton archivage et d'entrée la date de deb et la date de fin de valider et d'archiver cet enregistrement. Lorsque je valide le mot#supprimé# apparait, l'archivage est effectué mes le mot lui ne bouge pas.
Merci

**DMboup** · 30/10/2007, 11h00

Si le mot#supprimé# apparait sur le formulaire, alors il faut réactualiser le formulaire après l'archivage. Pour cela Me.Requery doit s'appliquer sur le formulaire.

Idem pour la liste.

**ThieBEN** · 30/10/2007, 16h38

Envoyé par DMboup

Si le mot#supprimé# apparait sur le formulaire, alors il faut réactualiser le formulaire après l'archivage. Pour cela Me.Requery doit s'appliquer sur le formulaire. OUI mais où?

Idem pour la liste.

J'ai déjà essayé Me.Requery sur le formulaire principal, sur la liste ou les deux rien ne fonctionne.
Si je mets Me.Requery sur la liste je ne peux plus l'utiliser.
Et Me.requery sur le formulaire me ramène au premier enregistrement.
Le mot #supprimé# apparait toujours.
Merci
ThieBEN

**Domi2** · 30/10/2007, 16h56

Bonjour,

Et Me.requery sur le formulaire me ramène au premier enregistrement.

Ca c'est le comportement normal d'Access.

Essaie de remplacer mon refresh initial par Requery, puis de rafraîchir la liste.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande4_Click()
DoCmd.SetWarnings False
 
If MsgBox("Confirmez vous l'archivage de cet adhérent ?", vbYesNo) = vbYes Then
    DoCmd.OpenQuery "Requête Ajout Archive"
    DoCmd.OpenQuery "Requête Suppression Archive"
End If
Me.Requery 'en lieu et place de Me.Refresh initial
Me.Liste99.Requery
DoCmd.Close
DoCmd.SetWarnings True
End Sub

Supprimé a disparu ?

Ta liste déroulante est bloquée ?

Domi2

**ThieBEN** · 30/10/2007, 17h05

Ca ne marche pas quand je confirme archiver access bug sur
Me.Liste99.Requery
Erreur de compilation.
Membre de méthode ou de données introuvable.

**Domi2** · 30/10/2007, 17h08

Re,

Tu as modifié le nom de ta liste ?

Domi2

**ThieBEN** · 30/10/2007, 17h20

Non elle porte toujours le même nom.

**Domi2** · 30/10/2007, 17h26

Re,

Et dans l'éditeur VBA, si tu tapes Me.

l'intellisence te propose bien Liste99 ?

Si tu tapes un . après, Requery est proposé ?

Domi2

**ThieBEN** · 31/10/2007, 09h28

Envoyé par Domi2

Re,

Et dans l'éditeur VBA, si tu tapes Me.

l'intellisence te propose bien Liste99 ?

Si tu tapes un . après, Requery est proposé ?

Domi2

Non il ne me le propose pas, car je pense que la liste n'a rien à voir avec l'archivage.

**Domi2** · 31/10/2007, 09h40

Bonjour,

Extrait :

Soit un formulaire, avec une liste déroulante pour rechercher et afficher des enregistrements.

Une fois un enregistrement choisis, tu as sur ce même formulaire un bouton permettant de le supprimer de la table sous-jacente et de l'ajouter dans une table d'archivage. C'est correct ?

Si ta liste n'est pas proposée par l'intellisence, c'est qu'il y'a problème...

Elle se trouve sur le même formulaire que celui où les enregistrements sont affichés et où tu as ton bouton Commande4 ?

Domi2

Nota : de l'utilité parfois de respecter les conventions d'appelations en VBA

**DMboup** · 31/10/2007, 10h20

Montres nous la source de données de ton formulaire et celle de ta liste.

**ThieBEN** · 31/10/2007, 14h21

La source de mon formulaire:

Code :

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

1
2
3
SELECT ADHERENTS.N°adhérents, ADHERENTS.[Nom Prénom], ADHERENTS.Adresse, ADHERENTS.[Code postal], ADHERENTS.Ville, ADHERENTS.[Tel service], ADHERENTS.[Tel perso], ADHERENTS.[Fax service], ADHERENTS.[Fax perso], ADHERENTS.Mobile, ADHERENTS.[E-mail], ADHERENTS.[Montant cotisation], ADHERENTS.[N° collecteur], ADHERENTS.[Prélèvement auto], ADHERENTS.Espèces, ADHERENTS.N°Groupe, ADHERENTS.[N°Code Routage], ADHERENTS.[Complément adresse], ADHERENTS.Année, ADHERENTS.Date, ADHERENTS.Date2, ADHERENTS.Diffuseur
FROM ADHERENTS
ORDER BY ADHERENTS.[Nom Prénom];

Le contenu de ma liste:

Code :

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

1
2
3
SELECT DISTINCTROW ADHERENTS.N°adhérents, ADHERENTS.[Nom Prénom]
FROM ADHERENTS
ORDER BY ADHERENTS.[Nom Prénom];

Ma liste se trouve sur le même formulaire mais le bouton archiver est sur un formulaire créer à cet effet.
Merci à tous les deux pour votre aide

Mise à jour contrôle après suppression

IHM

Discussions similaires

Partager

Partager