Discussion :

[cotmar]

Bonjour,

J'ai quelques problèmes avec "Docmd.openform".

Je pense en avoir résolu certains, mais là alors que jusqu'à présent cette loigne ci fonctionnait, à présent elle plante ligne en gras dans ma fonction).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
 
Public Function fctAfficheListeDesIncidents( _
    ByRef StrRegion As String, _
    ByRef StrDroits As String, _
    ByRef StrStatut As String, _
    ByRef StrUser As String) As Boolean
 
On Error GoTo ErrHandler
 
    fctAfficheListeDesIncidents = False
 
    Dim StrOpenArgs         As String
    StrOpenArgs = StrDroits & "¤" & StrRegion & "¤" & StrStatut & "¤" & StrUser
 
 
    DoCmd.OpenForm "FrmListeDesIncidents", , , , , , StrOpenArgs
 
    Form_FrmListeDesIncidents.Requery
 
    If Not ModDroits.FctDroitsListeIncident(StrDroits, StrRegion, StrStatut, StrUser) Then
        Exit Function
    End If
    Form_FrmListeDesIncidents.Visible = True
    fctAfficheListeDesIncidents = True
ExitHandler:
    Exit Function
ErrHandler:
Resume
    MsgBox Err.Description, vbExclamation, CstAppName
    Resume ExitHandler
 
End Function

Est ce que vous pourriez me dire ce qui ne va pas ?

A bientôt et merci.

Marco.

[Tofalu]

ça veut dire quoi, elle plante ? Message d'erreur, description

[cotmar]

Bonjour Tofalu,

Apparemment c'est quand la fenêtre appelée est encore ouverte au momment du lancement en mode modification. J'avais un message "l'ouverture du formulaire a été annulée".

Mais je vais en profiter pour te poser une autre qyuestion si tu veux bien sur un autre problème que je n'arrive pas à solutionner depuis la semaine dernière ?

Merci en tous les cas.

Marco.

[cotmar]

Mon second problème est le suivant :

J'ai une liste d'incidents dans une liste,
Je lique sur une des lignes et àa m'ouvre un formulaire qui correspond à l'incident sélectionné.
Ensuite ce que j'aimerais faire c'est pouvoir passer d'un incident à l'autre (enregistrement précédent, suivant...) mais là ça ne marche pas, car il me dit : "impossible d'atteindre l'enregistrement spécifié".

Est ce que tu pourrais m'aider s'il te plait ?

Je précise que j'ouvre le formulaire de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
 
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)       End If
 
    DoCmd.OpenForm "FrmFormulaireIncident"
 
    If Not ModDroits.FctDroitsEnregistrement(StrDroits, StrRegion, StrStatut, StrUser) Then
        Exit Function
    End If
    If Not ModSQL.FctGetRowSourceFicheIncident(StrRowSource) Then
        Exit Function
    Else
        Form_FrmFormulaireIncident.Filter = "[NumIncident] = " & Form_FrmListeDesIncidents.LstResultQuery.Column(0, Form_FrmListeDesIncidents.LstResultQuery.ItemsSelected(0))
        Form_FrmFormulaireIncident.FilterOn = True
'Me.Filter = "Country = 'USA'"
'Me.FilterOn = True
    End If
 
    Form_FrmFormulaireIncident.Requery
 
    Form_FrmFormulaireIncident.TxtRegionParam.Value = StrRegion 'IIf(StrRegion = "NAT", "*", StrRegion)
 
    If Not FctChargeRegion(StrRegion) Then
        Exit Function
    End If
 
    If Not ModFichier.FctChercheCheminPJ(StrCheminPJ) Then
        Exit Function
    End If
 
    If IsDate(Form_FrmFormulaireIncident.ClosLe) Then
        Form_FrmFormulaireIncident.CmdCloturer.Enabled = False
    End If
 
    FctOpenFicheIncident = True
ExitHandler:
    Exit Function
ErrHandler:
'Resume
    MsgBox Err.Description, vbExclamation, CstAppName
    Resume ExitHandler
 
End Function

Est ce que tu pourrais m'aider s'il te plait ? J'avoue que je ne sais plus trops quoi faire.

Merci d'avance.

Marco.

[Tofalu]

Une question par thread, c'est plus pratique pour les recherches.

Pour la première, peut être as tu un code qui ferme le formulaire non ? Par exemple sur son ouverture. Si tu l'ouvres à la main, ça fonctionne bien ?

[cotmar]

Non pas du tout en fait je ne le ferme pas.
Mais il semble que quand un formulaire est ouvert en mode modification, il refuse de me l'ouvrir au momment du runtime...

OK pour la seconde question, j'ouvre un second thread.

Merci.

[cotmar]

Bon et bienapparemment il y a peut être un problème d'indentation (ou au moins à l'affichage car chez moi ça passe bien) sur les bouts de code que j'ai mis dans le thread.

Je vous l'envoie donc en pièce jointe.

Désolé pour ce petit souci.

Marco.