Impossible d'atteindre l'enregistrement spécifié

Impossible d'atteindre l'enregistrement spécifié - VB/VBA/VBS - Programmation

Marsh Posté le 17-05-2006 à 10:47:13    

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 :
 
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.


---------------
Marco
Reply

Marsh Posté le 17-05-2006 à 10:47:13   

Reply

Marsh Posté le 17-05-2006 à 10:48:23    

Bonjour,
 
Au fait c'est de l'Access 2003/VBA.
 
Sinon, pour l'ajout, je suis en train d'essayer d'autres méthodes :
 
 
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.


---------------
Marco
Reply

Marsh Posté le 17-05-2006 à 14:41:16    

Excusez moi, mais personne n'aurait une idée pour m'aider ?


---------------
Marco
Reply

Marsh Posté le 17-05-2006 à 16:14:15    

Bonsoir,
 
Petit question complémentaire :
 
Lorsqu'on a une requète (générée dynamiquement à l'exécution) qui sert de source de données, peut on mettre à jour ou modifier les données du formulaire ?
 
En Access 2003/VBA.
 
Merci.
 
Marco.


---------------
Marco
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed