ایجاد MsgBox تصادفی

[G.hemati]

با سلام و احترام خدمت دوستان و اساتید گرامی
من میخوام یه Msgbox رو به یه جدول وصل کنم و در هر بار کلیک کردن یه پیغام تصادفی از جدول بگیره و نمایش بده
سعی کردم از تابع Rand استفاده کنم ولی موفق نشدم
ممنون میشم کمک بفرمایین

[Abbas Amiri]

سلام
فرض کنیم شما یک جدول فال دارید(tblFall) که دوفیلد ID و FallMessage دارد . درآن صورت :



fallCount = DCount("*", "tblFall")
MsgBox DLookup("fallMessage", "tblFall", "ID=" & Int((k * Rnd) + 1))

[Abbas Amiri]

کدهای فوق درصورتی که ID از یک تا تعداد رکوردها مقدار داشته باشد مشکلی نخواهد داشت . اما چنانچه بعضی شماره ها بدلایلی وجودنداشته باشند احتمال بروز خطا وجودخواهدداشت
برای پرهیزازآن سابروتین زیر را در یک ماژول کپی نمایید و آنرا در هرجا خواستید صدا بزنید



Sub RandomMessage()
Dim rs As Recordset, FallIdx As Integer, msg As String
Set rs = CurrentDb.OpenRecordset("tblFall")
FallIdx = Int(DCount("*", "tblFall") * Rnd)
rs.MoveFirst
rs.Move FallIdx
msg = rs("fallMessage")
Set rs = Nothing
MsgBox msg
End Sub


درهرجای برنامه تایپ کنید RandomMessage یک پیغام رندوم نمایش داده خواهدشد