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

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?

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?

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.Recordset
Dim rstI As Recordset
Dim rst2I As Recordset
Dim USER As String
Dim SemCloture As Byte
 
USER = Environ("username")
 
'Contrôle si Type dossier est bien renseigné
If TXT_Type_Dossier = "" Then
MsgBox ("Merci de choisir le type de dossier.")
Exit Sub
End If
 
'Enregistrement si nouveau dossier
If Dossier = "Nouveau" Then
 
If TXT_Type_Dossier = "AUTRE" Then
Intervention = "RECEPTION"
Else
Intervention = "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ésent
If Dossier = "Present" Then
 
If Originaux_Recepetionnes = "NON" Then
Intervention = "MAJ LOG"
Else
    If TXT_Date_Cloture <> "" Then
    Intervention = "CLOTURE"
    TXT_SemCloture = Format(TXT_Date_Cloture, "ww", 2, 1)
    Else
    Intervention = "MAJ"
    End If
End 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 = False
Me.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.

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.

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 moi

c'est un peu excessif. cela permettra peut-être de progresser.