Problème d'affichage sur formulaire en fonction des utilisateursRésolu/Fermé

Question

Bonjour, 

Je me permets de tenter ma chance pour trouver une solution à mon problème.

Je travaille actuellement sur une base fractionnée Access 2010, avec un formulaire permettant la saisie de nouveaux enregistrements ou la modification de ceux existants.

Le formulaire est utilisé par plusieurs utilisateurs. Je précise que ces utilisateurs possèdent pas seulement accessviewer.

Mon formulaire marche très bien, il enregistre et modifie parfaitement les enregistrements. Toutefois, je rencontre un problème d'affichage sur une case à cocher et celui-ci n'apparait que sur certains postes utilisateurs.

La case à cocher permet de renseigner un champs dans ma table. Une fois l'enregistrement effectué, j'indique dans mon code que l'ensemble du formulaire dont la case à cocher doit être vide. Le formulaire se vide sauf la case à cocher qui reste sélectionnée, encore une fois que pour certains utilisateurs.

Avez-vous une idée de la cause de cette différence ? Un profil utilisateur différent ? Un paramétrage autre ?

Je joins copie de mon code pour vide mon formulaire et des paramètres de la case à cocher.

TXT_Num_Dossier = ""
TXT_Date_Reception = ""
TXT_Type_Dossier = ""
TXT_Etat_CtrlDoc = ""
TXT_Date_CtrlDoc = ""
TXT_Etat_Decach = ""
TXT_Date_Decach = ""
TXT_Etat_Cession = ""
TXT_Date_Cession = ""
TXT_Date_Cloture = ""
TXT_SemCloture = ""
Bout_Originaux = False

Paramètre case à cocher :
Source contrôle rien
Triple état NON
Valeur par défaut FAUX
Valide si rien
Message si erreur rien
Activé OUI
Vérrouillé NON

J'espère avoir été claire et vous remercie de votre aide.

Amélie

Configuration: Windows / Internet Explorer 11.0

yg_be · Answer

bonjour,
pas vraiment d'idée.
as-tu bien option explicit en début de module?
pas de on error dans le code?
peut-être écrire plutôt Me.Bout_Originaux = False?
ces utilisateurs ont toujours le problème, et les autres jamais?
peux-tu partager ton fichier?

Tessel75 · Answer

Bonjour,
La façon dont tu expliques le processus d'enregistrement n'est pas très claire. A quoi sert ta case à cocher? Ensuite, je ne comprends pas bien pourquoi éprouves-tu le besoin de "vider ton formulaire ? Pourquoi ne pas plus simplement passer à "l'enregistrement suivant ou nouveau, soit par le biais des icônes prévues par Access, soit par un bouton sur le formulaire lui-même avec un bout de code sous-jacent qui appelle l'enregistrement suivant (ou nouveau)?  Cela paraitrait plus simple. 
Mais reste la question première; à quoi sert ta case à cocher? Et est-elle liée à un champ dans la table? Et si "oui, quel est le comportement de ce champ, càd, qu'elles ses valeurs et paramètres par défaut?

Amlie · Answer

Bonjour yg_be, bonjour Tessel75, Je tiens à préciser que je suis débutante en access et que j’ai créé le code toute seule. Mon formulaire sert soit à ajouter un nouvel enregistrement ou à en modifier un. Je vous joins une partie de mon code (je m’excuse si c’est ça fait mal aux yeux) : Sub pour rechercher si enregistrement déjà présent. Private Sub TXT_Num_Dossier_AfterUpdate() 'Recherche numéro dossier pour savoir si déja présent dans la base Dim dbs As DAO.Database Dim Rst1 As DAO.Recordset Set dbs = CurrentDb Set Rst1 = dbs.OpenRecordset("Suivi", dbOpenDynaset) Num_Dossier = TXT_Num_Dossier Rst1.FindFirst "NumeroDossier =" & Chr(34) & Num_Dossier & Chr(34) If Rst1.NoMatch Then Dossier = "Nouveau" TXT_Date_Reception = Date Else Dossier = "Present" TXT_Date_Reception = Rst1("DateReception") TXT_Type_Dossier = Rst1("TypeDossier") TXT_Etat_CtrlDoc = Rst1("ETAT_CONTROLE") TXT_Date_CtrlDoc = Rst1("DATE_ETAT_CONTROLE") TXT_Etat_Decach = Rst1("ETAT_DECACH") TXT_Date_Decach = Rst1("DATE_ETAT_DECACH") TXT_Etat_Cession = Rst1("ETAT_CESSION") TXT_Date_Cession = Rst1("DATE_ETAT_CESSION") TXT_Date_Cloture = Rst1("DATE_CLOTURE") If Rst1("Originaux") = "1" Then Bout_Originaux = "-1" Originaux_Recepetionnes = "OUI" Else Bout_Originaux = "0" Originaux_Recepetionnes = "NON" End If End If End Sub Sub pour enregistrer nouveau dossier ou modification Private Sub BOUT_Enr_Click() Dim rst As DAO.RecordsetDim rstI As RecordsetDim rst2I As RecordsetDim USER As StringDim SemCloture As Byte USER = Environ("username") 'Contrôle si Type dossier est bien renseignéIf TXT_Type_Dossier = "" ThenMsgBox ("Merci de choisir le type de dossier.")Exit SubEnd If 'Enregistrement si nouveau dossierIf Dossier = "Nouveau" Then If TXT_Type_Dossier = "AUTRE" ThenIntervention = "RECEPTION"ElseIntervention = "MAJ"End If 'Enregistrement nouveau dossier dans table suivi Set rst = CurrentDb.OpenRecordset("Suivi", dbOpenDynaset) rst.AddNew rst("NumeroDossier") = TXT_Num_Dossier rst("DateReception") = Date rst("TypeDossier") = TXT_Type_Dossier rst("ETAT_CONTROLE") = TXT_Etat_CtrlDoc If TXT_Date_CtrlDoc <> "" Then rst("DATE_ETAT_CONTROLE") = TXT_Date_CtrlDoc End If rst("ETAT_DECACH") = TXT_Etat_Decach If TXT_Date_Decach <> "" Then rst("DATE_ETAT_DECACH") = TXT_Date_Decach End If rst("ETAT_CESSION") = TXT_Etat_Cession If TXT_Date_Cession <> "" Then rst("DATE_ETAT_CESSION") = TXT_Date_Cession End If If TXT_Date_Cloture <> "" Then rst("DATE_CLOTURE") = TXT_Date_Cloture End If rst("Sem_Arrivée") = Format(TXT_Date_Reception, "ww", 2, 1) rst("Mois_arrivée") = Month(TXT_Date_Reception) rst("Année_arrivée") = Year(TXT_Date_Reception) If TXT_Date_Cloture <> "" Then rst("Sem_cloture") = Format(TXT_Date_Cloture, "ww", 2, 1) rst("Mois_cloture") = Month(TXT_Date_Cloture) rst("Année_cloture") = Year(TXT_Date_Cloture) End If If Bout_Originaux = "-1" Then rst("Originaux") = "1" End If rst.Update rst.Close Set rst = Nothing 'Enregistrement interventions dans table interventions Set rstI = CurrentDb.OpenRecordset("Interventions", dbOpenDynaset) rstI.AddNew rstI("DATE") = Date rstI("HEURE") = Time rstI("USER") = USER rstI("NUMERO_DOSSIER") = TXT_Num_Dossier rstI("TYPE_DOSSIER") = TXT_Type_Dossier rstI("TYPE_INTERVENTION") = Intervention rstI("ETAT_CTRL_DOC") = TXT_Etat_CtrlDoc rstI("ETAT_DECACH") = TXT_Etat_Decach rstI("ETAT_CESSION") = TXT_Etat_Cession rstI("SEM") = Format(Date, "ww", 2, 1) rstI("MOIS") = Month(Date) rstI("ANNEE") = Year(Date) rstI.Update rstI.Close Set rstI = Nothing MsgBox " Enregistrement effectué !" End If 'Enregistrement MAJ quand dossier déja présentIf Dossier = "Present" Then If Originaux_Recepetionnes = "NON" ThenIntervention = "MAJ LOG"Else If TXT_Date_Cloture <> "" Then Intervention = "CLOTURE" TXT_SemCloture = Format(TXT_Date_Cloture, "ww", 2, 1) Else Intervention = "MAJ" End IfEnd If 'enregistrement mise à jour dossier dans table suivi DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE Suivi Set Suivi.TypeDossier = TXT_Type_Dossier WHERE NumeroDossier = TXT_Num_Dossier" DoCmd.RunSQL "UPDATE Suivi Set Suivi.ETAT_CONTROLE = TXT_Etat_CtrlDoc WHERE NumeroDossier = TXT_Num_Dossier" DoCmd.RunSQL "UPDATE Suivi Set Suivi.DATE_ETAT_CONTROLE = TXT_Date_CtrlDoc WHERE NumeroDossier = TXT_Num_Dossier" DoCmd.RunSQL "UPDATE Suivi Set Suivi.ETAT_DECACH = TXT_Etat_Decach WHERE NumeroDossier = TXT_Num_Dossier" DoCmd.RunSQL "UPDATE Suivi Set Suivi.DATE_ETAT_DECACH = TXT_Date_Decach WHERE NumeroDossier = TXT_Num_Dossier" DoCmd.RunSQL "UPDATE Suivi Set Suivi.ETAT_CESSION = TXT_Etat_Cession WHERE NumeroDossier = TXT_Num_Dossier" DoCmd.RunSQL "UPDATE Suivi Set Suivi.DATE_ETAT_CESSION = TXT_Date_Cession WHERE NumeroDossier = TXT_Num_Dossier" DoCmd.RunSQL "UPDATE Suivi Set Suivi.DATE_CLOTURE = TXT_Date_Cloture WHERE NumeroDossier = TXT_Num_Dossier" DoCmd.RunSQL "UPDATE Suivi Set Suivi.Sem_Cloture = TXT_SemCloture WHERE NumeroDossier = TXT_Num_Dossier" DoCmd.RunSQL "UPDATE Suivi Set Suivi.Mois_Cloture = Month(TXT_Date_Cloture) WHERE NumeroDossier = TXT_Num_Dossier" DoCmd.RunSQL "UPDATE Suivi Set Suivi.Année_Cloture = Year(TXT_Date_Cloture) WHERE NumeroDossier = TXT_Num_Dossier" If Bout_Originaux = "-1" Then DoCmd.RunSQL "UPDATE Suivi Set Suivi.Originaux = 1 WHERE NumeroDossier = TXT_Num_Dossier" End If DoCmd.SetWarnings True 'Enregistrement interventions dans table interventions Set rst2I = CurrentDb.OpenRecordset("Interventions", dbOpenDynaset) rst2I.AddNew rst2I("DATE") = Date rst2I("HEURE") = Time rst2I("USER") = USER rst2I("NUMERO_DOSSIER") = TXT_Num_Dossier rst2I("TYPE_DOSSIER") = TXT_Type_Dossier rst2I("TYPE_INTERVENTION") = Intervention rst2I("ETAT_CTRL_DOC") = TXT_Etat_CtrlDoc rst2I("ETAT_DECACH") = TXT_Etat_Decach rst2I("ETAT_CESSION") = TXT_Etat_Cession rst2I("SEM") = Format(Date, "ww", 2, 1) rst2I("MOIS") = Month(Date) rst2I("ANNEE") = Year(Date) rst2I.Update rst2I.Close Set rst2I = Nothing MsgBox " Enregistrement effectué !" End If TXT_Num_Dossier = ""TXT_Date_Reception = ""TXT_Type_Dossier = ""TXT_Etat_CtrlDoc = ""TXT_Date_CtrlDoc = ""TXT_Etat_Decach = ""TXT_Date_Decach = ""TXT_Etat_Cession = ""TXT_Date_Cession = ""TXT_Date_Cloture = ""TXT_SemCloture = ""'Check_Date.Value = "0"'Bout_Originaux.Value = "0"'Bout_Originaux = "0"'MsgBox Bout_Originaux.Value'Bout_Originaux.Value = FalseMe.Bout_Originaux = False'MsgBox Bout_Originaux.Value End Sub Utilisation : Le formulaire s’ouvre vide, L’utilisateur entre une référence de dossier, cela effectue une recherche pour voir si le dossier est déjà présent dans la base ou non. Si il est déjà présent cela rempli l’ensemble du formulaire avec les informations présentes dans la base, sinon c’est à l’utilisateur de renseigner. Ils doivent ensuite cliquer sur un bouton enregistrer pour ajouter un nouvel enregistrement ou pour modifier un déjà présent. Après avoir cliquer sur ce bouton je voulais que le formulaire revienne à vide pour un nouveau dossier. L’utilisateur fini toujours l’ajout ou la modification par le bouton enregistrer. J’ai testé à l’aide d’une msgbox de voir quelle valeur était attribuée à la case à cocher après mon code sur les postes des utilisateurs et elle apparaît à 0 ou faux en fonction des codes que j’avais testé. La case à cocher sert à alimenter un champs dans la base Valeur 1 ou vide. L’alimentation se fait correctement. Je souhaite vider la case à cocher car si l’utilisaTeur rentre un nouveau dossier, la case reste cocher et alimente les champs à tort. Peut être qu’effectivement il y a un autre moyen et je suis preneuse. J’espère avoir été le Plus claire possible en tout cas je vous remercie pour votre aide.

Tessel75 · Answer

Bonjour,
Je me permets d'ajouter mon grain de sel. D'abord, tu dis que tu es débutante; alors sache que si je suis loin d'être débutant sur Access, je suis un parfait autodidacte en matière de bases de données et plus particulièrement sur Access. Cela dit, je suis toujours impressionné quand je vois des personnes comme toi nous aligner des lignes et des lignes de codes, ce dont je serais bien incapable, au moins sous cette forme-là.
Cela étant dit, il me semble que que tu n'utilises pas les facilités qu'offre Access et qui rendrait tes procédures bien plus légères.
En 1er, tu dois savoir que la fermeture d'un formulaire, ou le passage à un nouvel enregistrement, enregistre automatiquement les données entrées dans  ton formulaire. Il n'y a donc rien à faire à la fin d'un enregistrement, juste fermer le formulaire ou appeler "Suivant", ce qui peut se faire soit par la flèche de la barre d'outils ou bien par un bouton ad hoc.  Si j'ai compris qqch à ton code, ça devrait déjà l'alléger un peu. 
Après, pour vérifier si un dossier n'existe pas déjà, il me semble que tu pourrais créer une boite de dialogue qqcq où tu pourrais vérifier qu'il n'existe pas de dossier pour cette identité, avec une procédure If ... Then ... . Si l'identité est déjà répertoriée, on ouvre le dossier et on complète, si elle ne l'est pas, on ouvre un nouvel enregistrement, on entre les données à entrer. A la fin, en passant à l'enregistrement suivant, la boite de dialogue s'ouvre, on vérifie que l'identité est nouvelle; et on recommence.
Là, ce n'est pas une question de code, je le laisse à Yg_be, qui semble bien plus compétent, mais simplement d'utiliser au mieux ce que fait déjà Access, sans qu'il y ait besoin de code, de définitions interminables de paramètres et de renseignements d'inconnues, ou je ne sais quoi.
En espérant avoir pu t'aider un peu.
Bonne soirée.

yg_be · Answer

le code fait beaucoup de manipulations de Bout_Originaux.
es-tu certaine que c'est le code après enregistrement qui ne se comporte pas bien?

tu pourrais utiliser une autre technique pour vider le formulaire: le fermer et le rouvrir.
Dim moi As String
moi = Me.Name
DoCmd.Close
DoCmd.OpenForm moic'est un peu excessif.  cela permettra peut-être de progresser.

Problème d'affichage sur formulaire en fonction des utilisateurs

5 réponses

Discussions similaires

Newsletters