Bonjour,
 
Voilà je suis bloqué à nouveau sur un problème de remplissage d'une Combobox en Access. Je pensais en avoir fini avec ça et pluis vlan ça marche plus. Estce que quelqu'un pourrait m'aider s'il vous plait ?
 
Voici le code qui me permet d'ouvrir le formulaire et de lui passer les propriétés qui m'intéressent : la région, les droits (admin, création, visu), le statut de l'incident que l'on va visualiser (public=visible par tout le monde en visu, ou privé=visible seulement par la région qui l'a créé)...
 
Ces 3 arguments sont déclarés en public au niveau de mon formulaire "Form_FrmListeDesIncidents", de la manière suivante :
 
 
 
'****************************************************************************************
'* Formulaire de saisie des incidents
'****************************************************************************************
Option Compare Database
Option Explicit
'Gestion des pièces jointes
Public PubFichierSélectionné    As String
'Gestion des droits d'accès
Public StrUser                  As String   'Login de l'utlisateur
Public StrRegion                As String   '"Nat"...
Public StrDroits                As String   '"Administrateur","Visualisation","Création"
Public StrStatut                As String   '"Public"/"Privé"
'Paramétres de la base
Public StrCheminPJ              As String   'Chemin où aller chercher les pièces jointes
 
Par avance je vous remercie car là je sèche lamentablement.  
 
Marco.
 
 
 
 
Public Function FctOpenFicheIncident( _
    ByRef StrRegion As String, _
    ByRef StrDroits As String, _
    ByRef StrStatut As String, _
    ByRef StrUser As String) As Boolean
     
On Error GoTo ErrHandler
     
    Dim StrSvDroits       As String
    Dim StrSvRegion       As String
    Dim StrSvStatut       As String
    Dim StrSvUser         As String
     
    Dim StrCheminPJ As String
     
    FctOpenFicheIncident = False
     
     
    If IsNull(Form_FrmListeDesIncidents.LstResultQuery.Column(7)) Then
        GoTo ExitHandler
    Else
        StrStatut = Form_FrmListeDesIncidents.LstResultQuery.Column(7) '.ItemsSelected(0)
    End If
     
    StrSvDroits = StrDroits
    StrSvRegion = StrRegion
    StrSvStatut = StrStatut
    StrSvUser = StrUser
     
    If Not ModDroits.FctDroitsEnregistrement(StrDroits, StrRegion, StrStatut, StrUser) Then
        Exit Function
    End If
     
    DoCmd.OpenForm "FrmFormulaireIncident"
     
    Form_FrmFormulaireIncident.StrDroits = StrSvDroits
    Form_FrmFormulaireIncident.StrRegion = StrSvRegion
    Form_FrmFormulaireIncident.StrStatut = StrSvStatut
    Form_FrmFormulaireIncident.StrUser = StrSvUser
'
'    If Not ModDroits.FctDroitsFicheIncident(StrDroits, StrRegion, StrStatut, StrUser) Then
'        Exit Function
'    End If
     
    StrDroits = StrSvDroits
    StrRegion = StrSvRegion
    StrStatut = StrSvStatut
    StrUser = StrSvUser
     
    Form_FrmFormulaireIncident.StrDroits = StrSvDroits
    Form_FrmFormulaireIncident.StrRegion = StrSvRegion
    Form_FrmFormulaireIncident.StrStatut = StrSvStatut
    Form_FrmFormulaireIncident.StrUser = StrSvUser
     
    Form_FrmFormulaireIncident.TxtRegionParam.Value = StrRegion 'IIf(StrRegion = "NAT", "*", StrRegion)
     
    If Not FctChargeRegion(StrRegion) Then
        Exit Function
    End If
    Form_FrmFormulaireIncident.TxtRegionParam.Application.Echo True
    Form_FrmFormulaireIncident.StrDroits = StrSvDroits
    Form_FrmFormulaireIncident.StrRegion = StrSvRegion
    Form_FrmFormulaireIncident.StrStatut = StrSvStatut
    Form_FrmFormulaireIncident.StrUser = StrSvUser
     
    If Not ModFichier.FctChercheCheminPJ(StrCheminPJ) Then
        Exit Function
    End If
     
    If Not IsNull(Form_FrmFormulaireIncident.ClosLe.Value) Then
        Form_FrmFormulaireIncident.CmdCloturer.Enabled = False
    End If
'
'    If Not ModDroits.FctDroitsFicheIncident(StrDroits, StrRegion, StrStatut, StrUser) Then
'        Exit Function
'    End If
     
    FctOpenFicheIncident = True
ExitHandler:
    Exit Function
ErrHandler:
    MsgBox Err.Description, vbExclamation, CstAppName
    Resume ExitHandler
     
End Function