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

السلام عليكم 🙂 قراءة الرسائل من الجدول اسهل بكثير ، وجدا عملية ، ويمكن تغييرها ببساطة 🙂 بالاضافة الى المرفق في الرابط اعلاه ، هنا شرح آخر لنفس الطريقة : جعفر

هذا نص رسالة " هل تريد حفظ التغيرات " ةعنوان الرسالة "تأكيد الحفظ" MsgBox Chr(229) & Chr(225) & Chr(32) & Chr(202) & Chr(209) & Chr(237) & Chr(207) & Chr(32) & Chr(205) & Chr(221) & Chr(217) & Chr(32) & Chr(199) & Chr(225) & Chr(202) & Chr(219) & Chr(237) & Chr(209) & Chr(199) & Chr(202), , Chr(202) & Chr(195) & Chr(223) & Chr(237) & Chr(207) & Chr(32) & Chr(199) & Chr(225) & Chr(205) & Chr(221) & Chr(217) تحويل النص الى أسكاى(ascii).rar تحياتي

تم التعديل على الماكرو كما تريد Option Explicit Sub from_sheet_to_other() Dim D As Worksheet Dim t As Worksheet Dim F_rg As Range Dim Cret$, Rot%, Rod%, m% Application.ScreenUpdating = False Set D = Sheets("Data") Set t = Sheets("target") If D.AutoFilterMode Then _ D.Range("A5").AutoFilter Rot = t.Cells(Rows.Count, 1).End(3).Row Rot = IIf(Rot < 6, 6, Rot + 1) Rod = D.Cells(Rows.Count, 1).End(3).Row Set F_rg = D.Range("A5:F" & Rod) Cret = "محول من المدرسة" F_rg.AutoFilter 6, Cret On Error Resume Next D.Range("A6:F" & Rod).SpecialCells(12).Copy _ t.Range("A" & Rot) D.Range("A6:F" & Rod).SpecialCells(12).EntireRow.Delete On Error GoTo 0 If D.AutoFilterMode Then _ D.Range("A5").AutoFilter Application.ScreenUpdating = True End Sub Aysam_1.xlsm

الاستاذ/-سليم-حاصبيا أولا ارفع أكف الضراعة لله أن ينصركم فى ثورتكم ضد أعداء لبنان الحرة وأتمنى أن تعود لبنان البلد الجميل التى نقرأ عنها فى الحكايات والأشعار الجميلة وتعود كما كانت باريس العرب ويصدح فيها صوت الوروار بأنغام الرحباني مع صوت الملائكة بحنجرة فيروز .. كل الامانى بالسلام والسلامة للبنان الحبيبة ولينصركم كما نصرنا فى ثورتنا على خفافيش الظلام وخالص شكرى على تعب حضرتك معايا مع أنى لم أقدر الظروف التى تمر بها ولكن عشم الإخوة وألف شكر مرة ثانية

جرب هذا الكود Option Explicit Sub from_sheet_to_other() Dim D As Worksheet Dim T As Worksheet Dim F_rg As Range Dim Cret$ Application.ScreenUpdating = False Set D = Sheets("Data") Set T = Sheets("target") T.Range("A5").CurrentRegion.Clear Set F_rg = D.Range("A5").CurrentRegion Cret = "محول من المدرسة" F_rg.AutoFilter 6, Cret F_rg.SpecialCells(12).Copy _ T.Range("A5") If D.AutoFilterMode Then _ D.Range("A5").AutoFilter Application.ScreenUpdating = True End Sub الملف مرفق Aysam.xlsm

الطريقة الثانية وهي الافضل وباستخدام جدولين ولسنا في حاجة الى ادخال معلومات السلم كاملة فقط نحتاج المرتبة الدرجة الاولى من المرتبة العلاوة السنوية عدد الدرجات لكل مرتبة ويتم احتساب الدرجة عن طريق العمليات الحسابية في النموذج ويتم توليد درجات السلم لغرض الطباعة عن طريق الحلقة التكرارية ثم استعلام جدولي ليكون الناتج مطابق للسلم الرسمي وانا افضل هذة الطريقة لكون عدد السجلات فقط 15 سجل واجمالي عمليات الادخال 63 مقابل 1260 للطريقة الاولى والنتيجة

اخواني الافاضل تم شرح الخطوات بالصور ليسهل تطبيقها وتجدونها في المرفقات. اولاً اذا كانت قاعدة البيانات باللغة العربية حولها على الانجليزية ، واسهل وسيلة لعرض بيانات قاعدة بيانات SQL Server هي الاكسس و بما اننا نتكلم عن قاعدة بيانات على الاكسس انصح انك تبدء تصمم الواجهات على VB.Net او ASP.Net ، فهي لا تختلف كثيرا عن الاكسس ، لكن المميز فيها بأن المستخدم يستطيع الاستفادة من برنامجك على جميع الاجهزة كمبيوتر - لابتوب-موبايل - ايباد و غيرها ثانيا انشئ حساب على سيرفر SOMEE من : https://somee.com/default.aspx و اختر حزمة الاستضافة المجانية https://somee.com/DOKA/DOC/DOLoginOrRegister.aspx . . . . . عمل قاعدة بيانات SQL Server . . . . . . . برنامجك الاكسس : . . . . . . . . . . . . . . . . . في حال وجود اي استفسارات ارجوا كتابتها في التعليقات نشر قاعدة البيانات.zip

السلام عليكم ورحمة الله وبركاته 📜برنامج المخزون والفواتير الشامل الإصدار الرابع 2020 البرنامج هو تحديث للاصدارات السابقة من نفس البرنامج اولا وقبل كل شيئ اعتذر عن التأخير فى اطلاق هذا الاصدار نظرا لانشغالي الدائم وظروف خارجه عن الارادة. كما هو معروف عن برنامج المخزون و الفواتير الشامل: واجهة تطبيقية كاملة علي الاكسيل يصلح لكافة اغراض المبيعات و المشتريات وذمم عملاء وموردين و حساب المصروفات مع ميزانية عامه توضح الربح و الخساره. البرنامج مليئ بافكار جديده فى طريقة ادخال الاصناف داخل الفواتير و استدعائها و التعديل عليها.بالاضافه الي طرق جديده فى تصميم الفاتورة كما يتميز البرنامج بكثرة التقارير وسهولة الحصول عليها فى اى وقت يعمل علي جميع اصدارات الاكسيل بنواتين 32 أو 64 بت ويفضل دائما الاصدارات الاحدث من الاكسيل اوفيس 2019 و 365 البرنامج مجاني بنسبة 100 % للاستخدام الشخصي ولا يوجد به تاريخ انتهاء. وتستطيع استخدامه بامان تام.ويمنع بيع البرنامج او اي ربح تجاري بدون الرجوع الي المالك الاصلي.و الله الشاهد علي ذلك. تم تصميم البرنامج بمواصفات خاصه ويعمل للشركات الصغيره الي متوسطة الحجم او للمشاريع الخاصه .وهو فى الاصل برنامج تجارى ولكنى اقدمه هنا للمنتدى وللأخوة الاعضاء بصورة مجانية. تم اطلاق الاصدار الاول من هذا البرنامج عام 2012.وكل ما يلزم هو وجود نسخة اكسيل علي جهازك.وسيفي بالغرض تماما. هذا هو اخر اصدار للبرنامج علي اكسيل و الاصدار الخامس و لمزيد من التحسينات الكبيره سوف يتم تطويره إن شاء الله بلغة برمجه اخري وقاعده بيانات اخري. الدخول الاول:اسم المستخدم "مدير" و الباسورد 123 تم ارفاق نسختين من البرنامج نسخة الاستخدام المباشر كمستخدم ويمكنك استخدامها فى عملك مباشرة. نسخة اخري للتعلم مفتوحة المصدر وتوجد بها جميع الاكواد لجميع الشاشات داخل البرنامج للتعلم او التعديل عليها كما هو الغرض الرئيسي من هذا الصرح العظيم. يمكنك الرجوع الي الاصدارات السابقة حيث يوجد شرح كامل لكيفية استخدام البرنامج لاول مرة. توجد الروابط للاصدارات السابقة و الشرح اسفل هذا الموضوع . 📑الجديد في هذا الاصدار (2020)SIS Ver.4: شاشة تصميم الفواتير و هي من الشاشات الجديدة وبها الكثير من الاكواد الجديده فى الاكسيل (علي حسب علمي) حيث تمكنك من وضع اللوجو الخاص بالمؤسسه او الشركة الخاصه بك كما يمكنك ايضا وضع بياناتك اسفل الفاتورة كرقم التليقون و العنوان و ...... التحكم الكامل في بعض القيم و ظهورها داخل الفاتورة كرصيد العميل. شاشة اختيار عملة الدولة ووضع الضريبه او القيمه المضافه تمكنك هذه الشاشه من اختيار العمله علي حسب الدوله التي تعمل فيها. كما تمكنك من ضبط قيمة الضريبه او القيمه المضافه لفواتيرك شاشة ضبط صلاحيات المستخدمين بعد اضافة مستخدم جديد للبرنامج تستطيع ضبط صلاحيات المستخدم من الوصول الي جميع شاشات البرنامج شاشة حذف البيانات الغير مستخدمة بكل سهولة تستطيع حذف العملاء و الموردين او الاصناف الغير مستخدمة داخل البرنامج. شاشة الحركة المالية السريعة تستطيع ادخال سند صرف موردين او سند عميل بضغطة زر واحده. شاشة الفواتير الكثير من التحسينات تم ادارجها داخل شاشة الفواتير فاتورة المشتريات . انت من يقوم بوضع رقم الفاتورة الخاصه من المورد.بدلا من وضعها اتوماتيكيا كالاصدار السابق. اضافة خصم اجمالي علي الفاتورة. يتم تحديد الخصم كنسبه مئويه او خصم مبلغ مقطوع. اضافة الضريبه علي الفاتورة ويمكن تحديد قيمتها يدويا او تثبيتها من خلال شاشة البيانات الجديده وضبط الضريبه او القيمه المضافه علي حسب الدولة. مبيعات نقدي: فى حالة اختيار هذا النوع من الفواتير يتم ادراج سند قبض مباشره الي حساب العميل مع حفظ الفاتورة لانها مبيعات نقدية. ظهور رصيد العميل الحالي داخل الفاتورة. و التحكم في ظهوره من خلال شاشة تصميم الفاتورة. زر لسداد كامل الفاتورة مباشرة وادراج سند قبض او سند صرف داخل حساب العميل/المورد سند بالمبلغ المدفوع داخل الفاتورة وتسوية حساب العميل او المورد. شاشة الحركات المالية ادراج الكثير من الحركات المالية داخل سند الصرف. شاشة جديده لحساب رواتب وجميع الحسابات للموظفين العاملين فى المؤسسة او الشركة يوجد الكثير من الاضافات و التحسينات علي كل الشاشات والتقارير داخل البرنامج . تستطيع اكتشاف المزيد و المزيد اثناء استخدام البرنامج. التعامل مع رصيد اول المده (كميات الاصناف- حسابات العملاء/الموردين) تم الاستغناء عن شاشة اكواد البيانات والجرد فى هذا الاصدار وكانت تستخدم لوضع رصيد اول المده للاصناف. وعوضا عن ذلك ولحساب المخزون بطريقه منظمه يجب ان يتم وضع كميات اول المده لجميع الاصناف من خلال فاتورة مشتريات باسعار شراء محدده حتي يتم ادراجها وحسابها بطريقه دقيقه.وايضا فى حالة رصيد سابق للعملاء والموردين يجب ان يتم ادخاله من خلال شاشة الحركات الماليه( حركة ماليه رصيد اول مده او ترحيل لحساب عميل/مورد) طباعة الباركود لا تزال غير مفعله ايضا فى هذا الاصدار. 👁️‍🗨️شرح كيفية استخدام البرنامج وادخال البيانات من الاصدارت السابقة:(برجاء مراجعة الروابط التالية) شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) استخدام البرنامج لاول مره من الاصدار الثالث شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) 🏷️تحميل البرنامج: النسخة الاولي SIS 4.566EO : هى نسخة المستخدم النهائي مجانيه 100 % لاعضاء المنتدي الكرام وليس لها تاريخ انتهاء وكما ذكر سابقا هي للاستخدام الشخصي فقط. 💳SIS 4.566EO.rar النسخة الثانيه SIS 4 Learning : هي نسخة للمطورين و الباحثين عن التعلم وهي نسخة مفتوحة المصدر تحتوي علي جميع اكواد الشاشات داخل البرنامج. 🧼SIS4(Learning).rar إن شاء الله سوف اقوم بالرد علي استفسارات اعضائنا الكرام عندما يتوفر لي الوقت و اعتذر مقدما عن اي تاخير نظرا لانشغالي الدائم. اخيرا أحب انا أشكر جميع مشرفي و اعضاء هذا الصرح العظيم. واتمني من الله ان يكون هذا العمل خالصا لوجه الله سبحانه و تعالي و انا اكون قد قدمت تجربه جيده لهذا النوع من البرامج علي الاكسيل وان ينفع به جميع اعضاء المنتدي الكرام

حياك الله اخى واستاذى ده نوركم ياغالى بارك الله لنا فيكم وجزاكم الله عنا كل خير 💐

حياك اخي ابا بسملة .... تنورنا

السلام عليكم مشاركه مع اخى واستاذى @kanory جزاه الله خيرا 💐 لعله يكون ما تريد Private Sub Form_Current() If Not Me.NewRecord Then Me.UserName = Me.UserName.OldValue Else Me.UserName = [Forms]![UserLogin]![n1] End If End Sub بالتوفيق 233.accdb

ربما هذا المطلوب .... 233.rar

في الواقع هذه الخطوة عبارة عن تسهيل جدا كبير للمبرمج 🙂 وقد يكون في الامكان الاستغناء عن الخطوة السابقة ، وعمل كل شيء في هذه الخطوة ، طبعا هذا سيعقد الكود و "رسم النمط وفق النسق" 🙂 شكرا جزيلا اخوي ابو ابراهيم لهذه المشاركة الدسمة 🙂 جعفر

وعليكم السلام ورحمة الله وبركاته المشكلة الاساسية هي تسمية العناصر ( اسم العنصر / الكائن ) بلغة غير الانجليزية والحل اعادة تسمية هذه العناصر باسماء انجليزية ( كما انصح بعد الانتهاء بانشاء قاعدة بيانات فارغة واستيراد الكائنات من قاعدة البيانات القديمة اليها ) اما بالنسبة لنص الرسالة فيمكن التغلب عليها بمرفق اخونا ابوعبدالله الخلواني http://www.officena.net/ib/applications/core/interface/file/attachment.php?id=107469 تحياتي

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

Try this macro Option Explicit Sub One_Or_Nothing() Const t = 1 Dim i% Range("H2:H46").ClearContents For i = 2 To 49 If Application.CountIf(Range("F" & i).Resize(, 2), t) = 2 Then Range("F" & i).Resize(, 2).ClearContents Range("F" & i).Offset(, 2) = t End If Next End Sub

و اذا كانت لا تساوي 1 وليست فارغة مثلاً "Ok2" & "Ok1" ما العمل ؟؟؟؟

قم بهذا التعديل Private Sub CommandButton2_Click() Application.Visible = True Dim sh As Worksheet With ThisWorkbook.Worksheets("micro") .Visible = xlSheetVisible .Activate End With For Each sh In ThisWorkbook.Worksheets(Array("RAW", "Date", "MICC", "REPORT", "LABLE")) sh.Visible = xlSheetVeryHidden Next sh UserForm1.Hide End Sub Private Sub CommandButton4_Click() Application.Visible = True Dim sh As Worksheet With ThisWorkbook.Worksheets("raw") .Visible = xlSheetVisible .Activate End With For Each sh In ThisWorkbook.Worksheets(Array("micro", "Date", "MICC", "REPORT", "LABLE")) sh.Visible = xlSheetVeryHidden Next sh UserForm1.Hide End Sub

تفضل لكن لو تقرأ المعادلة ستجد أنك ملزم بتنسيق معين لأرقام الوثائق xx.accdb

يمكن عمل هذا لكن بيوزر ثاني غير الذي رفعته انت (مع الغلم اني لا أجب ان أعمل على اليورز فورم) 1- لإعادة ترتيب الأعمدة اضغط الزر Reset 2- لمسح TextBoxes والــــ Labels اضغط الزر Cancel 3-لاختيار اي ترتيب للأعمدة املأ الـــ TextBoxes بما تريد ( لا تقبل الا احرف من B الى G ) والــــ Labels تتحدّث اوتوماتيكياً عند الخروج من الـــ TextBoxe بواسطة Enter او Tab أو Arrow 4 - لترحيل البيانات حسب الترتيب الذي اخترته (ليس من الضروروة اختيار كل الاعمدة) اضغط الزر ترحيل يتم نقل فقط الأعمدة المختارة جرب هذا الملف (مع الدعاء لانتصار الثّورة اللّبنانيّة) Fathi_Extra.xlsm

كان وجب عليك توضيح هذا من البداية كما انك تكرر نفس رقم الزر commandbutton2 اعتقد ما تقصد به رقم 4 ملاحظة ليس في كل مرة ترد عليه تقوم بعمل اقتباس لمشاركتي هذا مضيعة للوقت الا في حالة الضرورة جرب هذا التعديل ليس لدي وقت للتجربة لكن اعتقد انه سيفي بالغرض Private Sub CommandButton2_Click() Application.Visible = True Sheets("micro").Activate Dim sh As Worksheet For Each sh In Worksheets(Array("RAW", "Date", "MICC", "REPORT", "LABLE")) sh.Visible = xlSheetVeryHidden Next sh UserForm1.hide End Sub Private Sub CommandButton4_Click() Application.Visible = True Sheets("raw").Activate Dim sh As Worksheet For Each sh In Worksheets(Array("MICRO", "Date", "MICC", "REPORT", "LABLE")) sh.Visible = xlSheetVeryHidden Next sh UserForm1.hide End Sub

يمكنك الاستعانة بهذه الاكواد ولكن يجب تنشيط الصفحة التي لاتريد اخفاءها Sub UNHideAllSheetsTABS() Dim WS As Worksheet For Each WS In ThisWorkbook.Worksheets If WS.Name <> ActiveSheet.Name Then WS.Visible = xlSheetVisible Next WS End Sub Sub hide() Dim WS As Worksheet For Each WS In ThisWorkbook.Worksheets If WS.Name <> ActiveSheet.Name Then WS.Visible = xlSheetVeryHidden Next WS End Sub TEST.xlsm

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

لم يكن قصدي الاستغناء عن الوحدة النمطية؛ بل طلب البيانات دون الاضطرار إلى فحصها من الداخل.. لكي نتمكن من معرفة النمط الذي يمكن تفكيك النص بواسطته، لابد من النظر إلى الحدود الممكن استخدامها لذلك.. بالنظر إلى النص أعلاه: لدينا مجموعة من الأحرف الأبجدية العربية محاطة بعلامات استفهام، بعدها فراغ، بعدها أرقام محاطة بعلامات استفهام، بعدها فراغ.. هذا هو النمط التمتكرر في النص. سيكون رسم النمط وفق النسق التالي.. ([\u0621-\u064A\u0661-\u0669]+\s*){1,4} يتجاهل النمط علامات الاستفهام، ويبحث في مجموعة الحروف والأرقام. u0621-\u064A\ الحروف (ء-ي) u0661-\u0669\ الأرقام (1-9) + علامة الزائد تعني واحدً فأكثر.. *s\ تعني صفر فأكثر من الفراغات (الصفر من أجل إدخال الكلمات التي ليس بعدها فراغ) {1,4} تقوم بتجميع الكلمات أربع كلمات فما دون إلى الواحد (لكون اسم الموظف في النص من أربع كلمات -أسماء-). يمكن تغيير هذا الحد إذا كانت الأسماء مركبة أو أكثر من أربعة.. تقوم الأداة بتجميع القيم الراجعة في مصفوفة ذات بعد واحد، كل خلية تأخذ قيمة واحدة: الأولي؛ اسم الموظف الرباعي والتي تليها رقمه، والثالثة؛ اسم الموظف الرباعي والتى تليها رقمة.. إلى نهاية السجلات. لتسجيل البيانات في جدول الاسماء نحتاج لعمل دورة متسلسة للمصفوفة مع مراعات القفز خطوتين في كل دورة لكون رقم الموظف يقع في الخلية التي تلي اسمه، كمايلي '-- LOOP THROU RECORD VALUE For I = 0 To MZ.Count - 1 Step 2 RSD.AddNew RSD("IID") = MZ(I + 1).Value RSD("INAME") = MZ(I).Value RSD.Update Next أرجو أن أكون قد وفقت في الشرح.. ACCESS WITH REGEXP.accdb Microsoft-Beefs-Up-VBScript-With-Regular-Expressions.pdf

تفضل التعديل اخي الكريم wesam.zip

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

أهلا بك أ @jjafferr أجل لنفكر في شئ آخر خارج الصندوق.. من ضمن المكتبات المرجعية التي توفرها ويندوز: مكتبة التعابير القياسية (النمطية)، وهي مكتبة تقوم بمعالجة النصوص وفق معايير متعددة، يمكن التعرف هذه المعايير عن طرق الرجوع إلى الموقع الرسمية لهذه المكتبة هنا كما يمكن الوصول إلى معايير استخدام ترميز UNICODE من هنا فيما تعلق بترميز محارف النص العربي في مقاييس UNICODE: فإنها تبدأ من الرمز: U+0060 وتنتهي بالرمز: U+06FF ، يشمل هذا الترميز جميع ما يتعلق بمحارف النص العربي (حروف، أرقام، زخارف، روابط، إلخ ). راجع الرابط هنا يمكن الوصول إلى المكتبة في أكسس بالنظر إلى الصورة التالية: نأتي الآن إلى مثال لتكون الشفرة المتعلقة بالبحث في النص المرفق مع المشاركة لكون النص في غير مطابق لترميز أكسس، ولهذا سوف نلجأ إلى استخدام ترميز UNICODE الموسع للغة العربية كما فعل أ. جعفر، والفرق هنا: أنه بعد كتابة الشفرة يمكن أن نستخدمها عن طريق الاستعلام. هذا مثال مصغر للشفرة استخدام المكتبة.. Public Function TEST_STRING(V As Variant, Optional P As String) On Error GoTo EXIT_FUNCTION Dim RE As New RegExp Dim MATCH As MATCH Dim MATCHX As MatchCollection Dim R As Variant '-- INITIAL RE RE.IgnoreCase = True RE.Global = True '-- GET RE PATTREN RE.Pattern = P '-- SET MATCHX AS OBJECT Set MATCHX = RE.Execute(V) '-- CHECK IF ANY MATCHED If MATCHX.Count = 0 Then GoTo EXIT_FUNCTION End If '-- INITIAL RESULT VARIABLE R = vbNullString '-- LOOP THROU MATCHX For Each MATCH In MATCHX Debug.Print MATCH.Value R = R & MATCH.Value Next TEST_STRING = R EXIT_FUNCTION: '-- TERMINATE OBJECTS Set MATCHX = Nothing End Function قمت بإدراج الوظيفة في الاستعلام بالطريقة التالية: RESULT: TEST_STRING([FIELD1],[PATTREN]) في مربع الحوار وضعت معايير تعيد جميع الترميز العربي إذا كان بعدها فراغ أو كانت في آخر السطر: [\u0060-\u06FF]+\s*|$ كانت النتيجة كما في الصورة التالية.. يمكن وضع تعابيير أكثر دقة بمراجعة ماسبق الإشارة إليه، وتجربيه على المثال التالي: ACCESS WITH REGEXP.accdb

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

تم معالجة الامر 1-تغيير اسماء الشيتات الى اللغة الأجنبية 2- الاظهار اليوزر Show User انقر الزر من الصفحة Baraka 3- لمعرفةكيفية التعامل مع اليوزر يمكن الاستعانه بهذه الصور الملف مرفق Phone_Numbers.xlsm

تفضل اخى الكريم لك ما طلبت فورم بحث برقم الجلوس وبه إضافة وتعديل 2وحذف.xlsm

وعليكم السلام أخي أوس نعم هذه نقطة هامة ايضا ، لذلك ، وفي تنسيق حقل التاريخ في الجدول ، يجب ان يكون التنسيق dd/mm/yyyy او اي تنسيق رقمي آخر ، فهذا سيحل المشكلة من البداية اسمح لي أخي أبو عبدالله ان اقول ، انه لا يُفضل الكتابة باللغة العربية في اي من كائنات البرنامج ، إلا كبيانات في جدول ، لأني يوم من الايام صادفت مشكلة في هذه النقطة كذلك جعفر

وتماما للفائدة أحب أن أقدم تفاصيل التجربة لتعم الفائدة وأشارك الأساتذة الكرام بالأجر أولا - استخدام نسخة الأكسس الانكليزية عند تصميم البرنامج سيحد من حدوث هذه المشكلة التى عانيت منها لذا أنصح باستخدامها اخوتى المبتدئين أمثالى - ومن أراد التحول الى النسخة الانجليزية فلا داعى لتسطيب النسخة من جديد بل كل ما عليك فعله تغير اعدادات اللغة بالأكسس من العربية <افتراضى> الى الانجليزية <افتراضى> ثانيا - وهو الخيار الصعب اذا كنت قد قمت بتصميم البرنامج ثم لم يعمل معك على جهاز آخر _ أو أنك تريد العمل على النسخة العربية من الأكسس فلا بد من أن لا يكون أحد عناصر التحكم اسمه بحروف عربية وأعنى بكلمة اسمه خاصية Name وليس Caption فلا يضر ان كانت خاصية Caption تحوى حروف عربية ........ وكذلك لا بد من تغير اسم عنصر التحكم سواء كان خلفه كود أو لم يكن وكذلك أسماء الجداول - الاستعلامات - النماذج - التقارير - الماكرو - الوحدات النمطية - .. لا بد أن تكون هى ومكوناتها مسماة بحروف غير عربية - للأسف - وقد صنعت أداة بدائية لتغير أسماء عناصر التحكم بالنماذج والتقارير بشكل سريع لتوفير العناء بهذه المرحلة وكذلك لا يجب أن يحوى محرر الفجوال بسك على حروف عربية كنصوص الرسائل وغيرها وقد استخدمت أداة لصناعة الرسائل الفضل يعود فى صناعتها لله ثم للأستاذ جعفر وبامكانك استخدامها ببرامجك المختلفة فهى سهلة الاستخدام كل ما عليك فعله هو تصدير الفورم و الجدول الى برنامجك وفقط وكل ما عليك فعله بعد حفظ الرسائل من خلال الفورم ومعرفة رقم الرسالة هو أن تستدعيها بهذا الأمر MakeMsg(1) ' 'أو If MakeMsg(1) = VbYes then ثالثا - وهذه المعضلة التى واجهتها فى النهاية وقد من الله على بهذا الحل وهو: أن تنشأ ملف أكسس جديد فارغ ثم تستورد اليه كل مكونات برنامجك القديم - فإن محرر الفجول يحتفظ بأسماء عناصر التحكم القيمة حتى بعد تغيرها ولا أدرى لماذا ولم تفلح معه عملية الضغط والاصلاح ولكن انتهت المشكلة بعد ععملية الاستيراد والحمد لله هذه تفاصيل التجربة لعل الله أن ينفع بها وآسف على الاطالة