فراخوانی از جدول با تابع بصورت رندوم

[Younestalebi]

سلام دوستان
من یه جدول دارم که توی اون یه سری اطلاعات دارم
این جدول یه فیلد کلیدی اتونامبر و دو فیلد دیگه داره.
حالا من می خوام یه تابع بنویسم که وقتی اجرا شده از همین جدول بصورت رندوم یکی از رکورد ها انتخاب بشه و بعد اون دو فیلد رو نمایش بده.
لطفاً راهنمایی کنید.

[Younestalebi]

یه تابع می خوام که عدد رندم تولید کنه البته توی یه محدوده خاص.

[mehdi_fiz]

سلام دوست عزیز
شما می تونید از تابع زیر استفاده کنید من این برای فال حافظ استفاده کردم
Private Sub hafeez()

Dim a
Dim no
Dim ms1 As String
Dim ms2 As String
Dim K
Dim k1

Randomize
a = Rnd(1)

If a > 1 Then
a = a / 10
MsgBoxFa a
End If

k1 = a * 1000
K = a * 1000

If K > 495 Then
K = K - 495
End If

If K > 495 Then
K = K - 495
End If

If K > 495 Then
K = K - 495
End If

no = Fix(K)
no_ = no
On Error GoTo a
ms1 = DLookup("[mesra1]", "divan", "[ghazalno]=" & no)
ms2 = DLookup("[mesra2]", "divan", "[ghazalno]=" & no)
Me.hafez = ms1 & " * " & ms2
a:

End Sub

موفق باشید

[Younestalebi]

سلام دوست عزیز
شما می تونید از تابع زیر استفاده کنید من این برای فال حافظ استفاده کردم
Private Sub hafeez()

Dim a
Dim no
Dim ms1 As String
Dim ms2 As String
Dim K
Dim k1

Randomize
a = Rnd(1)

If a > 1 Then
a = a / 10
MsgBoxFa a
End If

k1 = a * 1000
K = a * 1000

If K > 495 Then
K = K - 495
End If

If K > 495 Then
K = K - 495
End If

If K > 495 Then
K = K - 495
End If

no = Fix(K)
no_ = no
On Error GoTo a
ms1 = DLookup("[mesra1]", "divan", "[ghazalno]=" & no)
ms2 = DLookup("[mesra2]", "divan", "[ghazalno]=" & no)
Me.hafez = ms1 & " * " & ms2
a:

End Sub

موفق باشید

دوست عزیز ممنون از کدتون من با این روش اصلاحش کردم
Function Rand_Cod()
a:
Randomize
a = Rnd(495)
If a > 1 Then
a = a / 10
End If
K = a * 495
If Fix(K) = 0 Then
GoTo a
End If
Rand_Cod = Fix(K)
End Function