Go to Record

[شاپرک]

وقتی می خواهیم بریم به رکورد اول توی یک فرم از این دستور استفاده میکنیم :
DoCmd.GoToRecord acDataForm, "FormName", acFirst
حالا اگه بخواهیم توی ساب فرم اینکار رو انجام بدیم چی؟ وقتی از همین دستور استفاده میکنم میگه این فرم باز نیست .

[sarami]

اگه اسم سابفرمتون sub1 باشه با استفاده از این دستور میتوانید به اولین رکورد بروی
dim rst as recordset
rst=me.sub1.form.recordset
rst.move first

[شاپرک]

Dim rst As Recordset
Set rst = Me.ّSubFormName.Form.Recordset
rst.MoveFirst
Set رو فراموش کرده بودید که من نوشتم ... اما Error میده Runtime error 13 میگه Type mismatch دقیقا همون خط رو

[sarami]

نباید مشکلی داشته باشه نمونه برنامه تون رو آپلود کنید

[شاپرک]

براتون فرستادم

[شاپرک]

به دستتون رسید؟

[sarami]

به فایل نمونه مراجعه نمائید

[شاپرک]

باور کنید خودم این رو میدونم توی خیلی از برنامه هام ازش استفاده کردم اما نمیدونم اینجا چرا Error میده !
به هر حال از اینکه زحمت کشیدید ممنونم

The Impossible Is Impossible

[saeed144144]

کسی میدونه چطور میتونم رکورد یک فرم به صورت اتوماتیک نکس کنه البته تایمی بهش بدم که رکورد بعدی رو بهم نشون بده و همین طور تا آخر

[sarami]

تو تایمر فرمتون interval رو تنظیم کنین و در Ontimer همون فرم کد رفتن به رکورد بعدی رو وارد کنین

تو تایمر فرمتون interval رو تنظیم کنین و در Ontimer همون فرم کد رفتن به رکورد بعدی رو وارد کنین

[saeed144144]

کد رفتن به رکورد بعدی چیه در اون صفحه کد چی باید بنویسم

[شاپرک]

DoCmd.GoToRecord acDataForm, "FormName", acNext

[saeed144144]

ممنونم ولی من میخام وقی نکس کرد به آخرین رکورد رسید بره به اولین رکورد و دوباره نکس کنه برای تیتر بالای برنامه میخوام که با نوشتن یسری جمله ها مثل نام شرکت و .... رو هر چند دیقه نشون بده