Empêcher access d'enregistrer directementRésolu/Fermé

Question

Bonjour,l'ami

j'aimerais savoir comment faire pour empêcher access d'enregistrer automatiquement les modifications de données

j'ai prévu un code de confirmation à cet effet que j'ai placé sous l'évènement before_update du formulaire

 If MsgBox("Voulez-vous confirmer la modification", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
    Me.Undo
    Cancel = True
  End If

le code marche mais pas seulement pour les modifications. ie lorsque je fais un nouvel enregistrement et que j'aimerais passé à l'enregistrement suivant, il me demande si je veux confirmer les modifications!!!!
 c'est vraiment embêtant, aider moi

LatelyGeek · Answer

C'est normal que ça fasse ça, c'est le fonctionnement même d'Acccess. Il enregistre avant de passer au suivant.

Tu pourrais par exemple rajouter un champ "Nouveau", qui serait par défaut à Oui, et tu modifierais ton code comme ça:

If Me!Nouveau.Value = True then
Me!Nouveau.Value =False
Else
If MsgBox("Voulez-vous confirmer la modification", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
Me.Undo
Cancel = True
End If 
End if

LatelyGeek · Answer

Iol faut que tu rajoutes un champ Nouveau, avec valeur par défaut = Oui, comme ça tout nouvel enregiostrement serait considéré comme Nouveau grâce à ce champ.
A la mise à jour, Nouveau étant à Oui, Access le mettrait juste à Non.
Ensuite, Nouveau étant à Non, il demanderait la validation de l'enregistrement? Tu me suis?

Pour la suite, je comprends pas: Il y a 4 possibilités et seulement 2 macros.

Unseen, Port A --> Macro 1
LatelyGeek, Port B --> Macro2

LatelyGeek, Port A --> ?
Unseen, Port B --> ?

LatelyGeek · Answer

En fait, à mon sens, si Port A ne peut correspondre qu'à Unseen et vice versa, il est inutile de remplir les deux champs, non?

Quant au code, peut-être que tu devrais essayer "Avant MAJ" dans les propriétés du formulaire.

LatelyGeek · Answer

Chez moi, BeforeUpdate fonctionne. Mais dans les propriétés du formulaire lui même, on est d'accord? Pas d'un des champs.

Et pour la deuxième question, je persiste à penser qu'une des deux zones de choix ne sert à rien... Si Unseen ne peut être que sur le Port A, à quoi bon choisir la personne ET le port???

LatelyGeek · Answer

Je veux bien t'aider mais il me manque des éléments;

Tu mets deux exemples, mais combien d'utilsateurs as-tu en réalité? En fonction de quoi le choix du formulaire à ouvrir se fait-il? Le nom, ou le Port? Ce port est-il stocké quelque part???

J'ai besoin de ces infos pour te répondre.

LatelyGeek · Answer

Tu ne me dis pas non plus OU Access doit vérifier le mot de passe. Je suppose qu'il est enregistré dans la base...

LatelyGeek · Answer

Déjà, mauvaise pioche. Une seule table, avec un champ "Port", qui contiendra Pêche, Direction ou Commerce.

Mais là, on dirait qu'on part carrément de zéro. Je vais répondre à tes questions une par une, mais pas construire la base à ta place. J'y passerais mes journées, vous êtes un certain nombre à poser des questions ici, et c'est juste un forum d'entraide...

LatelyGeek · Answer

Il y a plein de trucs qui ne marcheront pas, dans ton code.

Je te propose de faire différemment, et le plus simple possible avec peu de VB.

Le formulaire s'appelle: Connection.

La zone ou l'utilisateur va choisir son Indentifiant: ChoixId

Celle où il va taper son mot de passe: MotPasse

Celle où va s'afficher son groupe: Groupe. Dedans, tu écriras =RechDom("Groupe";"T_Users";"Utilisateur=ChoixId")
Ca affichera automatiquement le nom du groupe qui doit indiquer le formulaire à ouvrir.

Tu vas en rajouter une, que tu appelleras PassWord et qu'on masquera. Dedans, tu écriras =RechDom("PassWord";"T_Users";"Utilisateur=ChoixId")
Ca affichera automatiquement son mot de passe, mais comme cette zone sera masquée il ne pourra pas la lire.

Tu vas aussi mettre une zone que tu appelleras Compteur, qui comptera les tentatives. On la masquera aussi.

Dans la propriété Après MAJ de la zone ChoixId, tu vas écrire un bout de code: 
DoCmd.Requery("MotPasse")
DoCmd.Requery("Groupe")
Me!Compteur.Value = 1
pour  que les valeurs s'affichent dès que l'utilisateur se sera identifié, et que le numéro de tentative soit bien remis à un.

Et ensuite, le bouton:

Private Sub Commande0_Click()

If Me!MotPasse.Value = Me!PassWord.Value Then
DoCmd.OpenForm "F_" & Me!Groupe.Value, acNormal, , , , acDialog
DoCmd.Close acForm, "F_connection"
Else
    If Me!Compteur.Value = 3 Then
    MsgBox "Vous avez épuisé vos trois tentatives de connection"
    DoCmd.Quit
    Else
    MsgBox "Mot de passe incorrect, merci de réessayer"
    Me!Compteur.Value = Me!Compteur.Value + 1
    End If
End If
End Sub



J'espère que tu as suivi parce que vue l'heure, j'ai la flemme de m'expliquer...

LatelyGeek · Answer

Connection ne se ferme pas parce que tu ouvres l'autre en mode boîte de dialogue.

Et pour ce qui est de la croix j'en sais rien, c'est du Windows, pas de l'Access et je sais même pas si c'est possible. Il faudrait voir si on peu attacher un code à la fermeture de la base, comme on peut le faire pour un formulaire.


---
Pourquoi se compliquer la vie à faire simple, quand c'est si simple de faire compliqué?

LatelyGeek · Answer

Pourquoi tu veux des boîtes de dialogue? Le truc, c'est que le formulaire s'ouvre en mode normal, et tu lui demandes le mode Boîte dialogue alors qu'il est déjà ouvert...

LatelyGeek · Answer

Ben, euh... à vrai dire...

Tu vois, ce qui serait cool, c'est que tu attendes de savoir ce que tu veux faire AVANT de me demander de te pondre des codes.
Pas modifier ce que j'ai déjà eu la patience de faire parce que tu avais pas réfléchi à tel ou tel truc.

Les deux questions que tu poses, tu devrais pouvoir y répondre seul, si tu connaissais Acces un minimum pour ce qui concerne les requêtes, et si tu avais compris mon code pour la deuxième.

Je peux pas faire ta base à ta place, on est là juste pour des coups de pouce, tu comprends?

LatelyGeek · Answer

Généralement ça fonctionne assez bien d'installer comme tu dis, les tables en réseau et l'application elle-même en local sur chaque poste.
Ca merdouille parfois, mais globalement ça fonctionne.

T'inquiète, quand je suis pas là c'est juste que... je suis pas là!

unseen · Answer

Salut LatelyGeek, j'aimerais savoir comment tu caches généralement l'accés de ta base à l'utilisateur de façon à être le seul à y avoir accès.

j'ai utilisé la commande "demarrage" pour  faire apparaitre mon formulaire d'ouverture "connection" .Ensuite pour y avoir accès, j'ai  crée mon propre menu avec la commande "demarrage" que j'ai renommée par un point comme ceci "."   il faut être vraiment vigilant pour le voir. Mais je me dis que quelque qui si connais pourrais y avoir accès facilement.

Pourrais tu me donner une astuce plus robuste.
Merci

LatelyGeek · Answer

Va dans le menu Outils-Sécurité-Autorisations d'accès.

unseen · Answer

le problème ici, c'est que j'ai déjà un formulaire d'ouverture "F_connection", en utilisant la sécurité_ outils il ya une boite  de dialogue qui s'ouvre également à l'ouverture. je trouve que s'identifier deux fois ça fait un peu trop.
ou bien est ce qu'il est possible de ne pas faire apparaitre la seconde boite d'identification que windows génère.

LatelyGeek · Answer

Alors je vais répondre aux deux questions d'un coup: 
Tu veux deux niveaux d'identification, un qui dépend d'Access - la possibilité de modifier ou non les objets - et l'autre pour servir de filtre aux données. Deux niveaux, deux identifications. C'est comme ça.

Et pour ton titre qui défile... C'est typiquement le genre de truc qui parasite une appli, un risque de bug supplémentaire, et qui sert à rien en plus. Je ne me sers jamais de ces trucs là, donc je ne pourrai pas t'aider.

LatelyGeek · Answer

Je pense surtout qu'une fois qu'il est ouvert ta commande ne sert plus à rien, et la propriété "sur ouverture" arrive trop tard.

Il vaudrait mieux écrire un autoexec qui ouvre le formulaire en mode boîte de dialogue.

Ca doit exister en vb, mais j'avoue à ma grande honte que je ne sais pas. Par contre, tu peux écrire une macro, que tu appelles autoexec.
----
Pourquoi se compliquer la vie à faire simple, quand c'est si simple de faire compliqué?

LatelyGeek · Answer

Tu peux mettre plusieurs action dans la macro autoexec, non? Après avoir désactivé la croix, ça t'ouvre ton formulaire... Je dis des bêtises?

LatelyGeek · Answer

Les tables sur le serveur et l'appli sur chaque poste, c'est la meilleure façon de procéder, mais ça n'empêche pas les bugs à 100%. Ca dépend aussi des performances du réseau...

unseen · Answer

Bonjour LatelyGeek

j'aimerais savoir la capacité de stockage de données d'une bd access ?  Est le fait de mettre ma bd (interface dorsale ) sur un serveur permettra de stocker durablement les données (combien d'années au max) ? sinon quelle alternative ?

désolée de te poser toutes ces questions à la fois, au fait la bd gèrera des statistiques portuaires et je n'aimerais pas prendre de risques.

Merci  d'avance

LatelyGeek · Answer

Le problème n'est pas tellement la capacité de stockage, c'est surtout que tu as intérêt à sauvegarder les données dont tu ne te sers plus. Si tu gardes 30 ans de données, c'est sympa pour faire des comparaisons, mais ça va ramer dur... 
En tout cas je n'ai jamais été coincée par la taille de la base, ça rame bien avant. Disons qu'en gros, une base peut faire 1 Go jusqu'à 2000, 2 Go en 2003 et XP. En 2007 je ne sais pas.
Il est possible qu'Access soit sous-dimensionné pour ce que tu as à faire, et qu'il faille passer à autre chose.

Ce qui est sûr, c'est que ce ne sont pas les données qui tiennent beaucoup de place, c'est surtout l'appli si elle fait des "calculs compliqués".
Un conseil: N'oublie pas de compacter tes bases régulièrement (Menu Outils-Utilitaires de base de données)

Et pour ce qui est de la durée de stockage, c'est plus une question de support qu'autre chose...

unseen · Answer

Bonjour latelyGeek

Merci pour tes conseils. je voudrais aussi savoir combien d'enregistrement access  pourrait au max (renseignements pris les données qui seront saisies avoisinent 40 000 enregistrements par année. dc si je connais le max je pourrais prendre des dispositions et avertir mes supérieurs. Excuse moi, mais je ne comprends ce que tu veux dire par " ça va ramer dur" 

Quand tu parles de passer à autre chose, à quelle autre logiciel fais tu allusion ?

je fais la présentation de la base aujourd'hui et ce sont des questions auxquelles je dois m'attendre....

LatelyGeek · Answer

Bon, je suis trop tard pour répondre, mais de toute façon je n'aurais pas pu dire grand chose de plus, puisque ça n'est pas seulement une question de nombre d'enregistrements, mais aussi de taille des champs.

Fais bien attention lors de la création des tables, un champ mémo tient plus de place qu'un champ texte, un entier long plus qu'en entier, une réel plus qu'un entier long et un réel double plus qu'un réel simple, par exemple. Limiote aussi le nombre de caractères quand c'est possible, 255 est bien trop élevé dans la plupart des cas. 

Avec tout ça tu gagneras de la place.
Pour ce qui est des autres logiciels, je ne fais de pub pour personne, mais il existe plein d'autres SGBD un peu moins "graphiques" qu'Access et nécessitant peut-être un peu plus de connaissances en prog, mais plus performants pour les grosses bases.

----
Pourquoi se compliquer la vie à faire simple, quand c'est si simple de faire compliqué?

LatelyGeek · Answer

Onglet Tables, Nouveau - Importer la table, dans une table existante, et tu donnes le nom de la table créée dans Access. Si ça ne marche pas, tu importes les données Excel dans une nouvelle table, et ensuite tu crées une requête Ajout pour les transférer d'une table à l'autre.

Empêcher access d'enregistrer directement

24 réponses

Discussions similaires

Newsletters