Assignign Records

[Chance1234]

Hi
Ive seen the answer to his somewhere befoer on this site so but cant find it, so apologies for reposting this question.

i have a table full of infomation and i need to split this equally up over a team of checkers

how can i do that ?

Chance

http://www.5ylac.s5.com

 

[Chance1234]

solved it with the following ]#Sub AsignRecs()
Dim Mydb As Database
Dim Myrec As Recordset
Dim Myrec2 As Recordset


Set Mydb = CurrentDb()

Set Myrec = Mydb.OpenRecordset("SELECT *FROM tblmain WHERE (((tblmain.Batch)='Population as at 10 10 ') AND ((tblmain.[New address])='empty') AND ((tblmain.[Assigned To])='empty'));&quot
Set Myrec2 = Mydb.OpenRecordset("SELECT * FROM tblteam&quot

Do Until Myrec.EOF = True


If Myrec2.EOF = True Then Myrec2.MoveFirst
Myrec.Edit
Myrec![Assigned To] = Myrec2![Name]
Myrec.Update
Myrec.MoveNext
Myrec2.MoveNext
Loop



Debug.Print "END"