انتخاب فرم اصلی برنامه توسط کاربر

[moustafa]

با سلام
من چند نوع فرم اصلی انتخاب کردم یکی با منوهای ابشاری به اسم frmMain1 ،یکی با منوهای درختی به اسم frmMain2 ،یکی پنلی یا داشبوردی به اسم frmMain3 .....بهترین روشی که کاربر به انتخاب خودش تعیین کنه که از کدوم استفاده کنه و در اول برنامه بعد فرم لاگین لود باشه چیه ؟
اسم فرم اصلی frmMain هستش که فرمهای دیگه به این اسم رجوع میکنن یا اطلاعاتشون به این فرم ارسال میکنن
با تشکر

[mazoolagh]

سلام و روز خوش
فرم startup یکی از propertyهای دیتابیس هست (startupform)
که شما میتونین مثل پراپرتی دیگه اون رو بسازین، پاک کنین یا مقدارش رو تغییر بدین،
و این کار رو میتونین هم از داخل دیتابیس و هم از بیرون انجام بدین.

چون پیشتر چندین تاپیک برای کار با پراپرتی allowbypasskey ساخته شده،
کدهای نمونه رو هم میتونین پیدا کنین.

[moustafa]

سلام و تشکر
من در فرم لاگین یک کمبو باکس بنام cbxfrmMain گذاشتم که در اون نام چند تا فرم بعنوان فرم اصلی وارد شده تا کاربر خودش تعیین کنه با کدوم راحتر

DoCmd.OpenForm cbxfrmMain

    

    Select Case cbxfrmMain

        Case "frmMain"



              Forms!frmMain!txtUserName.Caption = DLookup(" [tbluser]![name_user] ", "[tbluser]", " [tbluser]![user_id] =forms!frmlogin!text1")

              Forms!frmMain!lblshahr.Caption = DLookup(" [tbluser]![shahr] ", "[tbluser]", " [tbluser]![user_id] =forms!frmlogin!text1")

              Forms!frmMain!lblgroup.Caption = DLookup(" [tbluser]![group] ", "[tbluser]", " [tbluser]![user_id] =forms!frmlogin!text1")

              Forms!frmMain!lbldate.Caption = Dat()

              DoCmd.Maximize

        Case "frmMain1"

        

             Forms!frmMain1!txtUserName.Caption = DLookup(" [tbluser]![name_user] ", "[tbluser]", " [tbluser]![user_id] =forms!frmlogin!text1")

             Forms!frmMain1!lblshahr.Caption = DLookup(" [tbluser]![shahr] ", "[tbluser]", " [tbluser]![user_id] =forms!frmlogin!text1")

             Forms!frmMain1!lblgroup.Caption = DLookup(" [tbluser]![group] ", "[tbluser]", " [tbluser]![user_id] =forms!frmlogin!text1")

             Forms!frmMain1!lbldate.Caption = Dat()

             DoCmd.Maximize

        Case "frmMain2"

        

             Forms!frmMain2!txtUserName.Caption = DLookup(" [tbluser]![name_user] ", "[tbluser]", " [tbluser]![user_id] =forms!frmlogin!text1")

             Forms!frmMain2!lblshahr.Caption = DLookup(" [tbluser]![shahr] ", "[tbluser]", " [tbluser]![user_id] =forms!frmlogin!text1")

             Forms!frmMain2!lblgroup.Caption = DLookup(" [tbluser]![group] ", "[tbluser]", " [tbluser]![user_id] =forms!frmlogin!text1")

             Forms!frmMain2!lbldate.Caption = Dat()

   

       

    End Select

[moustafa]

کد اگه بخوایم کد بالا رو خلاصه کنیم باید یه فانکشن بسازیم که با گرفتن نام فرم در قالب رشته به لیبلهای اون دسترسی داشته باشه

Public Sub chanegfrm(frmname As String)







    Forms(frmname).txtUserName.Caption = DLookup(" [tbluser]![name_user] ", "[tbluser]", " [tbluser]![user_id] =forms!frmlogin!text1")



    Forms(frmname).lblshahr.Caption = DLookup(" [tbluser]![shahr] ", "[tbluser]", " [tbluser]![user_id] =forms!frmlogin!text1")

    Forms(frmname).lblgroup.Caption = DLookup(" [tbluser]![group] ", "[tbluser]", " [tbluser]![user_id] =forms!frmlogin!text1")

    Forms(frmname).lbldate.Caption = Dat()

   ' Forms(frmname).OnOpen = funcForm_Open()

    DoCmd.OpenForm "frmChangeLink", acNormal, , , , acHidden

    Forms("frmChangeLink").Refresh

   

    Forms(frmname).lblBackEndPath.Caption = Mid(Form_frmChangeLink.lstTables.Column(1, 0), 11)

    Forms(frmname).Requery

   

End Sub