Select Random Record

[cybermonkey]

Hello, I need some assistance. I have a table that only had two headers, ID and QUOTE.


I want to select a random record and have the QUOTE field be assigned to an already defined variable to be displayed on a box (that part I have, I just need help getting the random record selected).

When using the following code, I get an error that states "Run-Time error '3464': Data Type mismatch in criteria expression"



Dim QoDNUM As Integer
Dim DailyQuote As String
Dim QNUM As Integer

'QoDNUM = DCount("*", "QoD")
'QNUM = Int((QoDNUM - 1 + 1) * Rnd + 1)
'DailyQuote = DLookup("[Quote]", "QoD", "[ID] = '" & QNUM & "'")





QNUM is set as an integer and the ID field is a number....so I am sort of at a loss on this one.

[June7]

ID and QNUM are number types - remove the apostrophe delimiters as they are used only for text fields.

[pbaldy]

No delimiter for a numeric field:

DailyQuote = DLookup("[Quote]", "QoD", "[ID] = " & QNUM)

[cybermonkey]

OMG, I can't believe I missed that. All the code like that in this project are all text fields. URGH, it's the simplest mistakes that get people usually LOL

[isladogs]

Suggest you add the line Randomize before the Rnd function line...otherwise you may find yourself getting the same values over & over again