PDA

نسخه کامل مشاهده نسخه کامل : نظر خواهی در مورد یک تکه کد



whisper
20-12-2006, 12:30
سلام دوستان
من می خوام دی یک دکمه بسازم با زدن اون میشه به آخرین رکورد یک دیتا بیس رفت

adolibrary.recordset.movelast

حالا می خوام اگه طرف یه بار دیگه این دکمه رو زد یه پیغام بیاد وبگه شما در آخرین رکورد هستید که اونم این جوری نوشتم
if adolibrary.recordset.eof then
call msgbox ("شما در آخرین رکورد قرار دارید"(

حالا وقتی که این برنامه اجرا میشه باید در آخرین رکورد میره ولی بار دوم که کلید رو میزنیم هیچ پیغامی نمیاد امتحان کرد دیدم اگه از movenext بعد از آن انتخاب شه میره تو یه رکورد خالی اونوقت میاد ولی من نمی خوام تو رکورد خالی بیاد حالا می خوام از recordcount برای بدست آوردن تعداد رکورد ها استفاده کنم و با کم کردن recordcount از خودش اولین و آخرین رکورد رو بدست بیارم راه بهتری سراغ دارید شما چون به نظرم این جوری درست نیست

peyman1987
20-12-2006, 17:23
شما ميتونين وقتي گفت بره به رکورد بعدي دو تا رکورد برين جلو اگه به آخر فايل رسيدين خطا رو صادر کنين و در غير اينصورت يه رکورد برگردين عقب

shamsoft
20-12-2006, 19:39
به جای استفاده از eof از این استفاده کن: if text1.text=""
که text1 باید یه فیلد باشه که حتما کاربر مجبور باشه اطلاعات داخلش بریزه

Romina2006
21-12-2006, 11:56
Static Last As Boolean
adolibrary.Recordset.MoveLast
If Last = False Then
Last = True
Else
MsgBox "Last Record"
End If

whisper
25-12-2006, 08:40
آقا دستتون درد نکنه خیلی به دردم خورد