PDA

View Full Version : نشان دادن رکورد n از n


انگوران
یک شنبه 15 بهمن 1385, 08:42 صبح
دوستان سلام ـ یه جائی دیدم زمانی که یکی از رکوردهای فرم انتخاب می شد تو نوار عنوان فرم نشون میداد مثلاً رکورد 10 از 500 ممکنه روش کار رو بفرمائید ؟
seeker
یک شنبه 15 بهمن 1385, 10:38 صبح
یه تکست بذار مثلا(text1)
تو ایونت current فرم بنویس
text1.value=me.CurrentRecord
این شماره رکورد است
اما تعداد کل رکورد ها رو نمیدونم
Payam Moradi
یک شنبه 15 بهمن 1385, 12:19 عصر
دوستان سلام ـ یه جائی دیدم زمانی که یکی از رکوردهای فرم انتخاب می شد تو نوار عنوان فرم نشون میداد مثلاً رکورد 10 از 500 ممکنه روش کار رو بفرمائید ؟

اینم کاملترش:


Private Sub Form_Current()
Me.Caption = "رکورد " & Me.CurrentRecord & " از " & Me.Recordset.RecordCount
End Sub

البته باید فرمتون حتما به یک جدول یا دیتاسورس متصل باشه.

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


موفق باشید:چشمک:
Payam Moradi
یک شنبه 15 بهمن 1385, 12:42 عصر
اینم برای تکست باکس:
در کنترل سورس تکست مربوطه درج کنید:


="رکورد " & [CurrentRecord] & " از " & Count([ID])

ID فیلدی هست که در همه رکوردها دارای مقدار هست. اگر اسم فیلد فرق میکنه به جای ID نام اونو بنویسید. معمولا اسم فیلدی که در جدول کلید هست بگذارید که همیشه مقدار داره.
انگوران
یک شنبه 15 بهمن 1385, 14:23 عصر
ضمن تشکر در مورد تکست باکس مشکلی نیست همون کد اولی رو هم بنویسیم جواب میگیریم اما اگه یه زیر فرم داشته باشیم که تعدادی رکورد در اون باشه ( مثلاً نتیجه جستجوی نام خانوادگی در زیر فرم لیست میشه ) اون وقت خوب جواب نمی ده .
MM_Mofidi
یک شنبه 15 بهمن 1385, 14:46 عصر
نتیجه را در یک جعبه متنی یا متغییر عمومی بریز و استفاده کن
یا بجای ME از اشاره گری به زیر فرم استفاده کن
Payam Moradi
یک شنبه 15 بهمن 1385, 22:37 عصر
نتیجه را در یک جعبه متنی یا متغییر عمومی بریز و استفاده کن
یا بجای ME از اشاره گری به زیر فرم استفاده کن



Private Sub Form_Current()
FormAsli.Caption = "رکورد " & Me.CurrentRecord & " از " & Me.Recordset.RecordCount
End Sub


اگر این کد رو در ساب فرم یا همون زیرفرم قرار بدید جواب نمیده؟ به جای FormAsli.Caption متغییر دلخواه رو قرار بدید. یا اسم فرم مادر رو بگذارید. مثلا (Form_Form1.Caption)
من که تست کردم جواب داد.:چشمک: