Result in a Textbox Help

[drew2020]

Hi,



I am creating an electronic raffle that randomly pulls a record from the table. I create a query Rnd([tblUserProfile]![ID]) and created a form from that query.

How to put the result on the Result Textbox when I click the stop button? and the names on the Result Textbox will not be included on the next draw?

[ranman256]

IRnd=RND(...)
bFound=dlookup("[id]","tPicked", "[id]=" & iRnd)
while bFound
   IRnd=RND(..)
   bFound=dlookup("[id]","tPicked", "[id]=" & iRnd)
wend

TxtBox = dlookup("[name]","tPeople", "[id]=" & iRnd)

Save the id in a table so you don't repeat it.

[drew2020]

Hi, Where should I put those code. I apologize I am a newbie. Thank you so much.

[drew2020]

"Save the id in a table so you don't repeat it."Should I make a new table for list of winner?

[drew2020]

Is it okay if you edit my code? see attach file. . I appreciate it.

[drew2020]

IRnd=RND(...)
bFound=dlookup("[id]","tPicked", "[id]=" & iRnd)
while bFound
   IRnd=RND(..)
   bFound=dlookup("[id]","tPicked", "[id]=" & iRnd)
wend

TxtBox = dlookup("[name]","tPeople", "[id]=" & iRnd)

Save the id in a table so you don't repeat it.

Where should I put these code. I am a newbie and starting to learn ms access. I really appreciate your help.

[davegri]

See if this will work for you.
Added a true/false field to the table named Drawn.
If a name is chosen, Drawn is set to true.
Added criteria to the form recordsource query to not select records with Drawn=True
Added a button to the form to reset all rows to Drawn=False (if needed).

eRAFFLE-davegri-v01.zip

[drew2020]

See if this will work for you.
Added a true/false field to the table named Drawn.
If a name is chosen, Drawn is set to true.
Added criteria to the form recordsource query to not select records with Drawn=True
Added a button to the form to reset all rows to Drawn=False (if needed).

eRAFFLE-davegri-v01.zip

Thank you for this one. I appreciate your help but I am loooking for a different way. Is it possible to do requery if error occurs? I am planning to append the ID result from drawn to another table and make the ID the primary key so that when draw result to a ticket that already pick before it will be an error , then I want to it to requery to another pull another ticket. is that possible?

[davegri]

Changed the result textbox to a listbox.
Added table tblDrawn. It holds the ID of the chosen users and the date/time chosen.

eRAFFLE-davegri-v02.zip

[drew2020]

Changed the result textbox to a listbox.
Added table tblDrawn. It holds the ID of the chosen users and the date/time chosen.

eRAFFLE-davegri-v02.zip

That is exactly the result I want. Thank you so much. Godbless You.

[davegri]

Glad to help. Good luck with the project.