Ouverture de table depuis un formulaire : Mise à jour impossible

Bonjour,

je m'essaie à Access, et j'ai bien sûr des montagnes de questions
auxquelles j'arrive à répondre ne fouillant ci et là. Mais là, je coince
complet.

J'ai un formulaire qui présente des données issues de différentes
requêtes et tables.
Au final, les données affichées proviennent de 4 tables différentes,
l'utilisation de ce formulaire étant dédiée à la consultation des
données, la mise à jour se faisant manuellement dans les tables.
Pour faciliter cette saisie, j'ai voulu ajouter quelques boutons pour
ouvrir directement les tables, en appliquant un filtre pour ne
travailler que sur les données sélectionnées.

J'ai aussi une zone de liste dont les données proviennent d'une autre table.

Mon problème est que lorsque la fenêtre de table (ou du formulaire (*))
s'ouvrent, je ne peux pas éditer toujours les données : sur les 3 tables
que je voudrais pouvoir modifier, 1 seulement le permet (cf la dernière
procédure), les autres ne me retournant qu'un bip, sans message d'erreur.



(*) ne pouvant pas modifier les données dans la table, j'ai essayé de
créer un formulaire "standard" à partir de la table, j'obtiens donc 2
méthode, aussi insatisfaisante l'une que l'autre.

Ci dessous mon code :


------------------------------------------------
Private Sub OuvreCAL_Click()
'Ouverture du formulaire TABLE_CALCUL (formulaire standard créé à partir
de ma table) ==> ne permet pas la modif de données
On Error GoTo Err_OuvreCAL_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "TABLE_CALCUL"
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormEdit
DoCmd.ApplyFilter , "NumCle = '" & Numero & "'"

Exit_OuvreCAL_Click:
Exit Sub

Err_OuvreCAL_Click:
MsgBox Err.Description
Resume Exit_OuvreCAL_Click

End Sub
-------------------------------------------------------------

Private Sub OuvreREC_Click()
'Ouverture de la table TABLE_RECH ==> ne permet pas la modif de données

On Error GoTo Err_OuvreREC_Click

Dim stDocName As String

stDocName = "TABLE_RECH"
DoCmd.OpenTable stDocName, , acEdit
DoCmd.ApplyFilter , "NumCle = '" & Numero & "'"

Exit_OuvreREC_Click:
Exit Sub

Err_OuvreREC_Click:
MsgBox Err.Description
Resume Exit_OuvreREC_Click

End Sub
-------------------------------------------------------------
Private Sub lstPropOpal_DblClick(Cancel As Integer)
'Ouverture de la table TABLE_RECH_LST_PROP ==> permet la modif de
données !!!

stDocName = "TABLE_RECH_LST_PROP"
DoCmd.OpenTable stDocName, , acEdit
DoCmd.ApplyFilter , "NumCle = '" & Numero & "'"

End Sub

-------------------------------------------------------------

Merci pour votre analyse experte ;)