• 0
jamal sinani

اظهار فورم ( نموذج ) بزر موافق

سؤال

السلام عليكم ورحمة الله وبركاته ..

الرجاء التكرم من اساتذتنا الكرام بحل مشكلتي البسيطة ..

( عندي اكثر من فورم اريد اعمل لها اظهار من مربع تحرير وسرد - بعد ذلك زر موافق )

 

وقد ادرجت الشرح في البرنامج التوضيحي .

program.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

6 إجابة على هذا السؤال .

  • 0

وهذا البرنامج يقرأ جميع النماذج الموجودة ، ويحفظها في الـ Combo في الحدث عند فتح النموذج ، وهذا الكود:

 

Private Sub cmd_Open_Click()

DoCmd.OpenForm Me.cmb_Forms
End Sub

Sub AllForms()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject

Me.cmb_Forms.RowSource = ""

' Search for AccessObject objects in AllForms collection.
For Each obj In dbs.AllForms
'exclude this Form
If obj.Name <> Me.Name Then
'Add the Form Names to the Combo list
Me.cmb_Forms.RowSource = Me.cmb_Forms.RowSource & ";" & obj.Name
End If
Next obj

Me.cmb_Forms.RowSource = Mid(Me.cmb_Forms.RowSource, 2)
End Sub

Private Sub Form_Load()

Call AllForms
End Sub

 

جعفر

 

شكرا اخي عامر :)

 

الكود يضيف النماذج الجديدة تلقائياً :)

27.program.accdb.zip

تم تعديل بواسطه jjafferr
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله والحمد لله والصلاة والسلام علي رسول الله

ماشاء الله عليك اخي  jjafferr تسلم ايدك

يمكن الاستغناء عن زر الامر ووضع الكود في الـ compo مباشرة وبذلك عند اختيار اسم النموذج المراد فتحة يتم الفتح مباشرة كما بالمرفق التالي

27.program.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك

وشكرا لك



جزيتم خيرا .. وبارك الله فيكم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ما شاء الله عليك بارك الله فيك اخي جعفر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الله يسلمك اخوي عامر ويعافيك :)

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .