I have the following:
but where it says msgbox strSQL I want it to add the tbl_users.fullname and tbl_users.bradfordscore to a sheet somehow.
Is this possible?
Thanks
Martin
Code:
Dim I As Integer
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
Set db = CurrentDb()
strSQL = "SELECT tbl_users.bradfordscore, tbl_users.fullname FROM tbl_users WHERE bradfordscore > (daysperweek * 15)"
Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)
I = 0
Do While Not rst.EOF
I = I + 1
MsgBox strSQL
rst.Edit
'rst!RunningSum = lRunningSum
rst.Update
'lRunningSum = lRunningSum + rst!Duration
rst.MoveNext
Loop
rst.Close
but where it says msgbox strSQL I want it to add the tbl_users.fullname and tbl_users.bradfordscore to a sheet somehow.
Is this possible?
Thanks
Martin