ورود

View Full Version : مبتدی: شروع اکسس با فرم دلخواه


mehdipormaye
دوشنبه 29 آبان 1402, 14:55 عصر
با سلام خدمت اساتید گرامی
آیا امکان دارد فرم شروع برنامه رو کاربر انتخاب کند؟
یعنی دستوری نوشته شود که با اجرای ان در هنگام باز شدن مجدد برنامه فرم آغازین فرم دلخواه کاربر باشد
مثلا دو نمونه فرم اسپلش ساخته شود که کاربر انتخاب کند شروع برنامه (بعد از بسته شدن بنامه) با کدام آغاز شود؟
با تشکر از اساتید گرامی
eb_1345
دوشنبه 29 آبان 1402, 16:35 عصر
با سلام خدمت اساتید گرامی
آیا امکان دارد فرم شروع برنامه رو کاربر انتخاب کند؟
یعنی دستوری نوشته شود که با اجرای ان در هنگام باز شدن مجدد برنامه فرم آغازین فرم دلخواه کاربر باشد
مثلا دو نمونه فرم اسپلش ساخته شود که کاربر انتخاب کند شروع برنامه (بعد از بسته شدن بنامه) با کدام آغاز شود؟
با تشکر از اساتید گرامی
سلام
با کد زیر میتونی فرم دلخواهت رو بعنوان استارت آپ انتخاب کنی


Dim dbs As ObjectDim dbs As Object
Set dbs = Application.CurrentDb
dbs.Properties("StartupForm") = "FormName"


در کد فوق کد مورد دلخواهت رو جایگزین FormName کن
نمونه ای رو در ضمیمه قرار دادم که شما میتونی نام فرمت رو از کمبوباکس انتخاب کنی
ضمناً در کمبو باکس مربوطه نام همه فرم های برنامه بطور اتوماتیک اضافه میشه
mehdipormaye
دوشنبه 29 آبان 1402, 20:38 عصر
سلام و ممنون از شما
کدی که فرمودید را به برنامه اضافه کردم اما خط اول را ارور میده و قرمز نمایش داده می شود


سلام
با کد زیر میتونی فرم دلخواهت رو بعنوان استارت آپ انتخاب کنی


Dim dbs As ObjectDim dbs As Object
Set dbs = Application.CurrentDb
dbs.Properties("StartupForm") = "FormName"


در کد فوق کد مورد دلخواهت رو جایگزین FormName کن
نمونه ای رو در ضمیمه قرار دادم که شما میتونی نام فرمت رو از کمبوباکس انتخاب کنی
ضمناً در کمبو باکس مربوطه نام همه فرم های برنامه بطور اتوماتیک اضافه میشه
eb_1345
دوشنبه 29 آبان 1402, 20:54 عصر
سلام و ممنون از شما
کدی که فرمودید را به برنامه اضافه کردم اما خط اول را ارور میده و قرمز نمایش داده می شود
در خط اول متغییر dbs بصورت Dim dbs As Object تعریف شده که این تعریف اشتباهاً دوبار و چسبیده به هم درج شده.
نمونه ای که گذاشتم مگه امتحان نکردی؟ توی نمونه کد درسته


Dim dbs As Object
Set dbs = Application.CurrentDb
dbs.Properties("StartupForm") = "FormName"
mehdipormaye
سه شنبه 30 آبان 1402, 14:58 عصر
با سلام و عرض ادب و احترام
سپاسگزارم
عالی و مثل همیشه بی نظیر
نمونه تو سیستم بنده کار نکرد متاسفانه


در خط اول متغییر dbs بصورت Dim dbs As Object تعریف شده که این تعریف اشتباهاً دوبار و چسبیده به هم درج شده.
نمونه ای که گذاشتم مگه امتحان نکردی؟ توی نمونه کد درسته


Dim dbs As Object
Set dbs = Application.CurrentDb
dbs.Properties("StartupForm") = "FormName"