كيفية ادراج كود فى حدث معين لاكثر من نموذج برمجيا؟

up

up

نفسي اعمل تمت الاجابة

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

يا أخي الكريم أنت نفسك تقوم بهذا العمل دون أن تشعر فمثلا الماسج بوكس الذي تقوم بعمله حضرتك ما هو إلا مديول جاهز في الأكسيس تقوم أنت باستدعاؤه بكتابة إسمه وإعطاؤه البارميتر الذي ترغب فيه فيتم تنفيذه في أي نموذج ومن أي موضع

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

وللمزيد من المعرفة عن المديولز وأنواعها وكيفية إستخدامها إبحث في المنتدى أو في جوجل عن إنشاء المديولز أو الوحدات النمطية وكيفية الاستعانة بها فهو موضوع قتل شرحا في جميع منتديات البرمجة

أما عن تصدير النماذج والتقارير فابحث أيضا في المنتدى عن ذلك

فأسهل من إنتظار الرد وكتابة up   up أن تبحث بنفسك لتجد الإجابة كل ماعليك فقط هو إختيار كلمات البحث المناسبة وحتى وإن لم تستطع ذلك حاول ثانية وثانية إلى أن تجد ضالتك بنفسك سواء في هذا المنتدى أو في غيره

وشكرا

بارك الله بك اخي عصام عبود 

على المشاركة

ربما يود صاحب السؤال عمل وحدة نمطية جاهزة تضم جميع الأكواد البرمجية وما عليه سوى استدعاء الحدث 

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

Option Compare Database
Option Explicit
'إغلاق النموذج
Public Sub run_close()
On Error GoTo Err_run_close
DoCmd.close
Exit_run_close:
        Exit Sub
Err_run_close:
        MsgBox Err.description
        Resume Exit_run_close
End Sub
'السجل التالي
Public Sub run_next()
On Error GoTo Err_run_next
 
        DoCmd.GoToRecord , , acNext
Exit_run_next:
        Exit Sub
Err_run_next:
Beep
Resume Exit_run_next
End Sub
'السجل الأخير
Public Sub run_last()
On Error GoTo Err_run_last
 
        DoCmd.GoToRecord , , acLast
Exit_run_last:
        Exit Sub
Err_run_last:
        Beep
        Resume Exit_run_last
End Sub
'حذف سجل
Public Sub run_del()
On Error GoTo Err_run_del
 
        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_run_del:
        Exit Sub
Err_run_del:
        MsgBox Err.description
        Resume Exit_run_del
End Sub
'فتح نموذج
'form هو وسيط يشير إلى اسم النموذج المراد فتحه
Public Sub run_open(Form As String)
On Error GoTo Err_run_open
        Dim stLinkCriteria As String
        DoCmd.OpenForm Form, , , stLinkCriteria
Exit_run_open:
        Exit Sub
Err_run_open:
        MsgBox Err.description
        Resume Exit_run_open
End Sub
'إضافة سجل
'start هو وسيط يشير إلى عنصر التحكم المراد الانتقال إليه عند بداية إدخال السجل
Public Sub run_add(start As String)
On Error GoTo Err_run_add
 
        DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl start
Exit_run_add:
        Exit Sub
Err_run_add:
        MsgBox Err.description
        Resume Exit_run_add
End Sub
'السجل السابق
Public Sub run_previous()
On Error GoTo Err_run_Previous
 
        DoCmd.GoToRecord , , acPrevious
Exit_run_Previous:
        Exit Sub
Err_run_Previous:
Beep
Resume Exit_run_Previous
End Sub
'لتحديث بيانات النموذج
Public Sub run_update()
On Error GoTo Err_run_update
 
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_run_update:
        Exit Sub
Err_run_update:
        MsgBox Err.description
        Resume Exit_run_update
End Sub
'معاينة تقرير
Public Sub open_report(report As String)
On Error GoTo Err_open_report
        DoCmd.openreport report, acPreview
Exit_open_report:
        Exit Sub
Err_open_report:
        MsgBox Err.description
        Resume Exit_open_report
End Sub
'طباعة تقرير
Public Sub print_report(report As String)
On Error GoTo Err_print_report
        DoCmd.openreport report, acNormal
Exit_print_report:
        Exit Sub
Err_print_report:
        MsgBox Err.description
        Resume Exit_print_report
End Sub
'تراجع
Public Sub run_undo()
On Error GoTo Err_run_undo
 
        DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Exit_run_undo:
        Exit Sub
Err_run_undo:
Beep
        Resume Exit_run_undo
 
End Sub
'السجل الأول
Public Sub run_first()
On Error GoTo Err_run_first
 
        DoCmd.GoToRecord , , acFirst
Exit_run_first:
        Exit Sub
Err_run_first:
        Beep
        Resume Exit_run_first
End Sub

اولا شكرا لردكم وتعبكم

سؤالى لم يفهم جيدا هذا ليس المطلووووووب

استاذتى زهرة

كل ما اريدة هو بعد تصميم قاعدة البيانات هناك اكثر من 25 نموذج اريد ان ادخل الى كل نموذج فى حدث عند الفتح وكتابت كود ثابت لكل النماذج وكل هذا اصنعة برمجيا

هذا مثلما يحدث فى برنامج

AccessMaster 2000-2010

اتمنى يكون سؤالى واضح

استاذ فيري السر بيكمن في دالة باسم

Application.VBE.CodePanes

ما توصلت له انه لو كتبت مثلا

msgbox Application.VBE.CodePanes.Count

سيظهر لك عدد المديول الموجوده ليك في برنامج الاكسس

ولو اردت تغيير اي سطر من سطور المديول ستكتب

Application.VBE.CodePanes(1).CodeModule.ReplaceLine 2, "Write here what you want"

حيث ستغيير رقم 1 وهو رقم المديول المراد الكتابة به .. ورقم 2 هو رقم السطر ثم أكتب الكود الذي ترغب به ..

يا رب يكون هذا افادك

الصراحة مش فاهم اللى انت بتتكلم فية

بس انا عايز اوصل للاتى

اكتب داخل حدث عند التحميل استدعاء دالة (لحيات المستخدم مثلا)

ويتم تكرار هذا داخل كل النماذج الخاصة بقاعدة البيانات التى اعمل عليها

كل هذا يحدث برمجيا

هذا يحدث من خلال برنامج

AccessMaster 2000-2010

عندما تحدد اختيار اضافات اخرى ===> وتثبيت نظام صلحيات المستخدمين  يضع البرنامج داخل قاعدة البيانات المختارة داخل كل نموذج فىى حدث عند الفتح دالة استدعاء صلحيات المستخدمين

اريد معرفة كيف يتم ذلك برمجيا

يا أخي الكريم ما أوضحته الدكتورة زهرة فيه الدواء والشفاء بإذن الله

وما عليك سوى أن تضع الكود الذي ترغب باستدعاؤه في وحدة نمطية جديدة في دالة مثل أي دالة من التي ذكرتها أختنا أم عهود وعند فتح كل نموذج تقوم باستدعاء إسم الدالة الموجودة في تلك الوحدة ليتم تنفيذها مباشرة

أرفق مثالك لكي يتم التعديل عليه

very كتب:

الصراحة مش فاهم اللى انت بتتكلم فية

 

بس انا عايز اوصل للاتى

 

اكتب داخل حدث عند التحميل استدعاء دالة (لحيات المستخدم مثلا)

ويتم تكرار هذا داخل كل النماذج الخاصة بقاعدة البيانات التى اعمل عليها

كل هذا يحدث برمجيا

 

هذا يحدث من خلال برنامج

AccessMaster 2000-2010

عندما تحدد اختيار اضافات اخرى ===> وتثبيت نظام صلحيات المستخدمين  يضع البرنامج داخل قاعدة البيانات المختارة داخل كل نموذج فىى حدث عند الفتح دالة استدعاء صلحيات المستخدمين

 

اريد معرفة كيف يتم ذلك برمجيا

اخي الكريم

هل من الممكن تكتب لنا الأكواد التي تريدها في حدث عند الفتح للنماذج !!!!!

والتي تريد ادارجها بالكود البرمجي لجميع النماذج الخاصة بك

zahrah كتب:

اخي الكريم

هل من الممكن تكتب لنا الأكواد التي تريدها في حدث عند الفتح للنماذج !!!!!

والتي تريد ادارجها بالكود البرمجي لجميع النماذج الخاصة بك

Private Sub Form_Load()

Call allaw([Form])

End Sub

ما شاء الله.........عمل رائع

بارك الله فيك يا زهرة النتدى