ذخيره سازي شماره ركورد در فرم

[user2535]

سلام
در يك Continuous فرم به چه صورت مي توان از طريق يك botton كه در در كنار هر ركورد گذاشته مي شود شماره آن ركورد را در يك متغير ذخيره نمود
منظورم همان شماره اي است كه در پايين فرم و در جعبه navigation نشان داده ميشود است

[مهدی قربانی]

سلام
فلسفه اين كار چيه ؟ براي چي مي خواين اين كار رو انجام بديد بيشتر توضيح بديد .

[user2535]

درود بر شما
بر روی یک فرم بدلیل آنکه دارای رکورد سورس مستقیم نیست و نتوانستم رکورد سورس آن را set کنم گزینه هایی جهت تهیه گزارش انتخابی و انتخاب رکورد توسط کاربر گذاشته ام . انتخابهای کاربر پس ازهر انتخاب از بانک خوانده میشود وعملیات requery پس از هر انتخاب انجام شده و طبعا فرمهای اسکرول شده از ترتیب خارج و ویووی فرم به ابتدای فرم باز می گردد
به نظرم رسید اگر در هر انتخاب کاربر شماره رکورد آن را ذخیره کنم می توانم توسط دستور gotorecord و با استفاده از افست آن به همان ویوو برگردم
امیدوارم مفهوم باشد باتشکر

[dadsara]

سلام
فرض کنید این حالت شدنی باشد اگر نحوه مرتب کردن را عوض کنید تکلیف شماره ها چه می شود؟

[user2535]

فرض کنید این حالت شدنی باشد اگر نحوه مرتب کردن را عوض کنید تکلیف شماره ها چه می شود؟
سلام
مسلما" شماره ركورد هم عوض مي شود ولي من ميخواهم همان لحظه به آن ركورد برگردم و به عنوان يك متغير ثابت از آن استفاده نمي كنم همچنين كه اكسس ابزارهاي براي رفتن به شماره ركورد دارد بنابراين بايد ابزاري هم براي نشان دادن شماره ركورد داشته باشد
در زبانهاي ديگر هم اين ابزارها وجود دارد مثلا در Foxpro تابع Recnum() اين عمليات را انجام ميدهد
اگر ايده ديگري هم باشه لطفا مطرح كنيد ممنون

[dadsara]

سلام
به پست شماره 10 این تاپیک یک نگاه بینداز
نحوه فوکوس کردن روی یک رکورد خاص در آن طراحی شده است
http://barnamenevis.org/forum/showthread.php?t=164511

[user2535]

با سلام

نحوه فوکوس کردن روی یک رکورد خاص در آن طراحی شده است
دوست عزيزبه شماره ركورد در اين تاپيك اشاره اي نشده است
ولي به هر حال توانستم شماره ركورد را به دست آورم باتشكر از توجهتان
به كد زير نگاهي بيندازيد


Private Sub Form_Current()
If Me.NewRecord Then
Me!lblNavigate.Caption = "New Record"
Else
With Me.RecordsetClone
.Bookmark = Me.Bookmark
Me!lblNavigate.Caption = "Record " & _
.AbsolutePosition + 1 _
& " of " & .RecordCount
End With
End If
End Sub