Runtime error '3251'

**pouii** · 18/06/2007, 19h52

bonsoir a tous

j'ai un petit probleme lorque que je veux faire un enregistrement de ma table via mon formulaire et d'une connection ADO.

J'ai une liste déroulante IdEmp qui parcours ma table T_remise, si je trouve l'enregistrement correspondant a IdEmp alors sa me met un message sinon sa m'enregistre les informations.

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
Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset, fld As ADODB.Field
    ' Ouverture de la connexion
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Documents and Settings\Fei\Bureau\gestion d'une bibliothèque\donnee.mdb;"
    ' Ouverture du Recordset en défilement en avant, et en lecture seule
rst.Open "SELECT * FROM T_Remise", cnn, adOpenForwardOnly, adLockReadOnly
    ' Fermeture du Recordset
rst.MoveFirst
 
    While Not rst.EOF
        If rst!IdEmp = IdEmp Then
            'DoCmd.OpenForm "Menu", , , , acFormEdit
            'DoCmd.Close acForm, "MenuIdent"
                MsgBox ("vous aver déja effectué cette remise !")
              ' rst.
               IdEmp.SetFocus
         Else
           rst.AddNew
           rst!IdRemis = IdRemis
           rst!IdEmp = IdEmp
           rst!DatRem = DatRem
           rst.Update
           rst.AddNew
        End If
        rst.MoveNext
Wend
rst.Close

mais lorsque j'esseye d'effectué cette enregistrement, sa me met :
Runtime error '3251'
le jeu d'enregistrement suivant ne prend pas en charge la mise à jour. Il s'agit peut être d'une limitation du fournisseur ou du type de verrou sélectionné.

merci d'avance pour les aides