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

وهذا البرنامج يقرأ جميع النماذج الموجودة ، ويحفظها في الـ 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