[VBA/ACCESS] Opzione "dbseechanges" necessaria per IDENTITY di SQL Server

[Gumble]

ciao,

questa funzione setta la data (passata come argomento) nella tabella link sqlServer (che puo essere dbo_prepay_trx o dbo_postpay_trx).

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???

[oregon]

Prova a non usare la Execute della Connection ma un Recordset e la Open con il parametro indicato ...

[Gumble]

Originariamente inviato da oregon
Prova a non usare la Execute della Connection ma un Recordset e la Open con il parametro indicato ...

grazie per la risposta..mi puoi fare un esempio pratico?

[oregon]

Scusa ... ma hai creato e usato rs (recordset) ... quindi ti dovrebbe essere chiaro anche senza esempio pratico ...

Crea un altro oggetto recordset e fai la Open con la frase contenuta in q ...

[Gumble]

piu che altro non so se ho ben capito cosa intendevi. cmq ecco cosa ho fatto:

Private Function setEnctsDate(enctsDate As String)

    Dim rs As ADODB.Recordset
    Dim rs2 As ADODB.Recordset
    
    Set rs = New ADODB.Recordset
    Set rs2 = 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
        
        rs2.Open q, CurrentProject.Connection, dbOpenDynaset, adLockOptimistic, dbSeeChanges
        rs2.Close
    
        rs.MoveNext
    Wend
   
    Me.sfrmMain.Form.Requery
    
    ' Set the relative textbox
    MsgBox "Update done"
    
End Function

ma da errore: "cannot open active query'