Empêcher access d'enregistrer directement

Bonjour LatelyGeek

je ne comprends pas le code surtout le début "If Me!Nouveau.Value = True then Me!Nouveau.Value =False " , j'aimerais que tu éclaires ta lanterne.

segondo, j'ai crée un formulaire identification avec les champs :
- utilisateur en liste déoulante (unseen;latelyGeek)
- groupe en liste déroulante (port a , port b)

j'ai crée deux macro (macro1 et macro2) la macro1 ouvre le menu1 et la macro2 ouvre le menu2 . j'ai ensuite crée un bouton de commande que j'appelle connection

je veux si utilisateu = unseen et groupe = port a , en cliquant sur le bouton connection la macro1 s'exécute
de meme si utilisateur = latelygeek et groupe = port b , en cliquant sur le bouton connection la macro2 s'exécute

aide moi pour le code stp

oui, je l'ai omis
Si les deux conditions ne sont pas respectées , en cliquant sur le bouton de commande connection , la macro3 s'exécute. cette macro3 prévoit un msgbox disant à l'utilisateur de revoir ces identifiants. exple " Veuillez revoir vos identifiants "

je ne sais si au lieu d'une macro3 il serait mieux de faire le msgbox directement.

Au fait j'ai plutôt 3 champs
- utilisateur
- mot de passe
- groupe

je pense que si j'ai la syntaxe avec utilisateur et groupe ,je pourrai l'adapter. mais si tu peux le faire, je t'en serai gré.

je comprends aussi ton code mais où et sur quel évènement devrais je le placer : le formulaire, le champ nouveau , sur mon bouton de commande " nouvel enregsitrement" ou sur mon bouton de commande "précédent "

j'ai essayé le code en question sur l'évènement before_update, apparemment il ne semble marcher.

En ce qui concerne le code sur la connection, comme il est vrai que unseen = port a et latelygeek = port b mais je me suis dit que l'utilisateur pourrait se tromper d'où la macro3 faisant apparaitre le msgbox.
Peut être que je devrais synchroniser les listes déroulantes pour gangner en syntaxe. ainsi le code ne va concerner que l'utilsateur et son mot de passe.

j'espère que tu me suis?

je vais rééssayer le code ,le problème doit être du au fait que mes boutons d'actions ouvraient mes formulaires en mode boite de dialogue plutot que standard. je t'informe par la suite.

En ce qui concerne le code de connection je suis d'accord avec toi , c'est vrai j'ai voulu zéler un peu.
Aide moi donc pour la syntaxe avec utilisateur et mot de passe, biensur en prévoyant mes macro (1 et 2) ainsi que le msgbox obligeant l'utilisateur à ressaisir ces données en cas d'erreur.

OK , le code marche

Now, je vais t'expliquer ma base ...

ma base sera utilisée très surement par 3 entités (le port de peche , le port de commerce, la direction commerciale), j'ai pas la liste de tous les utilisateurs mais disons qu'il sont au moins trois (3)

j'ai crée un formulaire " identification" :

- utilisateur (A, B, C ,....)
- mot de passe (...)
- groupe en liste déroulante (port de peche; port de commerce, direction commerciale)

Comme je testais jusqu'à présent , j'ai inscrit ces 3 entités de mon groupe en liste de champs mais peu qu'il faille les mettre dans une table, non?

j'ai crée 3 formulaires "peche, commerce, direction" qui sont en fait les différents menus de mes 3 groupes

j'ai crée 3 macro (la tâche de chacune des macro est de fermer le formulaire "identification " et d'ouvrir, selon sa correspondance le formulaire "peche", "commerce" ou "direction". Ainsi donc

macro1 pour le formulaire "peche"
macro2 pour le formulaire "commerce"
macro3 pour le formulaire "direction"

Sur le formulaire "identification" j'ai mis un unique bouton de commande "connection". J'aimerais que si :

- utilisateur "A" entre avec son password "X" et dans le groupe " port de peche", en cliquant sur "connection", le formulaire " peche" s'ouvre.
- utilisateur "B" entre avec son password "Y" et dans le groupe " port de commerce", en cliquant sur "connection", le formulaire " commerce" s'ouvre.
- utilisateur "C" entre avec son password "Z" et dans le groupe " direction commerciale", en cliquant sur "connection", le formulaire "direction" s'ouvre.

Enfin si cette logique n'est pas respectée, un msgbox apparait pour demander à l'utilisateur de revoir ses identifiants et lui permettre de les ressaisir.

Voici en gros le projet, mais si tu penses que je peux faire simple, je suis ouvert à ta proposition. Je dois faire une présentation de ma base à mon boss en fin de semaine, tu seras gré de m'aider pour de code.

il faut dire que dans mes différents menus, j'ai mis une commande "quitter" qui ferme directement l'application. je ne sais si cela posera un problème lorsqu'il y aura plus d'un utilisateur connecté. Est ce qu'il faille plutôt crée un bouton "déconnection".

Merci de l'aider l'ami.

Sur l'expresion "OK, le code marche ", je parlais du code précédent que tu m'avais conseillé pour ma modification des données.

J'espère que tu as tous les détails pour le bouton de conncection

Merci pour tout !

salut l'ami, je comprends toutes tes demandes mais il faut dire que je ne maitrise pas très bien ce volet. Donc si tu penses qu'il faut créer des tables pour stocker mes données (mot de passe, utilisateur, etc..) fais le selon ta logique, je vais l'adapter dans la mesure de mes possibilités.
je pense que tu t'y connais mieux.
fais ce qui te semble correcte.

Bonjour LatelyGeek

Disons que les données (utilisateur, mot de passe, groupe) seront stockées dans 3 tables (T_peche, T_commerce, T_direction) puisqu'il ya trois formulaires (F_peche,F_commerce,F_direction) à ouvrir. Bien sur, le bouton "connection" en ouvrant chacune de ces formulaires, ferme le formulaire connection "F_connection"'. je prévois bien évidemment un msgbox "identifiants incorrects" et un bouton "annuler" pour quitter l'application au cas où l'utilisateur ne connaitrait ses identifiants.
je pense que c'est plus simple comme ça plutôt que de chercher à exécuter des macros, non?
j'espère que tu me comprends now.
Merci de m'aider pour ce code.

Désolé de t'importuner. comme je te l'ai dit ce volet, je ne le maitrise pas bien.
ma base est fin prête, j'en suis au niveau du formulaire login/mot de passe et de la désactivation totale de la croix de l'application access.

le bouton "connexion" que j'ai créé sur le formulaire " identifiant" doit ouvrir trois (3) autres formulaires selon le groupe auquel appartient un utilisateur avec un mot de passe donné.

lorsque je t'ai parlé toute à l'heure de 3 tables (T_peche contient les identifiants des utilsateurs du port de pêche, T_commerce contient les identifiants des utilisateurs du port de commerce, T_direction ....) , je me suis qu'on pourrait prévoir une requête de sélection dans le code, de sorte que l'utilisateur d'un groupe donné entre le bon mot de passe.

Si tu penses qu'on pourrait le faire avec une table, no problem

Soit la table T_users (utilisateur, password,groupe) . je suppose qu'elle est remplie de la manière suivante

UTILISATEUR PASSWORD GROUPE
A ........... zero ................ peche
B ........... un .............. commerce
C ......... deux ............. direction

* l'utilsateur "A" a pour password "zero" et appartient au groupe "peche" ....

Ainsi je peux ajouter un nouveau utilisateur comme supprimer un ancien
j'espère que tu me comprends, désolé pour toute à l'heure.

Salut LatelyGeek.

Comme je te l'ai dit j'ai crée la table T_users (utilisateur, password,groupe). j'ai mon formulaire "identifiant" avec un bouton de commande "connection" qui ouvre soit le formulaire "F_peche", soit "F_commerce", soit "F_direction". Biensur selon les correspondances de la table T_users (détaillées dans mon précédent message)

le début de mon code est ci -dessous . je peine à écrire le sql (sql = "SELECT * FROM T_user WHERE ...) et à adapter le if aux trois formulaires(F_peche,F_commerce,F_direction). tu pourrais aussi vérifier si je ne me suis pas fourvoyé dans le début de ce code.


Private Sub connection_Click()

Me.Requery
Dim sql, User_id, User_groupe As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM T_user WHERE ..............
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
DoCmd.OpenForm "F_peche", acNormal, , , , acdialog (' le formulaire s'ouvre sous forme de boite de dialogue)
DoCmd.Close acForm, "F_connection"
User_id = rs("utilisateur").Value
User_groupe = rs("groupe").Value
Else
MsgBox " Veuillez revoir vos identifiants ", vbInformation, "Connexion"
i = i + 1
End If
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If

End Sub

Cordiales salutations

Merci LatelyGeek
j'ai testé Ton code dès les premières heures et il marche correctement. la petite remarque que je fais est que mon formulaire "connection" ne se ferme pas directement lorsque le formulaire "F_peche,F_commerce ou F_direction" s'ouvre. Par contre, il se ferme lorsque j'ouvre un formulaire contenu dans ces formulaires. Vraiment merci, c'est déjà bon.

J'aimerais maintenant savoir comment désactiver la croix (touche fermer) de mon application access aussi bien lorsque j'ouvre un formulaire, un état ou une requête.Cela pour obliger l'utilisateur à sortir par la commande prévue à cet effet

Encore Merci.

Ok, j'ai crée des requêtes auxquelles j'avais donné des noms pas très bien libellé vu que j'étais en plein conception. j'aimerais maintenant changer ces libellés qui s'affiche dans la barre de titre comment puis - je le faire.

je veux aussi afficher mon formulaire d'ouverture "F_connection" sous la forme d'une boîte de dialogue.

j'ai écrit sur l'évènement ouverture du formulaire le code suivant :

DoCmd.OpenForm "F_connection", acNormal, , , , acDialog

Est l'emplacement du code qui est mal indiqué ou le problème se trouve dans le code lui même

Merci d'avance !

Ok, j'ai crée des requêtes auxquelles j'avais donné des noms pas très bien libellés vu que j'étais en pleine conception. j'aimerais maintenant changer ces libellés qui s'affiche dans la barre de titre comment puis - je le faire.

Est ce qu'il serait aussi possible de modifier le code que tu m'a proposé pour le formulaire "connection" afin d'y mettre un utilisateur unique "Administrateur" qui aura accès aux trois autres formulaires. j'ai pensé à créer trois administrateurs avec différents mot de passe :

adminstrateur A pour le formulaire F_peche
adminstrateur B .........................F_commerce
adminstrateur C .........................F_direction

Mais je trouve que ça ne fait pas trop professionnel. Aide moi STP.

Tu sais LatelyGeek, je comprends parfaitement ta réaction. Pour sûr j'ai pas tes connaissances en access. jusqu'à présent je n'avais fait que de petites bases de données access. la base actuelle est dense et complexe. Au fait ce n'est pas que je ne sache pas ce que j'ai à faire mais mon boss, me demande beaucoup plus de choses à la fois. A l'heure où je te parle , je suis entrain de la modifier encore alors que je croyais finir
je pense avoir compris ton code du moins en partie et j'ai essayé de changer le nom de mes requêtes en passant par la propriété légende à l'instar du formulaire ou du code me!caption "...".mais rien n'y fit.
Anyway je vais y réfléchir à nouveau et te faire la suite. je te remercie pour ta patience et tes sacrifices.Dire que tu es quelqu'un de bien ne serait jamais assez car ils ne sont pas nombreuses ses personnes qui consacrent du temps aux autres. les propos que je te tiens ne sont pas laudatifs et ils ne visent aucune intention sous jacente.(crois moi) je suis quelqu'un de sincère dans tout ce que je fais et ma qualité à moi c'est la fidélité dans les relations.
je pense que quand tout cela finira, j'échangerai plus profondément avec toi.
Amicalement.

Bonjour LatelyGeek, j'espère que ton week end était cool.
je pense avoir compris ce que tu as voulu dire par "si je comprenais ton code". En effet, j'ai crée un formulaire "administrateur" donnant accès au trois autres formulaires.

Mais pour mes requêtes, je constate que quelque soit le nom que je les donne, le type de requête est toujours précisé. exple (BILAN JOURNALIER : requête sélection).

je voudrais savoir s'il est possible de supprimer "requête sélection" dans mes titres de requêtes.

j'ai aussi créé un champ texte "mois" en une liste déroulante (janvier , février, etc) je constate que lorsque je déroule la liste , access les classe par ordre alphabétique. Comment puis imposer à access de respecter l'ordre des mois (de janvier à décembre)

Enfin, je partage avec toi le code de désactivation de la croix de l'application access dont je t'avais parlé.je l'ai eu sur un forum. Voici la syntaxe :

Copie le code dans un module

Option Compare Database
Option Explicit

Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Public Const MF_BYPOSITION = &H400&
Public Const MF_REMOVE = &H1000&
Public Function DisableX()
'Désactive le X de fermeture d'ACCESS
Dim hMenu As Long
Dim nCount As Long
hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
nCount = GetMenuItemCount(hMenu)

Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)
Call RemoveMenu(hMenu, nCount - 3, MF_REMOVE Or MF_BYPOSITION)

DrawMenuBar Application.hWndAccessApp
End Function

Puis par exemple dans ta macro Autoexec :
Action = ExécuterCode
Nom fonction =DisableX()

Amicalement !

Salut LatelyGeek.

je me répends , je ne te poserai plus de questions banales si telle est la raison de ton absence. Encore une fois je tiens à m'excuser et franchement j'aimerais qu'on se quitte en de bons termes.

j'aimerais que tu fasses fi de toutes les questions que je t'ai posé précédemment et que tu répondes à celle ci . il s'agit de la mise en réseau du base de données.

j'ai ma base qui sera utilisée par plusieurs personnes à la fois. j'ai oui dire qu'il ne faut partager l'application mais plutôt les tables. j'aimerais que tu me donne l'idée générale de la mise d'une base en réseau.

STP réponds moi .

Bonjour LatelyGeek

j'aimerais faire défiler un texte dans ma barre de titre access. exple "bienvenue sur X". j'ai vu sur un forum qu'il est possible de le faire avec la syntaxe SetTitle et/ou SetStatusText. Pourrais tu m'aider ?

ok, je prends bonne note ...


je suis passé par l'outil démarrage pour afficher directement mon formulaire "connection". le probleme est qu'il possible à l'utilisateur de déformer la forme de ce formulaire.

j'ai écris un code sur l'évènement "sur ouverture " du formulaire "connection" afin de le faire apparaitre en mode boite de dialogue.

DoCmd.OpenForm "connection", acNormal, , , , acDialog

ça ne marche pas. je ne sais si c'est le code qui est mal libellé ou ya t'il une propriété permettant de ne pas modifier la forme du formulaire.

Merci de m'aider

je crois que je serai obligé de laisser ce formulaire dans son é.tat actuel car malheureusement , j'ai déjà crée une macro autoexec pour désactiver la croix de l'application access et donc l'application refuse une seconde macro autoexec.

Merci pour tout !

ok, j'ai mis une seconde action dans ma macro autoexec et ça l'air de marcher à condition de mettre "aucune" pour formulaire d'ouverture dans l'outil démarrage.

Pour ta dernière question la désactivation de la croix n'a pour le moment eu aucun impact sur mon formulaire...

j'ai un fichier sur la mise d'une bd access en mode multi users sur réseaux, il est question la dedans d'une interface dorsale et frontale en liaison. la bd est fractionnée, l'interface dorsale ne comporte que les tables et est installer sur le serveur . Quant à l'interface frontale, elle comprend les formulaires, les requetes et les macro et est installer sur tous les autres postes en local. En as tu entendu parlé?

Ma question est de savoir si cette méthode permet de limiter efficacement les risques de bug d'une base access en réseau.?