Displaying a random tip of the day

[Chilly1600]

Hi,

Can anybody advise on how i can get a random tip/joke of the day to display on a specific form within my d/base? I'd like to to scroll around for as long as the form is open and display a new tip/joke everyday.

Thanks

[Rabbit]

Part of it will depend on how you want to display it but the crux of the solution is to have a sequential Tip ID where you can randomly pick a number using the Randomize and Rnd function. Then it's a simple matter of looking up that ID.

[ADezii]

Hi,

Can anybody advise on how i can get a random tip/joke of the day to display on a specific form within my d/base? I'd like to to scroll around for as long as the form is open and display a new tip/joke everyday.

Thanks

Create a Table named tblTips. This Table will contain only 2 Fields, Field Number 1 will be TipID [INTEGER]. Make TipID the Primary Key but do not make it an AutoNumber. The entries in this Field should start at 1 and should be sequential in nature as in: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, etc.). Field Number 2 will be Tip (STRING) and will contain the actual Tip itself. Place this code wherever appropriate, to generate a Random Tip. The code is self-maintaining as long as you keep the TipIDs sequential. Good luck and let me know how you make out.

Dim intNoOfTips As Integer
Dim intLowerbound As Integer, intUpperbound As Integer
Dim intRandomTipNo As Integer
Dim strRandomTip As String
 
Randomize
 
intNoOfTips = DCount("*", "tblTips")
 
intLowerbound = 1
intUpperbound = intNoOfTips
 
intRandomTipNo = Int((intUpperbound - intLowerbound + 1) * Rnd + intLowerbound)
 
'The Tip itself
strRandomTip = DLookup("[Tip]", "[tblTips]", "[TipID]=" & intRandomTipNo)
MsgBox strRandomTip

[nico5038]

At:
http://bostonaccessday.com/ugdownlds.cfm
you can find a sample database.

There's however a more versatile way, the so-called "web services". This will get a TipOfTheDay from the internet. Read more from:
http://www.databasejournal.com/featu...le.php/3567511

Nic;o)