Pelajari fungsi berikut:
Function GetRandom() As String
Dim intMaxRecord
intMaxRecord = DCount("NamaField", "NamaTable")
Dim rs As New ADODB.Recordset
Dim sql As String
sql = "SELECT TOP 1 NamaField FROM ("
sql = sql & "SELECT TOP " & Int((intMaxRecord * Rnd) + 1) & " NamaField,
Description "
sql = sql & "FROM NamaTable ORDER BY NamaField DESC) AS X ORDER BY
NamaField"
Set rs = CurrentProject.Connection.Execute(sql)
GetRandom = rs(0)
rs.Close
Set rs = Nothing
End Function
Aksan Kurdin
On 8/30/07, Jonny <[EMAIL PROTECTED]> wrote:
>
>
>
>
>
> Dear All Master ....,
>
> Aku mau tanya tentang source code untuk membuat
> aplikasi penarikan dorprize berdasarkan no pegawai, dengan memakai random
> (acak).
> Mohon pencerahan........
>
> Send instant messages to your online friends http://uk.messenger.yahoo.com
>
>
--
Aksan Kurdin
