Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 05/10/2011, 03h50   #1
Membre actif
 
Avatar de robyseb
 
Homme Sébastien
Développeur indépendant
Inscription : juillet 2011
Messages : 178
Détails du profil
Informations personnelles :
Nom : Homme Sébastien
Localisation : Canada

Informations professionnelles :
Activité : Développeur indépendant

Informations forums :
Inscription : juillet 2011
Messages : 178
Points : 193
Points : 193
Par défaut Annuler dernière entrée d'une table

Bonjour ou bonsoir à tous !

Vous allez trouver ma question bizarre mais cela fait maintenant 2 heures que je cherche sur le web et ici pis j'ai pas trouver ma réponse encore .......

comment je doit coder mon bouton ANNULÉ pour que mon formulaire se ferme et que la dernière entrée de la table s'efface aussi .....

aidez moi voici ce que j'ai tentez déja :
Code :
1
2
3
Private sub annule_click()
me.undo
docmd.close , ,acsaveno
La fatique me prend et là je ne voit plus claire !!

merci
robyseb est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 05/10/2011, 04h53   #2
Futur Membre du Club
 
Étudiant
Inscription : août 2011
Messages : 38
Détails du profil
Informations personnelles :
Localisation : France

Informations professionnelles :
Activité : Étudiant

Informations forums :
Inscription : août 2011
Messages : 38
Points : 18
Points : 18
voici ce que j'avais fais pour un bouton "supprimer" ça t'inspirera peut être :
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub BT_Suppr_Click()
On Error GoTo ErrorMessage
    Forms!ListPersonnel.RecordSource = "Names"
    Forms!ListPersonnel.FilterOn = True
    Forms!ListPersonnel.AllowDeletions = True
    Forms!ListPersonnel.Filter = "Key=555"
    DoCmd.RunCommand acCmdDeleteRecord
    Exit Sub
ErrorMessage:
    MsgBox Err.Number & ": " & Err.Description
 
End Sub
Sinon, mais comme je ne vois pas du tout à quoi ressemble ton enregistrement, une autre façon de faire consisterait à empêcher tout enregistrement, comme ça quand tu fais "annuler", tu fermes de la page et les dernières infos (donc non enregistrées) que tu as rentré disparaissent.
david89 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 05/10/2011, 13h18   #3
Membre actif
 
Avatar de antoinev2
 
Inscription : septembre 2008
Messages : 124
Détails du profil
Informations personnelles :
Localisation : France

Informations forums :
Inscription : septembre 2008
Messages : 124
Points : 181
Points : 181
Bonjour,

Ce code sur le bouton "Annuler" d'un formulaire fonctionne :

Code :
1
2
Me.Undo
DoCmd.Close acForm, "NomDuFormulaire"
Tu parles bien d'un formulaire directement lié à une table, ou c'est un formulaire contenant des contrôles indépendants?
antoinev2 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 05/10/2011, 14h54   #4
Membre actif
 
Avatar de robyseb
 
Homme Sébastien
Développeur indépendant
Inscription : juillet 2011
Messages : 178
Détails du profil
Informations personnelles :
Nom : Homme Sébastien
Localisation : Canada

Informations professionnelles :
Activité : Développeur indépendant

Informations forums :
Inscription : juillet 2011
Messages : 178
Points : 193
Points : 193
Merci sérieusement access fait ce qu'il veut oufff aujourd'hui ca fonctionne

par contre j'ai remarqué une chose au lieu d'avoir comme source de mon formulaire la table directement, je passe par une requête qui appelle tous les enregistrement soit :merci Antoinev2 pour ta précision
robyseb est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 04h19.


 
 
 
 
Partenaires

Hébergement Web