طريقة سهلة لعمل نموذج واحد لعدد من الجداول

عبدالمانع كتب:

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

أخواني ، أخواتي  جميعا  ،،،

أقدم لكم هذه الطريقة السهلة في عمل نموذج واحد لعدد من الجداول وهي طريقة سهلة جدا

تضع الجداول التي تريدها حتى اكثر من عشره جداول  ثم تضع نموذج بالجدول الافتراضي  بعد تعبئة النموذج

بالبيانات تقوم بعمل  التالي عند التحميل

Me.RecordSource = "اسم الجدول الافتراضي"

وبعدها تضع مربع سرد غير منظم  نوع مصدر الصف : قائمة القيم ، ومصدر الصف "اسم الجداول التي عندك في القاعده "

وتضع الكود هذا بعد التحديث في مربع السرد والتحرير الغير منظم .

MsgBox "رسالة بأسم الجدول " & ([TabeSource]), vbInformation, "رسالة "
Me.RecordSource = Me.TabeSource
Me.Form.Requery

مع التحية للجميع  ،،،

عبدالمانع

طرق إستخدام النموذج في عده جداول.zip

←

مشكوووووووور على هذي الطريقة

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

لقد قام الاستاذ / عادي القاسمي (أبن مسقط)

بتعديل المثال واليكم المثال الذي قام بتعديلة

اقتباس

أخي/ عبدالمانع ، ما شاء الله مثال رائع ومفيد بارك الله فيك.

بعد إذنك ، قمت بإضافة بعض النكهة إلى المثال وأرجو أن تكون ذات فائدة للجميع.

جعلت مربع تحرير وسرد المسمى (TabeSource) يقوم بعرض جميع الجداول الموجودة بداخل القاعدة تلقائياً ماعدا الجداول النظامية دون تدخل منك. بمعنى أخر ما أن تقوم بإنشاء جدولاً فيصبح بالإمكان رؤويته من ضمن القائمة وذلك بوضعي الكود التالي في حدث عن التركيز GotFocus للنموذج FrmMain :

Private Sub TabeSource_GotFocus()
Dim obj As AccessObject, dbs As Object
Dim الكل
Set dbs = Application.CurrentData
	For Each obj In dbs.AllTables
	If Left(obj.Name, 4) <> "msys" Then
	If IsEmpty(الكل) Then
	الكل = obj.Name
	Else
	الكل = الكل & ";" & obj.Name
	End If
	End If
	Next obj
	TabeSource.RowSource = الكل
End Sub

وكذلك يتم إستدعاء الكود السابق AfterUpdate في حدث بعد التحديث لمربع تحرير وسرد :

 

Private Sub TabeSource_AfterUpdate()

Me.RecordSource = TabeSource

Me.maged.Value = TabeSource
End Sub

كما أني جعلت مربع النص الغير منضم المسمى (maged) الذي يعرض اسم الجدول الحالي ، يقوم بإضهار اسم جدول مصدر البيانات بواسطة الكود التالي المدرج في حدث عند التحميل Form_Load للنموذج وكذلك في حدث بعد التحديث لمربع تحرير وسرد. وبذلك تم الإستغناء عن تكرار الحقل "اسم الجدول الحالي" في كل جدول :

Private Sub Form_Load()
Me.maged.Value = TabeSource
End Sub

والله الموفق.

عبدالمانع

Farms.rar

اخي عبدالمانع واخي ابن مسقط

فعلا افكار رائعة تستحق الاشادة بها فجزاكم الله كل خير على هذه الروائع

اختكم

زهره