ciao,

questa funzione setta la data (passata come argomento) nella tabella link sqlServer (che puo essere dbo_prepay_trx o dbo_postpay_trx).
codice:
Private Function setEnctsDate(enctsDate As String)

    Dim rs As ADODB.Recordset
    'Set rs = Me.sfrmMain.Form.Recordset
    
    Set rs = New ADODB.Recordset
    rs.Open Me.currentQuery, CurrentProject.Connection, dbOpenDynaset, adLockOptimistic, dbSeeChanges
    
    
    If Not rs.EOF Then rs.MoveFirst
    While Not rs.EOF
        If (fraTblMode.value = 1) Then
            q = " UPDATE dbo_ccc_prepay_trx SET posting_encts_date = '" & enctsDate & "'"
            q = q & " WHERE ccc_prepay_trx_id = " & rs!ccc_prepay_trx_id
        Else
            q = " UPDATE dbo_ccc_postpay_trx SET posting_encts_date = '" & enctsDate & "'"
            q = q & " WHERE ccc_postpay_trx_id = " & rs!ccc_postpay_trx_id
        End If
        
        CurrentDb.Execute (q)
    
        rs.MoveNext
    Wend
   
    'Me.sfrmMain.Form.Requery
    
    ' Set the relative textbox
    MsgBox "Update done"
    
End Function
i campi ccc_prepay_trx_id e ccc_postpay_trx_id sono quelli autoincrement (identity=yes).

ecco l'errore che mi da:
Run-time error '3622':
You must use the dbSeechanges option with openRecordset when accessing a
SQL Server table that has an IDENTITY column.

come diavolo posso risolvere???