update number of record with combolist

[Bader]

I want to creat an update query

to update 20 record with the first item in combolist then the next 20 record updated with the second item in list

 

[WayneRyan]

Bader,

I have no idea why you need it, but this should do it.

Dim rst As DAO.RecordSet
Set rst = CurrentDb.OpenRecordset("Select * from YourTable")
While not rst.EOF and Not rst.BOF
   rst.Edit
   rst!YourField = Me.YourListBox.ItemData(Int(rst.AbsolutePosition/20))
   rst.Update
   rst.MoveNext
   Wend

Wayne

 

[Bader]

Bader,

I have no idea why you need it, but this should do it.

Dim rst As DAO.RecordSet
Set rst = CurrentDb.OpenRecordset("Select * from YourTable")
While not rst.EOF and Not rst.BOF
   rst.Edit
   rst!YourField = Me.YourListBox.ItemData(Int(rst.AbsolutePosition/20))
   rst.Update
   rst.MoveNext
   Wend

Wayne

Thank you very much