• 0
إياد بيك

فتح الجداول والاستعلامات والنماذج والتقارير بكبسة زر

سؤال

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

أخوتي الأكارم أقدم إليكم فكرة قد تكون مفيدة لكم وهي تعليمة dOpen والتي تستخدم لفتح الجداول والاستعلامات والنماذج والتقارير

س: كيف يتم تشغيل التعليمة ؟؟؟

ج: ضع التعليمات التالية في وحدة نمطية جديدة ومن ثم قم بتطببق التعليمة كما هو موضح في المرفقات


Public Function dOpen(ContType As String, ContName As String, Optional Condition As String)
' By Eyad
Dim strProcName As String
strProcName = "dOpen"
On Error GoTo dOpen_Err

Select Case ContType
Case "tbl"
DoCmd.OpenTable ContName
Case "Qry"
DoCmd.SetWarnings False
DoCmd.OpenQuery ContName, acViewNormal
DoCmd.SetWarnings True
Case "Frm"
DoCmd.OpenForm ContName, acNormal, , Condition

Case "Rpt"
DoCmd.OpenReport ContName, acViewPreview, , Condition
End Select
Exit Function

dOpen_Exit:
Exit Function

dOpen_Err:
Select Case Err
'Case YourErrNumber

'Resume dOpen_Exit
Case Else
MsgBox "Error occurred" & vbCrLf & vbCrLf & _
"In Function:" & vbTab & strProcName & vbCrLf & _
"Err Number: " & vbTab & Err.Number & vbCrLf & _
"Description: " & vbTab & Err.Description, vbCritical, _
"Error in " & Chr$(34) & strProcName & Chr$(34)
Resume dOpen_Exit
End Select

End Function

post-212280-029894900 1356847074_thumb.j

لتحميل المرفقات:

Function-dOpen.rar

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

تم تعديل بواسطه إياد بيك
1

شارك هذا الرد


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

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

  • 0

اخي الفاضل : اياد محمد

بارك الله بك وجزاك الله كل خير

فكرة جميلة واكثر من رائعة

كنت اتمنى انك وضعت تنبيه او ملاحظة لمن اراد ان يستخدم هذه التعليمة بأن تنبه عليه بالتالي :

الجداول لابد ان تبدأ بـ tbl

الإستعلامات لابد ان تبدأ بـ Qry

النماذج لابد ان تبدأ بـ Frm

التقارير لابد ان تبدأ بـ Rpt

وإلا لن يتم فتح اي شيء لأن بعض الأخوة الكرام يستخدمون اللغة العربية في تسميات كائنات القاعدة من جداول ونماذج وتقارير واستعلامات مثل ( نموذج1 او تقرير شامل او جدول3 )

بالتوفيق

1

شارك هذا الرد


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

اخي الفاضل : اياد محمد

بارك الله بك وجزاك الله كل خير

فكرة جميلة واكثر من رائعة

كنت اتمنى انك وضعت تنبيه او ملاحظة لمن اراد ان يستخدم هذه التعليمة بأن تنبه عليه بالتالي :

الجداول لابد ان تبدأ بـ tbl

الإستعلامات لابد ان تبدأ بـ Qry

النماذج لابد ان تبدأ بـ Frm

التقارير لابد ان تبدأ بـ Rpt

وإلا لن يتم فتح اي شيء لأن بعض الأخوة الكرام يستخدمون اللغة العربية في تسميات كائنات القاعدة من جداول ونماذج وتقارير واستعلامات مثل ( نموذج1 او تقرير شامل او جدول3 )

بالتوفيق

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

أستاذتنا الفاضلة زهرة كل المواسم شرف كبير لي أن تعلقي على مشاركتي

ربما يكون تقصير مني في عدم تفصيل شرح التعليمة في المشاركة فقد اعتقدت أن الملف المرفق واضح كفاية

في الحقيقة ليس من الضروري أن يبدأ اسم الجدول ب tbl والاستعلام ب qry النموذج ب frm والتقرير ب rpt ولا مانع أن يكون باللغة العربية أو بالأرقام

إليكم يا اخوتي طريقة عمل الدالة

dOpen("اسم الكائن";"نوع الكائن")

نوع الكائن يأخذ أحد القيم التالية :

"tbl" لفتح الجداول

"Qry" لفتح الاستعلامات

"frm" لفتح النماذج

"qry" لفتح التقارير

اسم الكائن : هو اسم الجدول أو الاستعلام أو النموذح أو التقرير مهما كان (عربي ; انجليزي ) ويجب أن يكون بين القوسين ""

طبعا هناك بند ثالث اختياري وهو شرط الفتح فمثلاً نريد فتح نموذج باسم "العملاء" بشرط أن يطابق رقم العميل الموجود في نموذج العملاء مع رقم العميل الموجود في كومبوبوكس في نموذج البحث :

كما هو موضح في المثال المرفق في المشاركة الأولى

أرجو أن أكون قد أوضحت الفكرة ... وبانتظار تعليقاتكم وملاحظاتكم القيمة

وسلامي للجميع

تم تعديل بواسطه إياد بيك
1

شارك هذا الرد


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

بارك الله بك اخي الكريم اياد

على التوضيح

لقد تبادر الى ذهني اول ما رأيت جملة Select انه لابد من جعل اسماء الكائنات تبدأ بهذه الأسماء

* . قم بحذف القوس المعقوف [ من بداية الكود الموجود في المشاركة حتى لا يأتي احد الأعضاء وينسخ الكود ومن ثم لا يعمل معه


[Public

بالتوفيق

1

شارك هذا الرد


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

مشكور أخي إياد على الفكرة والتطبيق ..

فقط لو بالامكان احد السيناريوهات التي من الممكن أن نحتاج فيه إلى مثل هذا التطبيق وشكرا لك

 

مشكورة أختي زهرة على متابعتك وملاحظاتك القيمة التي تزيد الموضوع قيمة إضافية

0

شارك هذا الرد


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

ممتاز ولي ملاحظة بسيطة لو تم إلغاء خاصية (منبثق) من النموذج الرئيسي لكان المثال أكثر دقة لأنه بالشكل المرفق سابقا

يعيق ظهور الكائنات المطلوبه .. مع خالص شكري للأخ / إياد

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

شارك هذا الرد


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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

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

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