نجوم المشاركات

تفضل هذا مثال مثال لنقل البيانات.mdb

Forms![form1]![n1] = Forms![form1]!form2!txtSearch Forms![اسم النموذج الرئيسي]![اسم الحقل في النموذج الرئسي] = Forms![اسم الحقل في النموذج الرئسي]![النموذج الفرعي]![الحقل بالنموذج الفرعي]

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

الصفحة Feiul3 من هذا الملف Classeur02_salim_new.xlsx

أخي @حلبي أنصحك بشدة هذه الاداة فيها كل ماتريد وأكثر .. مرفق الملف شريط طباعة.rar

تفضل أخي اليك التعديل على حسب ترتيب عناصر في نموذج حيث يبدء محاذات عناصر من اقرب عنص الى اليسار، و عرض مربع النص الى اعرض مربع في نموذج ،و تسميات ايضا الى اعرض تسمية في نموذج هذا ومهما كان مصادر عناصر و مهما كان مكانهم في نموذج. عرض عند اختيار لغة العربية و اللغة الانجليزية sa.rar

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

أهلا بك في المنتدى -تفضل الصادر والوارد.xlsx

استاذ الفاضل / مسافر سلام الله عليكم ورحمته وبركاته على فكرة أنا سألت عن الغياب من مسئولين فى التعليم الفنى وشوفت من الامانة ان اعرض على سيادتك اجابة المسئول فى التعليم الفنى أولا :- يفصل الطالب على عدد 15 يوم متصل وعدد 30 يوم منفصل وليس على 21 منفصل ثانيا:- عندما ترسل للطالب انذار سواء كان متصل او متقطع انت لاتذكر في هذا الانذار ان غياب الطالب متصل او متقطع . ولكن بتقول فى الانذار انه يوجد مادة فى القانون نسيت رقمها بتنص على ان الطالب لو تغيب 15 متصل يفصل ولو تغيب عدد 30 منفصل يفصل . لو عايز رقم المادة او القانون اجيبها لسيادتك ثالثا :- لابد وان يرسل للطالب عدد 3 أنذارات ولايقل عن 3 سواء هاتفصله متصل او متقطع وهذه نقطة مهم يكون وصل للطالب عدد 3 إنذارت قبل الفصل رابعا :- مفيش قانون او مادة حددت ان بعد مثلا غياب الطالب 5 أيام متصلة ترسل له انذار اول متصل او يوجد قانون عندما يغيب الطالب عدد 7 أيام منفصلين ارسل له انذار اول بعدد 7 منفصلين مفيش قانون ولامادة ولا لائحة تقول هذا . ولكن يبق سؤال كيف تحكم او تنفذ فكرة ارسال الانذارات فكرة الانذارات كالاتى ان تنذر او توضح او تفهم الطالب قبل مايفصل مثلا من غياب متصل أو غياب منفصل انه لو لم يحضر سوف يفصل وتعطيه فرصة انه لو حضر بعد الانذار الثالث هايكون عنده فرصة للرجوع للمدرسة وانه لم يفصل . وبكده وطالما مفيش قيود قانونية ممكن ابعت للطالب انذار اول متصل بعدد 4 أيام او انذار متصل بى 5 أيام مفيش مشكلة والانذار الثانى يكون بعدد 8 أو 10 غياب متصل . بس خلى بالك الانذار الثالث بعدد مثلا 12 يوم غياب متصل أو 13 يوم غياب متصل على اقصى تقدير علشان لو الطالب رجع بعد الانذار الثالث يكون عنده فرصة للرجوع قبل الفصل . تطبيقا لمبدأ الانذارات تنذر او توضح او تعرف الطالب ان على وشك الفصل وليس لقطع الرقبة. وبكده ياريس يكون الخلاصة طالب غاب متصل ومنفصل مثلا غاب 5 متصل وبعد كده حضر كذا يوم وغاب بعد كده عدد 2 يوم . هاترسل له انذار اول بعدد 5 أو 4 ومش هانقول متصل او منفصل انذار اول فقط لاغير. وننتظر لو وصلوا الى 8 متصلين نرسل الانذار الثانى ولانقول متصلين ولو وصلوا مثلا 16 منفصلين نرسل الانذار الثانى وهكذا وعلى فكرة عندما سألت قال لى ممكن تعمله الانذارات المتصلة على 4 ثم 8 ثم 12 والانذارات المنفصلة اضرب فى 2 يعنى الانذارت المنفصلة تكون على 8 ثم 16 ثم 24 وطبعا لو ارسلت انذار اول متصل على 4 وغاب الطالب منفصل تبعت له انذار ثانى على 16 منفصل وهكذا يعنى الموضوع عايز يفهم شكله العام ثم ينظم برمجيا انا أسف وبعتذر بشده استاذى الفاضل / مسافر على الاطالة ولكن احببت ان اوصل ماسمعته او ماعرفته وصدقونى لو وصلنا الى حل لفكرة الغياب دى برمجيا هايكون عندنا برنامج شئون طلبة فريد من نوعه لانه لااحد تطرق لهذا البرنامج ومفيش حد عمله وهايكون بمثابة عمل عظيم وهذا من اسباب اهتمامى بهذا الموضوع وان شاء الله هافكر اعمله لو فهمته برمجيا اعتذر مره اخرى للاطالة والله الموفق

العامود الاصفر في صفحة Salim من هذا الملف No_dup _by_formula.xlsm

أسماء نماذج طبعا مختلفة انا سئلتك أسماء مربعات وتسمياتها داخل نماذج ، و نسيت اسئلك مصادر عناصر تحكم تلك النماذج هل هو نفس جدول ولا كل نموذج له جدول على العموم انت جرب المرفق و وافيني بنتيجة sa.rar

جرب هذا الملف Classeur02_salim.xlsx

بعد إذن أستاذنا القدير سليم على حسب فهمي لكم يكون المطلوب بالشكل في الملف التالي Inzar ALL Days-1.xlsm

السلام عليكم ورحمة الله و يمكنك ايضا ان تجرب هذا الملف ربما يفيدك توزيع رغبات2.xlsm

الاستاذ الفاضل / سليم حاصبا ارجو ان تسامحونى على قله فهمى ويكون صدركم رحب وهذا الكلام للتوضيح ايضا للاستاذ / مسافر انتم رجعتم ليه تعدوا للطالب الغياب اللى انا فاهمه ان الطالب غاب 5 أيام متصلين ارسل له الانذا الاول بعدد 5 أيام متصلين واصبح الطالب فهم انه غاب عدد5 ايام متصلين ليه بقى اما غاب يومين بعد كده رجعتم تعدوا للطالب مره اخرى وبتبعدوا له انذار ثانى بعدد 7 أيام منفصلين كده الطالب لم يفهم هو الانذار الثانى بداخله 5 أيام متصلين ام لا ولا الانذار الثانى بعدد 7 أيام من غير 5 أيام المنصلين تشتت الطالب الصح ان سيادتكم لو ارسلتم للطالب انذار اول بعدد 5 أيام متصلين انذار اول لاترسل للطالب انذار ثانى للطالب الا اذا غاب بعد 5 أيام متصلين عدد 7 ايام منفصلين يعنى يكون فى اجمالى غيابه غاب 12 يوم وبكده فهم الطالب الانذار اول كان علشان 5 ايام متصلين ولم جاء له الانذار الثانى كان نتيجة غيابه بعد 5 أيام المتصلين فاصبح اجمالى غيابه 12 مش ابعتله انذار اول بعدد 5 أيام متصلين ويحضر يوم المدرسة ويغيب يومين اقوم ابعتله اندار ثانى بعدد 7 أيام واقوله منفصلين هذا من وجهة نظرى ليس صح ارجو الرد والمتابعة لان الموضوع ده مهم والمنتدى لم يتطرق له من قبل

ما تراه ليس الانذار السادس او اسابع مثلاُ : أنذار 5(1) معناه انذار الخمسة ايام رقم 1 أنذار 7(2) معناه انذار السبعة ايام رقم 2 وهكذا

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

هذا الكلام الصحيح ✌️

شاهد المرفق فيه طلبك ادراج وحذف صورة.mdb

جرب هذا الماكرو Option Explicit Sub Unique_BY_Dictionary() Rem ====>> Created By Salim Hasbaya On 30/8/2019 If ActiveSheet.Name <> "ورقة1" Then Exit Sub Dim i% Dim obj As Object Range("D2", Range("D1").End(4)).ClearContents Range("e2").ClearContents Set obj = CreateObject("scripting.dictionary") obj.CompareMode = 1 Dim last_ro: last_ro = Cells(Rows.Count, "B").End(3).Row With obj For i = 2 To last_ro If Application.CountIf(Range("H2:H4"), Range("B" & i)) = 0 Then .Item(Range("B" & i).Value) = "" End If Next Range("d2").Resize(.Count) = _ Application.Transpose(.keys) Range("e2") = .Count End With End Sub الملف مرفق No_dup.xlsm

الله عليك استاذ سليم رائع

جرب المرفق Info.xlsx

جرب المرفق CANCLE PROGRAM2222 (1).xlsm

ممكن التعامل مع هذا الملف واختيار 5 ايام متتالية او 7 متفرقة او الكل الاكواد اللازمة Option Explicit Sub test_5Dyas() Rem=====>>> Created By Salim Hasbaya On 30/8/219 Dim str$: str = "غ" Dim cont%, col%, k%: k = 35 Dim i%, x%: i = 3 Dim t%, last_ro% Dim my_text: my_text = "انذار 5 (" Dim X_arr(), m%: m = 1 last_ro = Cells(Rows.Count, 2).End(3).Row Range("Ag5").Resize(last_ro - 4, 7).ClearContents If last_ro < 5 Then Exit Sub For col = 5 To last_ro For x = i To k '========================== If Cells(4, x) = "جمعة" Or Cells(4, x) = "سبت" Then GoTo Next_X End If '========================== If Cells(col, x) = "" Then cont = 0 x = x + 1 End If '========================== cont = cont + IIf(Cells(col, x) <> "", 1, 0) '========================== If cont = 5 Then ReDim Preserve X_arr(1 To m) X_arr(m) = my_text & m & ")" m = m + 1 cont = 0 End If '========================== Next_X: Next x On Error Resume Next t = UBound(X_arr) '========================== If t Then Cells(col, "AG").Resize(1, UBound(X_arr)) = X_arr End If '================================ cont = 0 Erase X_arr: m = 1 Next col End Sub '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Sub test_7Dyas() Rem=====>>> Created By Salim Hasbaya On 29/8/219 Dim str$: str = "غ" Dim cont%, col%, k%: k = 35 Dim i%, x%: i = 3 Dim t%, last_ro% Dim my_text: my_text = "انذار 7 (" Dim X_arr(), m%: m = 1 last_ro = Cells(Rows.Count, 2).End(3).Row Range("Ag5").Resize(last_ro - 4, 3).ClearContents If last_ro < 5 Then Exit Sub For col = 5 To last_ro For x = i To k '========================== If Cells(4, x) = "جمعة" Or Cells(4, x) = "سبت" Then GoTo Next_X End If '========================== '========================== cont = cont + IIf(Cells(col, x) <> "", 1, 0) '========================== If cont = 7 Then ReDim Preserve X_arr(1 To m) X_arr(m) = my_text & m & ")" m = m + 1 cont = 0 End If '========================== Next_X: Next x On Error Resume Next t = UBound(X_arr) '========================== If t Then Cells(col, "Ak").Resize(1, UBound(X_arr)) = X_arr End If '================================ cont = 0 Erase X_arr: m = 1 Next col End Sub '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Sub all_days() Dim ro%, Col_Num%: Col_Num = 30 Dim xx%, My_count% ro = Cells(Rows.Count, "b").End(3).Row Dim kk%, Mon_array() Dim st$: st = "انذار7(" If ro < 5 Then Exit Sub test_5Dyas For xx = 5 To ro My_count = Application.CountIf(Cells(xx, 3).Resize(1, Col_Num), "غ") My_count = My_count \ 7 If My_count = 0 Then GoTo Next_XX For kk = 1 To My_count Cells(xx, "ak").Offset(, kk - 1) = st & kk & ")" Next Next_XX: Next End Sub الملف مرفق Inzar ALL Days.xlsm

وهذا تعديل بسيط على مرفقك حتى يتعامل مع قارئ الباركود تشغيل بالباركود.accdb

وعليكم السلام-تفضل لك ما طلبت-نورتنا في المنتدى 1فاتورة.xlsm

جرب الملف زر طباعة الكل اي تعديلات انا جاهز ان شاء الله تحياتي التصفية حسب اسم المركز.xlsm

هل المؤسسات 3000 تختلف في الاسم ام ان هناك تكرار في الاسم

اخي العزيز عذرا لم اتمكن من عمل طلبك لعدم معرفتي بالامر كل ما عملته هو ان تختار من الفائمة اسم المؤسسة تم اضغط زر تصفية مع طباعة التصفية حسب اسم المركز.xlsm

اخي العزيز حفظك الله حمل الملف مرة اخري لان الترقيم في صفحة التصفية ال 22 فقط التصفية حسب اسم المركز.xlsm

تفضل اخي العزيز جرب الملف المؤسسات الى 1000 مؤسسة التصفية حسب اسم المركز.xlsm

القائمة المنسدلة تقرأ بيانتها من العمود a غير البيانات في العمود a المظلل بالازرق تتغير في القائمة المنسدلة اتوماتيكيا التصفية حسب اسم المركز.xlsm

وعليكم السلام من اكواد السيد الفاضل سليم حاصبيا التصفية حسب اسم المركز.xlsm

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