پیغام برای ثبت رکورد جدید

[look20]

با سلام چطور میشه تعریف کرد اگه مثلا من در رکورد اخر بودن وقتی روی دکمه بعدی کلیک کردم پیغام این رکورد اخر است را بدهد؟
اگه قبلا تاپیکی هست لطفا معرفی کنید منکه چیزی پیدا نکردم

[xxxxx_xxxxx]

هر Recordset دو خاصیت BOF و EOF رو دارد. به ترتیب Begin of file و End of file هستند.
اگر هر کدام از این دو خاصیت مقدارشون برابر True شد یعنی به همون قسمت از فایل رسیده ایم.
یعنی اگر شرط زیر برقرار باشه، ما در رکورد آخر از Recordset قرار داریم:


if Adodc1.Recordset.EOF= True then Msgbox "End of file"
اگر هم BOF برابر True باشه یعنی در ابتدای فایل هستیم.

نکته: اگر BOF و EOF هر دو مقدارشون True بود یعنی Recordset خالیست.

موفق باشید/

[look20]

با سلام مجدد از کد استفاده می کنم و جواب می ده ولی یه مشکلی هست اونم اینکه:
وقتی پیغام می ده مثلا end if file تا زمانی که پیغامو تائید نکنی فیلدها رو خالی نشون می ده چطور میشه کاری کرد که هم پیغامو نشون بده و هم اینکه رکورد آخر رو

من از 4 دکمه NEXT PREV LAST FIRST استفاده کردم این هم کدشون
لطف میکنید بگید چکاری انجام بدم


Private Sub cmdFirst_Click()
Ado.Recordset.MoveFirst
End Sub


Private Sub cmdLast_Click()
Ado.Recordset.MoveLast
End Sub


Private Sub cmdNext_Click()
If Not Ado.Recordset.EOF Then Ado.Recordset.MoveNext
If Ado.Recordset.EOF = True Then MsgBox "End of file"
If txtName.Text = "" Then Ado.Recordset.MovePrevious
End Sub

Private Sub cmdPrev_Click()
mblnAdd = False
If Not Ado.Recordset.BOF Then Ado.Recordset.MovePrevious
If Ado.Recordset.BOF = True Then MsgBox "first of file"
If txtName.Text = "" Then Ado.Recordset.MoveNext

End Sub