AlwaZeeR

تفضل أخي الكريم: لم يفتح معي لاني ايضا لا املك الا اوفيس 2007 اضف حقل التعريف لديك في استعلام البحث وغير رقم العمود (7) حسب مكان حقل المعرف لديك، من خلال الصورة بعد اضافة المعرف في الاخر يكون (7) ضع هذا الكود في حدث عند النقر المزدوج على الاسم بعد التصفية Dim stLinkCriteria As String stLinkCriteria = "[رقم المعرف لديك]=" & Me.[اسم القائمة التي يظهر فيها البحث].Column(7) If IsNull(Me.[اسم القائمة التي يظهر فيها البحث].Column(0)) Then MsgBox ("يجب اختيار اسم قبل النقر المزدوج") Else DoCmd.OpenForm "اسم النموذج الذي تريد فتحه", , , stLinkCriteria DoCmd.Close acForm, "اسم نموذج البحث" End If :: جرب ووافني بالنتيجة واذا لم تستطع ارفق مثالاً بصيغة 2007 تحياتي

وعليكم السلام ورحمة الله وبركاته لو تفضلت بوضع مثالاً صغيراً لحصلت على إجابة سريعة وشايفة لأن انشاء العلاقات يتم حسب الحاجة المرجوة في البرنامج فمثلاً ما هي العلاقة التي تربط جدول المستخدمين بتسجيل الطلبة؟ قد يكون المستخدم (الموظف) مربياً لأحد الصفوف؟؟؟ لانشاء علاقة بين جدول تسجيل الطلبة وجدول معدل الغياب تحتاج إلى معرف موجود في كلا الجدولين وهكذا لذلك يفضل إرفاق مثال صغير وتوضيح المطلوب وسوف تحصل على المطلوب إن شاء الله :: تحياتي

ضع بعد (cbo1.SetFocus) txt = "" في حدث عند التغيير أو في حدث بعد التحديث

وعليكم السلام ورحمة الله وبركاته If IsNull(Me.p1) Or Me.p1.Value = 0 Then Else DoCmd.SetWarnings False DoCmd.OpenQuery "UP4" DoCmd.SetWarnings True End If

حياك الله اخي الكريم الحقل (Txt) لم يكن موجوداً وكان ناقصاً.

تفضل اخي الكريم waz-dropdown.rar

=IIf([نوعية الإجازة].[column](0) Between 4 And 12,[TotLoh],IIf(IsNull([TotLoh]),"",Nz([TotLoh],0)-Nz([conH],0))) :: تحياتي

اخي صالح: اذا كان كل معلم سوف يقوم بتعبئة ملف الاكسل الخاص بصفه، ثم ارجاعه لك كي يتم اضافته الى القاعدة الرئيسية للعلامات فلا حاجة لاكثر من ورقة sheet في ملف اكسل المصدر اطلع على الملف التالي وبعد ذلك سوف نصل الى ما تصبو اليه ،،، باذن الله تعالى :: تحياتي Waz-Excel.rar

Dim msg Select Case B Case Is = "مقروءة" DoCmd.GoToRecord , "", acNext Case Else msg = MsgBox("يجب ادخال سبب عدم قراءة البصمة للناخب", vbYes, " ") S.SetFocus End Select ضع الكود في حدث عند النقر لزر الأمر خاصتك :: تحياتي

اخي الكريم: ما رأيك ان تضع الغرض الذي تريده في مثال صغير أو ان تطرح ما تريد اضافته على الكود وسوف تجد من يساعدك ان شاء الله :: تحياتي

وفقك الله اخي صالح ،،، طبعا جاهز لمساعدتك اخي العزيز :: تحياتي

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

تفضل اخي الكريم: في حدث عند النقر لزر الامر ضع هذا الكود: DoCmd.OpenForm "EmpData" وفي حدث عند الفتح للنموذج (EmpData) ضع هذا الكود: DoCmd.GoToRecord , , acNewRec waz-Database10.rar

أحسنت العمل أخي صالح،،، بالنسبة للعدد 26: تقصد زيادة او انقاص نطاق الادراج في ورقة اكسل حسب عدد الصف؟؟؟ استخدم هذا السطر بدل تحديد النطاق : Dim lastRow As Long lastRow = ws.Range("A1").CurrentRegion.Rows.Count بالنسبة لاخفاء العمود او اعمدة هذا هو الكود الصحيح: ws.Columns("AF:AT").EntireColumn.Hidden = True

اخي الكريم: المرفق ليس برنامج المرفق عبارة عن وحدة نمطية يتم استيرادها لبرنامجك من الوحدات النمطية افتح البرنامج الذي تريد العمل عليه، ثم افتح وحدة نمطية فارغة وبعد ذلك فك الضغط عن الملف الذي في المرفقات ثم اسحبه داخل الوحدة النمطية في برنامجك قم بالحفظ وتسميته ما تشاء بعد ذلك قم باستدعاء الوحدة النمطية في النموذج في حدث عند التحميل او الفتح عموماً اليك مثالاً في المرفقات ... :: تحياتي waz-Resize.rar

استخدم الوحدة النمطية في المرفقات وقم باستدعائه عن طريق وضع الكود التالي في حدث عند التحميل او الفتح للنموذج المراد تحجيمه: ReSizeForm Me 'لتحجيم النموذج ReSizeForm [اسم النموذج الفرعي].Form لتحجيم النموذج الفرعي modResizeForm.rar

تفضل اخي الكريم جرب ووافني بالنتيجة :: تحياتي waz-tajroba.rar

تفضل اخي الكريم alwazeer-Mnths.rar

وعليكم السلام ورحمة الله وبركاته هل جربت تغيير (محددات السجلات) الى لا عند تغييرها لا تستطيع تحديد الكل فقط السجل الذي عليه المؤشر هو القابل للحذف :: تحياتي

لا بأس في الربط ،،، ما هي التقارير التي تريد عملها؟ لان التقارير تبنى على اساس استعلامات. تحتاج ان تبدأ بعمل نماذج ادخال للبيانات الموجودة في الجداول :: تحياتي

نسيت جدول اساسي: جدول الصفوف: ClassID حقل رقم وليس ترقيم تلقائي الصف ويفضل المسميات بالانجليزية ولو كانت بلفظ عربي :: تحياتي

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

جرب ووافني بالنتيجة،،، tast1.rar

وعليكم السلام ورحمة الله وبركاته،،، تابع معي: لكي يتم عمل ما تريد يجب أولاً مراعاة ما يلي في تصميم البرنامج: 1- بيانات الطلاب في جدول على حدا، ويتضمن أيضا (StuID)ترقيم تلقائي (مفتاح اساسي)، كما يتضمن حقل ClassID نوع بياناته رقم. 2- علامات الطلاب في جدول على حدا ويتضمن أيضاً (StuID) نوع بيانات رقم. 3- المواد الدراسية في جدول على حدا : واسم المادة ورقم المادة، اضافة الى حقل ( ClassID ) نوع بياناته رقم. 4- اساسيات الجداول والشهادات: لو احببت ان تجعل البرنامج يقوم بطباعة الشهادات والجداول الوزارية ... قم بمراعاة هذه الامور في برنامجك وبعدها سيتم عمل ما تريد ... اي استفسار انا حاضر :: تحياتي Alwazeer.rar

حياك الله اخي صالح ... GetPublicSedol() هو اسم الوحدة النمطية الموجودة في البرنامج وعملها: توزيع البيانات المصدرة الى اكسل في اوراق (Sheets) حسب معيار محدد مثلا اسم الصف او رقم الصف ... وفي برنامجك المعيار لتوزيع الطلاب هو ( classe ) --- ماذا تقصد حسب المادة والقسم معاً في التصدير؟؟؟؟