Split form and looping within records

[jaryszek]

Hi Guys,

i am looping within split form and changes statuses for each record.

I am using code:

Private Sub But_export_Click()


Dim rsDao As DAO.Recordset
Dim rsDb As DAO.Database
    
Set rsDao = Me.RecordsetClone
Set rsDb = CurrentDb


MsgBox rsDao.RecordCount


With rsDao
    If Not (rsDao.BOF And rsDao.EOF) Then
        rsDao.MoveFirst
    End If
    Do Until rsDao.EOF
        rsDao.Edit
        Debug.Print rsDao.Fields(10)
        rsDao.Fields(10) = "2017-03-01"
        rsDao.Update
        rsDao.MoveNext
    Loop
    
End With


End Sub

and problem is within rsDao.edit code, error is occured:



"3197 error: The Microsoft Office Access database engine stopped the process because you and another user are attempting to change the same data at the same time."

How to update recordset only for filtered values?
I am using multisearch textboxes with SQL string like below witinh query:

Like "*" & [Formularze]![frmZusFaktur]![Company_name] & "*" Or Is Null Or Like "" & [Formularze]![frmZusFaktur]![Company_name] & ""

Did you do something similar? Maybe there is different code to use?

Best Wishes,
Jacek

[jaryszek]

hmm it is strange:

i changed my piece of code for:

 Do Until rsDao.EOF
       ' rsDao.Fields(12).RecordsetType = 1
        rsDao.Edit
        !Status_name_ID_FK = 3
        rsDao.Update
        rsDao.MoveNext
    Loop

so now this is working. hmm very strange.

JAcek