Discussion :

[cotmar]

Bonsoir,

Lorsque j'appuie sur le boutton "sauvegarder" de mon formulaire, j'ai un message : "impossible d'atteindre l'enregistrement spécifié".

Le code est le suivant :

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
64
 
 
Private Sub CmdVisulaliser_Click()
On Error GoTo ErrHandler
 
    If Not ModGeneral.FctOpenFicheIncident(StrRegion, StrDroits, StrStatut, StrUser) Then
        Exit Sub
    Else
        Call ModLogFile.SubAddAction("Visualisation d'un enregistrement")
    End If
ExitHandler:
    Exit Sub
ErrHandler:
    MsgBox Err.Description, vbExclamation, CstAppName
    Resume ExitHandler
 
End Sub
 
 
 
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 StrOpenArgs         As String
 
    Dim StrCheminPJ         As String
 
    StrOpenArgs = StrDroits & "¤" & StrRegion & "¤" & StrStatut & "¤" & StrUser
 
    FctOpenFicheIncident = False
 
    If IsNull(Form_FrmListeDesIncidents.LstResultQuery.Column(7)) Then
        GoTo ExitHandler
    Else
        StrStatut = Form_FrmListeDesIncidents.LstResultQuery.Column(7)     End If
 
    DoCmd.OpenForm "FrmFormulaireIncident", , , , , , StrOpenArgs
Form_FrmListeDesIncidents.LstResultQuery.Column(0, Form_FrmListeDesIncidents.LstResultQuery.ItemsSelected(0))
 
    If Not ModFichier.FctChercheCheminPJ(StrCheminPJ) Then
        Exit Function
    End If
Form_FrmListeDesIncidents.LstResultQuery.Column(0, Form_FrmListeDesIncidents.LstResultQuery.ItemsSelected(0))
 
 
    FctOpenFicheIncident = True
ExitHandler:
    Exit Function
ErrHandler:
'Resume
    MsgBox Err.Description, vbExclamation, CstAppName
    Resume ExitHandler
 
End Function

Est ce que vous pourriez m'aider sur ce point s'il vos plait ?

Par avance merci.

Marco.

[Faw]

Salut, pas vraiment d'idée mais ceci

Code :

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

Form_FrmListeDesIncidents.LstResultQuery.Column(7)

dans une Public Function, ça ne passe pas à l'exécution normalement.

Code :

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

Forms!Form_FrmListeDesIncidents!LstResultQuery!Column(7)

[cotmar]

Bonjour,

Merci de ta réponse Faw.

Sinon, pour l'ajout, je suis en train d'essayer d'autres méthodes :

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
 
 
 
 
Private Sub CmdNouveau_Click()
On Error GoTo ErrHandler
        Dim StrSearchName As String
 
 
        Set rs = Me.RecordsetClone
'        StrSearchName = Str(Form_FrmListeDesIncidents.LstResultQuery.Column(0, Form_FrmListeDesIncidents.LstResultQuery.ItemsSelected(0)))
        rs.AddNew '"NumIncident = " & StrSearchName
'    DoCmd.GoTo Record , , acNewRec
'    Me.Recordset.AddNew
 
ExitHandler:
    Exit Sub
ErrHandler:
    If Err.Number = 2499 Then
        Resume Next
    End If
    MsgBox Err.Description, vbExclamation, CstAppName
    Resume ExitHandler
 
End Sub

1) Dans la première : ' DoCmd.GoTo Record , , acNewRec
J'avais le message d'erreur que j'ai décrit plus haut.

2) Dans la seconde : ' Me.Recordset.AddNew
Le message est : "la méthode a été annulée par un objet associé".

3) Mon troisième essai :

[cotmar]

Bonjour,

Merci de ta réponse Faw.

Sinon, pour l'ajout, je suis en train d'essayer d'autres méthodes :

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
 
 
 
 
Private Sub CmdNouveau_Click()
On Error GoTo ErrHandler
        Dim StrSearchName As String
        Dim rs as DAO.Recordset
 
        Set rs = Me.RecordsetClone
'        StrSearchName = Str(Form_FrmListeDesIncidents.LstResultQuery.Column(0, Form_FrmListeDesIncidents.LstResultQuery.ItemsSelected(0)))
        rs.AddNew '"NumIncident = " & StrSearchName
'    DoCmd.GoTo Record , , acNewRec
'    Me.Recordset.AddNew
 
ExitHandler:
    Exit Sub
ErrHandler:
    If Err.Number = 2499 Then
        Resume Next
    End If
    MsgBox Err.Description, vbExclamation, CstAppName
    Resume ExitHandler
 
End Sub

1) Dans la première : ' DoCmd.GoTo Record , , acNewRec
J'avais le message d'erreur que j'ai décrit plus haut.

2) Dans la seconde : ' Me.Recordset.AddNew
Le message est : "la méthode a été annulée par un objet associé".

3) Mon troisième essai :
Set rs = Me.RecordsetClone
rs.AddNew
J'obtiens le message suivant :
"Mise à jour impossible. La base de données ou l'objet est en lecture seule."

Est ce que ça dirait quelquechose à quelqu'un ? Je pense qu'il y a quelquechose que je fais mal, mais quoi ?

Si jamais pour répondre vous avez besoin de précisions, surtout n'hésitez pas.

Par avance merci.

Marco.

[Faw]

Salut,
un exemple d'ajout d'enregistrement en utilisant DAO
http://warin.developpez.com/access/d...artie_5#L5.4.3

en espérant que ça t'aidera.
et pour l'erreur sur la ligne de code. Column étant propriété et non
contrôle c'est un point bien sûr qu'il faut mettre.

Code :

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

Forms!Form_FrmListeDesIncidents!LstResultQuery.Column(7)

...Après je m'étonne que mon clavier me joue des tour

[cotmar]

Merci Faw,

En fait j'ai esasyé de faire comme tu m'as dis et je comprends pas apparemment il fait comme si la base était verrouillée par quelqu'un d'autre...

C'est plutôt bizare.

Enfin merci.

Marco.

[cotmar]

Excusez moi, mais epersonne n'aurait une idée pour m'aider. Car ceci est vraiement un point bloquant et j'ai une présebntation dessus dans moins d'une 1/2 heure.