Supprimer 1 message d'1 boite de dialogue VBA

Fermé
ludosnip Messages postés 50 Date d'inscription lundi 9 juillet 2007 Statut Membre Dernière intervention 10 février 2010 - 25 oct. 2008 à 18:56
eriiic Messages postés 24582 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 juin 2024 - 29 oct. 2008 à 12:53
Bonjour,

Est il possible de supprimer un message d'avertissement d'une boite de dialogue sur ACCESS avec VBA

Merci d'avance
A voir également:

5 réponses

eriiic Messages postés 24582 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 juin 2024 7 223
25 oct. 2008 à 19:52
Bonjour,

sur excel tu as Application.DisplayAlerts = False
idem sur access ?
eric
0
ludosnip Messages postés 50 Date d'inscription lundi 9 juillet 2007 Statut Membre Dernière intervention 10 février 2010 11
26 oct. 2008 à 10:34
Non j'ai déjà essayé

merci quand même
0
ludosnip Messages postés 50 Date d'inscription lundi 9 juillet 2007 Statut Membre Dernière intervention 10 février 2010 11
28 oct. 2008 à 12:02
voici mon message d'avertissement :

Modification non effectuées, risque de doublons, clé primaire ou relation interdisant les doublons.

je sais que ce que j'ai créé fait inévitablement une erreur de doublons, mais vu la conception je n'ai pas le choix à moins que vous me trouviez une solution en VBA, car pour afficher le nom d'un élève, son prénom et sa classe vers un autre formulaire je n'ai trouvé que cela sur VBA (voir ci dessous) qui me le copie, donc en fait il me copie le nom d'un élève qui est déjà clé primaire ce qui fait inévitablement un doublons (je ne peux pas nom plus mettre un numéro comme clé primaire car il me copierait deux fosi le même nom, avec deux clés différentes).

En fait ce que je voudrais c'est en cliquant sur le nom de l'élève, il m'affiche le nom (mais sans le copier) vers un autre formulaire

Private Sub Nomélève_Click()

DoCmd.OpenForm "ELEVE1", acNormal, , , acFormAdd
Forms![ELEVE1]!Classe.Value = Me!Classe.Value
Forms![ELEVE1]!Nomélève.Value = Me!Nomélève.Value
Forms![ELEVE1]!Prénomélève.Value = Me!Prénomélève.Value
End Sub

Merci d'avance
0
ludosnip Messages postés 50 Date d'inscription lundi 9 juillet 2007 Statut Membre Dernière intervention 10 février 2010 11
29 oct. 2008 à 10:30
personne ne peut m'aider ?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
eriiic Messages postés 24582 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 juin 2024 7 223
29 oct. 2008 à 12:53
je ne connais pas suffisament access pour t'aider mais si tu veux de l'aide dépose ton fichier sur cijoint.fr et colle ici le lien généré.
Et fais un petit up le soir vers 19h30 faire remonter ton message...
eric
0