6 Deck Card Shuffling in Access 3

[MacroScope]

I'm doing something not generally associated with Access. I'm writing an analytical blackjack program. Anyone familiar with Access knows that it can be instructed to do the things involved, namely count the hand, stand or hit at a certain level, and anything else required to play the game. My problem is that I've been unable to come up with a practical and fast shuffling routine, but I have special requirements.

I want the shuffled decks stored in a table for several reasons. I want to be able to compare two moves, say standing vs. hitting a 16 v 10. The only way that's possible is to be able to see what the next card would have been and then making a comparison of the results. Another reason is to be able to save really good or really poor decks so that they can be collected and strategies can be developed which are optimized to bad or good runs of cards.

Can anyone offer a means of shuffling 6 decks and storing the results in a table? I have been able to do it, but the wait is interminable, and I know there are much better ways out there. I just can't think of any!

Thanks for your help.

 

[MacroScope]

Strong, it's been quite a few months since I started this thread and I've been sidetracked with a million things and really haven't started to put it to use until now. I wonder if I can impose on you to help a little more.

I have included the card shuffling routine that I think is best for me, since it uses a table and queries that I'm familiar with. Can you integrate your code so that it draws the cards from the tblShoe table? I really have no idea how to accomplish that.

Also, would you be willing to write the next card trigger code separately, so that it can be called with a RunCode macro operation? I'm sure it's already there and I hope it wouldn't be too much trouble to separate it so it can be treated as its own routine.

Thanks again for all the help you've been through this. I keep telling ya I at least owe you a beer or two!