Foksh

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

وعليكم السلام ورحمة الله وبركاته .. بدايةً أهلاً وسهلاً بك في عالمنا المتواضع في منتديات أوفيسنا .. أدعوك وكي تحصل على إجابة سريعة وتحقق هدفك وتحل مشكلتك وتجيب عن سؤالك دائماً ، اعتمد على ما يلي :- العنوان يعبر عن عنوان الكتاب ، والشرح الذي ستكتبه سيكون بمثابة محتوى كتابك . حاول أن يكون شرحك أكثر وضوحاً من مجرد سطر واحد في العنوان ( فيما بعد ) . في ملفك المرفق هل هدفك هو فصل أسماء كل طلاب الفصل ذاته في شيت منفصل ؟ إذا كان غير ذلك ، فلا تحرمنا من اسلوبك الراقي في الشرح والتوضيح 🤗😇

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

وعليكم السلام ورحمة الله وبركاته ,, أهلاً وسهلاً بك أخي الكريم وشكراً لك على هذه المشاركة الجميلة ,, علّ أحد الأخوة بأن يزودنا بتجربته ( ممن لديهم ماسح ضوئي )

وإياكم أخي @moho58 .. ولكم مثلما دعيتم بظهر الغيب وأكثر ..

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

وعليكم السلام ورحمة الله وبركاته .. جرب هذه الفكرة المتواضعة baseA.zip

وعليكم السلام ورحمة الله وبركاته .. هل قمت بتمكين المحتوى ( مركز التوثيق ) وتفعيل الماكرو في خيارات آكسيس ؟؟؟؟ ثانياً ، انقر فوق ملف آكسيس ( مشروعك ) بالزر الأيمن للفأرة ، واختر خصائص ، وقم بالتعليم على خيار فك الحظر Unblock ( إن كان موجوداً ) طبعاً هذه المقترحات بالإفتراض إن لغة الترميز Unicode مضبوطة على اللغة العربية لبلدك

وعليكم السلام ورحمة الله وبركاته .. اذا كان الليست بوكس أو الكومبوبوكس غير منضم ، فأعتقد انه لا يمكنك ذلك

الأفضل أن يكون موضوعك في قسم الإكسل ، سيتم نقل الموضوع

وعليكم السلام ورحمة الله وبركاته .. كتجربة ولن تخسر شيئاً منها ، ضع جميع ملفاتك في التي تعاني من مشكلتها في مجلد واحد ولنفرض على سطح المكتب . سأفترض ان لديك ويندوز 10 ، ولذا في شريط مسار وعنوان المجلد ، اكتب CMD ، للدخول الى موجه الأوامر لنفس المسار الحالي الذي يحتوي ملفاتك . بعد ان تم فتح موجه الأوامر ، اكتب الجملة التالية :- attrib -r -s *.* وسيتم إزالة الخصائص Read-only و خاصية System كملف نظام . أو للإحتياط ، جرب تابع خطوات الفيديو القصير التالي .. جرب وأخبرنا بالنتيجة ..

يسعدنا أنك حصلت على إجابتك الشافية التي حققت طلبك ، ولذا . نرجو منك تصويب إختيارك للإجابة الصحيحة وهي للأستاذ @عبدالله بشير عبدالله مشكوراً على جهوده والإخوة والأساتذة دون استثناء 💐

ولا يهمك اخي الكريم 😇

يسعدنا أنك حصلت على إجابتك الشافية التي حققت طلبك ، ولذا . نرجو منك تصويب إختيارك للإجابة الصحيحة وهي للأستاذ @عبدالله بشير عبدالله مشكوراً على جهوده والإخوة والأساتذة دون استثناء 💐 شكراً لاهتمامك ورحابة صدرك 😇

إثراؤك للموضوع أثار إعجابي ، وأشكرك نيابة عن صاحب الموضوع لما أثريت

فعلاً كلامك صحيح 100% ، وانا اعتمدت على ان الفكرة لن يكون بها تكرار - بسبب بنية الجدول - ، ففي القطعة الواحدة لن يكون لها مثلاً = كوي مكررة ، وهذا ما دعاني لعدم التطرق لفكرة دمج التكرار

بالسلامة أخي الكريم .. خذ وقتك

السلام عليكم ورحمة الله وبركاته .. شكراً لك لمشاركتنا بعض الفكار التي نالت إعجابك ، وقد يكون لها من يبحث عنها .. فقد اختصرت عليه الطريق في البحث عنها لي اقتراح بسيط ، وهو ان تقوم بإضافة تعليقك بالعربية عن الفكرة من كل فيديو تقدمه ( بما أن جميع الأفكار التي طرحتها إنجليزية ) ، وتشرح ولو بشكل مفيد مختصر عن الوظيفة أو الفكرة التي يعرضها الفيديو .. وتخيل لو انك قمت بإرفاق الملف تحت كل فيديو 👌 يا سلااااام ، رح تكون ساعدت كثير أشخاص ومنهم اخوك العبد الفقر الى الله جزاك الله كل الخير لما طرحته .

حسناً .. سأقدم لك حلين اثنين ، ولربما سيكون هناك حلول أخرى من الأخوة والساتذة والمعلمين .. الأول :- باستخدام الدالة البسيطة التالية :- Public Function Foksh_TXTK1() As String Dim rs As DAO.Recordset Dim result As String Set rs = CurrentDb.OpenRecordset("SELECT TXTK1 FROM Tablek WHERE TXTK1 Is Not Null", dbOpenSnapshot) Do While Not rs.EOF If rs!TXTK1 <> "" Then result = result & rs!TXTK1 & " , " End If rs.MoveNext Loop If Len(result) > 3 Then result = Left(result, Len(result) - 3) End If Foksh_TXTK1 = result rs.Close Set rs = Nothing End Function مع استخدام استعلام ليكون مصدر سجلات النموذج ، كمثال :- SELECT Tablek.IDK, Tablek.Emp_Code, Tablek.TXTK1, Foksh_TXTK1() AS at_aziz FROM Tablek; لاحظ ان إسم الحقل الأخير (at_aziz) هو من سيعرض القيم ، وسيكون مصدر بيانات مربع النص TXT1 في نموذجك . الثاني :- باستخدام دالةبسيطة مشابهة تقريباً :- Private Sub Foksh(frm As Form) Dim rs As DAO.Recordset Dim combinedText As String Set rs = frm.RecordsetClone rs.MoveFirst Do While Not rs.EOF If Not IsNull(rs!TXTK1) And rs!TXTK1 <> "" Then If combinedText <> "" Then combinedText = combinedText & " , " End If combinedText = combinedText & rs!TXTK1 End If rs.MoveNext Loop Me.TXT1.Value = combinedText rs.Close Set rs = Nothing End Sub ونستدعيها في حدث "في الحالي - Form_Current" ، بالشكل التالي :- Private Sub Form_Current() Foksh Me End Sub مرفق الحلين :- at_aziz.zip

وعليكم السلام ورحمة الله وبركاته ,, هل هذا المقصود من طلبك ؟

وعليكم السلام ورحمة الله وبركاته .. لا اعلم ان كان ما فهمته صحيحاً ، لكن جرب هذا التعديل في المرفق . مع العلم ان القيم افتراضية من عندي ، فجرب كما ترغب في القيم واعطنا النتيجة BASE-E5.zip

وعليكم السلام ورحمة الله وبركاته ,, جرب اكتب اي قيم رقمية وانقر كلمة يساوي test.zip

مشاركة الأستاذ @AbuuAhmed ، جميلة وتؤدي الغرض بكفاءة باستعمال Case بدلاً من الجملة الشرطية If .. ومشاركة معه ضمن نفس الاسلوب باستعمال If If typ = "مهندسين" Then rs!evalu_moubadara_chaksia = 4.5 rs!evalu_itkan_elamel = 4.5 rs!evalu_nachatat_tarbia = 4.5 rs!evalu_absence = 8 rs!evalu_retard = 4 rs!evalu_tatwir = 4.5 ElseIf typ = "أساتذة" Then 'عدل القيم اسفلها حسب رغبتك rs!evalu_moubadara_chaksia = 4.5 rs!evalu_itkan_elamel = 4.5 rs!evalu_nachatat_tarbia = 3 rs!evalu_absence = 8 rs!evalu_retard = 4 rs!evalu_tatwir = 4.5 rs!evalu_absence_prof = 12 rs!evalu_retard_prof = 4 rs!evalu_nadawat_prof = 6 rs!evalu_nachatat_tarbia_prof = 6 rs!evalu_mobadara_prof = 12 Else rs!evalu_absence_prof = 12 rs!evalu_retard_prof = 4 rs!evalu_nadawat_prof = 6 rs!evalu_nachatat_tarbia_prof = 6 rs!evalu_mobadara_prof = 12 End If وسأنصحك باستعمال فكرة الستاذ أبو احمد اذا كانت الجمل الشرطية كثيرة لأنها أسرع في الأداء 😇 * وجهة نظري غير ملزمة طبعاً

معلومة جديدة علي .. وقد تكون معروفة للبعض ، شكراً معلمنا الفاضل hashtags.accdb

وعليكم السلام ورحمة الله وبركاته .. مشاركة مع الأساتذة .. جرب SELECT * FROM جدول1 WHERE InStr([INFO COD], "#") > 0;