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

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

أخي الكريم من المعروف برمجياً انه يجب تحديد نهاية السجلات قبل إجراء عملية MoveNext فإذا لم تحدد نهاية السجلات فانك ستحصل على خطأ لذلك يتم استخدام EOF للإشارة الى نهاية السجلات وهي تعني "end of" ويتم استخدامها كالتالي: If Not rst.EOF Then rst.MoveNext حيث ان rst تمثل مجموعة السجلات في الجدول إليك هذا المثال ايضاً Set rs = CurrentDb.OpenRecordset("select * from Table1 ") Do While rs.EOF = False rs.Edit " do something " rs1.MoveNext Loop المثال يبين ان الحلقة التكرارية do تستمر بتنفيذ العمليات البرمجية على كل سجل مادامنا لم نصل لنهاية السجلات في الجدول اي مادامت end of table1 = false فعندما نصل لنهاية السجلات ستصبح end of table1 = true وعندها ستتوقف الحلقة التكرارية وهذا مثال آخر مشابه للذي قبله Set rst = dbs.OpenRecordset("SELECT * FROM Table1", dbOpenDynaset) Do While Not rst.EOF " do something " rst.MoveNext Loop عوضاً عن القول للبرنامج نفذ الحلقة التكرارية مادامت نهاية السجلات false فان المثال الاخير يقول للبرنامج نفذ الحلقة التكرارية مادمت غير واصل لنهاية السجلات بعد مثال آخر: هنا نجد ان البرنامج يبدأ بتنفيذ الأوامر البرمجية من أخر سجل في الجدول ويتحرك الى ان يصل الى أول سجل Set rst = dbs.OpenRecordset("SELECT * FROM Table1", dbOpenDynaset) rst.MoveLast Do While Not rst.BOF " do something " rst.MovePrevious Loop أتمنى ان تكون الفكرة واضحة تحياتي

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

مبروك استاذ خالد زادك الله علما ونفع بك

أهلا ناقل.. يمكن العثور على معلومات وافية مع المثال عن هذه الخاصية في تعليمات أكسس على الرابط التالي.. Recordset.Bookmark property .. DAO والمصورات التالية ترجمة فنية للمقال من كتاب دليل اللغة Visual Basic مع المقدمة الملهمة..

مبارك عليك أخي خالد 👏🏽👏🏽تستاهل كما نشكر القائد الجليل جعفر لتطويره المستمر واختيار النخب

السلام عليكم طال غيابي عنكم احبتي في الله لسببين اولهما ظروف خاصة وثانيها لتوجهي الى تعلم لغات برمجة اخرى و ابتعادي عن الاكسل العشق فلما اخذني الحنين للاكسل فكرة لمذا لا استخدمه كما تعلمت مع اللغات الاخرى فرفعت التحدي و عملت هدا البرنامج البسيط البرنامج عبارة عن تسجيل عمليات استلام وتسليم الوصلات واظهار كشف الحساب لكل مورد على حده او تقرير عام بصفة عامة البرنامج بسيط ما يهم هو ما يخفيه من اكواد و مايظهره من جمال للفورم اما الثانية ما يظهره من جمال الفورم حاولت ان اعمل ما يستخدم في c# ui design و النتيجة هي اما الاولى مايخفيه من اكواد هي قاعدة البيانات هي اكسيس بحيث برمجة كلاس يمكنك استخدامه لتتعامل مع ملفات الاكسيس بكل سهولة ابتداءا بجملة الاتصل فتح الاتصال اغلاق الاتصال الى تنفيذ الكموند تماما كما هو الحال مع c# او غيرها من لغات اخرى الى كل من يبحث عن كيفية العمل على برنامج واحد باكثر من جهاز او مستخدم في نفس الوقت هذا الملف يمكنك من ذلك وذالك برفع قاعدةالبيانات الاكسيس على اي استضافة كقوقل دريف او دريفبوكس وتسليم ملف الاكسل للمستخدمين سيستطيعون جميعهم العمل عليه في نفس الوقت كل ما تحتاجه هو تغيير مسار الملف في كلاص الاتصال المسمى ClsConnctionDB في الاخير تحياتي للجميع تم تعديل الملف ليشتغل على ويندوز 7 WPFVBA_Win7.rar WPFVBA_Win10.rar

السلام عليكم برنامج لجلب الصور من السكانر او الحاسبة وخزنها حسب رقم الكتاب والبحث عن الكتب وطباعتها https://up.top4top.net/downloadf-1447e7ev51-rar.html بعد التعديل على كود السكانر تم حفظ الكتاب حسب رقمه تحياتي

أ.عبدالله الصاري هل هذا المطلوب؟ db4.accdb

الف مبروك استاذ خالد إن شاء الله مزيداً من التقدم والعطاء .. وفقك الله وسدد خطاك

السلام عليكم جرب الملف المرفق لعله يفي الغرض المطلوب... بن علية حاجي العد من بداية التاريخ.xlsx

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

الف . الف . مبروك هنيئا لنا بك ... نفع الله بك وبعلمك استاذ . خالد

ألف مبروك استاذ خالد تستاهل كل خير وفقك الله وزادك من فضله وقدها وقدود يا جميل

لا جاحة للكود هنا تكفي هذه المعادلة في الخلية B11 من الشيت Sheet2 والسحب نزولاً =IF(Sheet1!A1="","",Sheet1!A1)

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

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

مبارك عليك اللقب الذي تستحقه بجدارة ..... نفع الله بعلمك ....

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

وأنت سيسكو بنبض بالعطاء 😉

استاذنا الفاضل لا حرمنا الله من افضالك

الف مبروك استاذنا @خالد سيسكو والى الامام دائما باذن الله 🌷🌷

صدقت استاذنا جعفر تلألأت سماء الاكسس باستاذنا الفاضل @خالد سيسكو بالتوفيق اخي الحبيب تحياتي

أستاذنا @خالد سيسكو أعانك الله وزادك علما ونفع بك

للأسف الشديد ما صار لي الشرف اتعرف عليه ، وما شاء الله نار على علم ، بصماته موجودة ولا تندثر ، ومواضيعه اصيله مو مأخذها نسخ/لصق من مواقع اجنبية (ومو عيب اخذها من مواقع اجنبية والتطوير عليها ، ولكن العيب عدم ذكر المصدر) جعفر 🙂

عملت تعديل بسيط ، بحيث النموذج MainForm يكون النوذج الرئيسي ، ولا تحتاج الى النموذج Navigation Form ، وتقدر تضيف النماذج الفرعية كما تشاء 🙂 جعفر 1154.مساح.accdb.zip

ما شاء الله تبارك الله نستاهل استاذ . خالد .... كان الله في عونك ....

أهلا أحمد.. لا تقلق أنت بحاجة إلى عمل استعلام جدولي فقط..! هذا يتطلب إجراء تعديل على نوع بيانات التاريخ؛ وهذا يمكن معالجته عند تصميم الاستعلام.. أيضا نحن بحاجة إلى مناقشة إشكلات مخرجات التقرير المتعلقة بالسنة والشهر.. أولا أن بيانات السنة هي من نمط البيانات غير الثابت؛ بمعنى أن طرفة الأخير غير معلوم الحد، ولهذا لا يمكن تكديس بياناته كأعمدة رأسية! لأن به اشكالات متلقة بتصميم التقرير وبعرض الورقة.. بخلاف الأشهر فهي معلومة الحد، لكن يبقى اشكال ملائمة هذا الحد للطباعة الرأسية للورق القياسي إليك المثال: سجل رواتب الموظفين.mdb

وعليكم السلام 🙂 نعم يوجد ، تفضل : جعفر

السلام عليكم 🙂 وبالمشاركة مع اخي محمد 🙂 الرسالة واضحة ، الاكسس لم يجد الحقل: cboServeyorID في النموذج MainForm فتأكد انه موجود ، وانك مختار له قيمه 🙂 جعفر

مبروك استاذ خالد ..بالتوفيق 🤩🤩 جزاك الله خيراً استاذ جعفر علي متابعتك المستمرة 🌺🌺🤩🤩

في ملف run في الكود الموجود في نموذج frm تأكد من اسم قاعدة بياناتك انها مكتوبة بشكل صحيح وبصيغة accde

الماكرو الصحيح والاسرع Sub Mohamed() Dim my_sh As Worksheet Dim lr With Sheets(1) For Each f In .Range("f2", .Range("f1").End(4)) If f <> "" Then 'هذا السطر للتأكد من وجود الشيت '++++++++++++++++++++++++++++++++++++++++++++++ If Evaluate("ISREF('" & f.Value & "" & "'!A1)") = False Then _ GoTo next_f '++++++++++++++++++++++++++++++++++++++++++++++ Set my_sh = Sheets(f.Value & "") lr = my_sh.Cells(Rows.Count, 1).End(3).Row + 1 my_sh.Cells(lr, 1).Resize(, 6).Value = _ .Cells(f.Row, 1).Resize(, 6).Value End If next_f: Next End With End Sub الملف مرفق ABD KADER.xlsm

تفضل هذا مثال مني .. اظهر لي بيانات الجدول هذا لأنك نسيت وضع أمر قفل الشفت في قاعدة البيانات التي عليها كلمة مرور ولو ركزت قليلاً في الشرح أعلاه فاني قد ذكرت لك هذه النقطة new.zip

اذا كانت ثقتك بما تقول عالية ارسل لي صورة من داخل الملف Ali.accde لكي نناقش الخبير الاستاذ الكاسر بما قدمه من حماية

استعمل هذا الماكرو الخفيف الصف 21 يجب ان يكون فارغاً (حتى يتعرف الاكسل على الجدول بشكل صحيح) كما يجب ان لا يكون خلايا فارغة بالجدول Sub sort_me() With Range("B22").CurrentRegion .sort Key1:=.Cells(1, 5), Order1:=1, _ Key2:=.Cells(1, 8), Order2:=2, Header:=1 End With End Sub الملف مرفق tartib.xlsm

لديك الملف Ali.accde هل تستطيع الدخول لجداوله؟

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

سهل الكسر لكن ليس للملفات المحمية بكلمة مرور .. لديك الملف بامكانك تجربة كسر الشفت على الملف Ali.accde اما الملف run.accde فلا مشكلة من كسر الشفت عليه لانه لايحتوي الا على اكود برمجية محمية

اخي الكريم في الحقيقة انت تسألني عن امور هي موجودة امامك في اخر مرفق الوحدات النمطية المضافة هي لقفل مفتاح الشفت وهذا واضح من اسمها.. وبدونها فان العميل يستطيع الضغط على مفتاح الشفت ويفتح ملف run.accde وبالتالي يمكنه الاطلاع الجداول للملف Ali.accde من خلال ملف ال run.accde لذلك يجب عليك اتباع نفس الخطوات

اخي الكريم الملف معمول على اصدار اكسس 2010 شغل ملف run.accde فقط اما ملف Ali.accde فهو مقفول بكلمة مرور يتم تمريرها عن طريق ملف run اما الملفات الاخرى التي هي بصيغة accdb فهي الملفات مفتوحة المصدر وضعتها لك لكي تتطلع على الأكواد وطريقة عملها

تفضل الملفات .. عند ارسال الملف للعميل ارسل له الملفين الذين امتدادهما accde فقط لايمكنه مشاهدة كلمة المرور لان كلمة المرور موجودة داخل الكود والملف الذي يمرر كلمة المرور سيكون محول لصيغة accde يعني الاكواد مقفولة تماماً تغيير القاعدة الى صيغة accde لايحتاج الى فتح خاص فقط عند وضع كلمة مرور للقاعدة فانه يتطلب فتح خاص للملف .. لذلك يجب عليك اولاً وضع كلمة مرور للقاعدة ومن ثم تحويلها الى accde Free.zip

قمت بتحميل ملفاتك لكني خارج الآن ولي عودة قريباً ان شاء الله

ليس من واجهة الاكواد البرمجية وانما من الواجهة الرئيسية اخي يبدو انك لم تركز جيداً على الشرح المفصل أعلاه .. قفل الاكواد ليس خطوة ضرورية لانك في نهاية البرنامج ستقوم بتحويله الى صيغة accde يعني صيغة تنفيذية يعني الاكواد البرمجية تتم ترجمتها ولايمكن الاطلاع على الاكواد الاصلية ليس الملف الذي يطلب كلمة مرور وانما الملف الاخر اعتقد اسمه start_databases وقد ذكرته في تعليقي السابق ارجو منك مراجعة الشرح ملاحظة: بعد نقل الملف الى فولدر قاعدتك عدل على الكود الموجود داخل النموذج start ضع اسم قاعدتك مثل mydatabase.accde وغير كلمة المرور اخي الكريم قاعدة البيانات فيها نوعين من الباسوردات : الأول باسورد لفتح القاعدة والعمل عليها وباسورد للوحدات النمطية "الاكواد البرمجية" إذا كنت تقصد باسورد للقاعدة بالكامل فإن شاء الله لن يتمكن احد من اختراق قاعدتك وبدلاً من ان تدخل الباسورد يدوياً اتبع طريقة الاستاذ الكاسر تحياتي

هذا الماكرو يقوم بما تريد Option Explicit Sub TAKDIRAT() Dim Rg As Range, cel As Range Dim Note$ Set Rg = Range("A9", Range("A8").End(4)).Offset(, 9) Rg.ClearContents For Each cel In Rg If IsNumeric(cel.Offset(, -1)) Then Select Case cel.Offset(, -1) Case Is < 7: Note = "نتائج غير مقبولة" Case Is < 10: Note = "نتائج دون الوسط" Case Is < 12: Note = "نتائج متوسطة" Case Is < 14: Note = "نتائج حسنة" Case Is < 16: Note = "نتائج جيدة" Case Is < 18: Note = "نتائج جدة جداً" Case Else: Note = "نتائج ممتازة" End Select cel = Note End If Next End Sub الملف مع الكود Formules.xlsm

جزاك الله خيرا

عليك الا تمسح البيانات من الجدول بل الصفوف باستعمال هذا الماكرو الصغير Sub del_row() ActiveSheet.Rows("2:1000").Delete End Sub

بدل الى هذا الكود Private Sub CommandButton1_Click() Dim My_sh As Worksheet Set My_sh = Worksheets("ورقة1") Dim lastrow As Integer Dim i% With My_sh lastrow = .Cells(Rows.Count, 1).End(3).Row + 1 For i = 1 To 14 .Cells(lastrow, i).Value = Me.Controls("TextBox" & i) Me.Controls("TextBox" & i) = "" Next MsgBox "تم الترحيل" End With End Sub

بسم الله الرحمن الرحيم الحمد لله رب العالمين والصلاة والسلام علي سيدنا محمد النبي الامين وعلي من سار بهديه الي يوم الدين اما.....بعد في موضوع لي سابق طرحت كود تفقيط لتحويل الأرقام من أرقام إلى كتابة لكن (إنجليزي) http://www.officena.net/ib/index.php?showtopic=45828&hl= اليوم سأطرح لكم كود تفقيط أو ملف جاهز لإضافته في الفيجول بيسك بكل سهوله وإستخدامه كداله كاي داله أساسيه في الإكسيل طريقة إضافة ملف التفقيط : حمل ملف التفقيط من المرفقات وافتح ملف الإكسيل وإظغط على Alt+F11 وبعدها ستفتح لك صفحة الفيجول بيسك إذهب إلى File وبعدها Import File وضع الملف وأغلق الفيجول بيسك في الإكسيل إذهب الداله المعرفة من قبل المستخدم وستجدها NoToTxt وتابع الإدخالات كما في الصور المرفقة المميز في هذا التفقيط , يمكنك إضافة أي عمله مثل ريال"هلله_جنيه"قرش_دينار"فلس ملف تفقيط + إكسل شيت.rar