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

وعليكم السلام 🙂 خلينا نتكلم عن الاكسس اولا: في احد برامجي ، وصل مجموع عدد السجلات لأكثر من 1,600,000 سجل ، موزعة على اكثر من 28 جدول ، البرنامج يتحكم بمرفقات حجمها يتعدى 2 تيرابايت ، و 15 مستخدم يستعملوه في نفس الوقت ، وعلى هذا ، فكان حجم قاعدة البيانات حوالي 350 ميجابايت فقط ، بينما يستطيع الاكسس مواصلة العمل الى ان يصل حجمه الى 2 جيجابايت 🙂 ثانيا ، SQL Server : نعم يوجد حدود لحجم قاعدة البيانات ، وهذا الحد هو حجم الهاردسك الذي عليه SQL Server ، هذا معناه ان عدد السجلات لن يكون شغلك الشاغل ، وحتى لو حفظت المرفقات داخل قاعدة البيانات ، والميزة الاخرى هي ، ليس هناك عدد محدود لعدد المستخدمين في نفس اللحظة ، وتستطيع استعمال الاكسس كواجهة ، طبعا ببعض التعديلات على الاستعلامات. ولكن لن يكون هناك فرق في السرعة ، فقد يكون الاكسس اسرع 🙂 جعفر

تفضل جرب المرفق تسيق شرطى معدل.xlsm

وعليكم السلام ورحمة الله وبركاته تفضل Encodingمعدل1.xlsm

=IF(C2<>"",MAX($B$1:$B1)+1,$B1)

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

البحث عن كلمة بدون تشكيل في حقل بالتشكيل به فقرة بالتشكيل Test111.rar

وعليكم السلام 🙂 تفضل هذه الطريقة ، ولكن بدل - استخدم الفاصلة . جعفر

بعدما تضغط علي الصورة يتم ادراج سطر جديد انقر نقرا مزدوجا علي السطر سيظهر لك فورم تستطيع من خلاله زيادة او تنقيص الكمية او الغاء الاختيار بالكلية

مشكور اخي الكريم ماقصرت بارك الله فيك وجزاك الله كل خير

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

اخي ١٠٠٠٠سجل ليس كبير ولا ١٠٠٠٠٠٠كبير المهم حجم قاعدة البيانات في الاكسيس حجم القاعدة ١جيجا اظن انه اكبر شيء في سكيو ال ممكن حسب النسخة مجانيةة او مدفوعةالي بتنزيلها ممكن يوصل حجمها ٥تيرا بايت يعني عدد تلسجلات ١٠٠مليون عادي

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

السيد محمد عدنان ممكن أن ترفع بعض النتائج في شيت book مثلا للعاشر أ والحادي عشر ب (أن تملاها يدويا) شكراً

وعليكم السلام 🙂 يجب ان تكون في تحليل دائم للبيانات ، لمعرفة الخطأ ، ومكان وجوده ، وبالتالي القيام بحله 🙂 في الصورة التي ارفقتها انت ، فلنحلل الخطأ في الصف 51 ، والعمودين 8 و 9 و 11 والخطأ في الصف 65 ، والعمودين 8 و 9 . نرى من ملف الاكسل الخلايا التي بها المشاكل ، فنرى ان نوع البيانات ليست ارقام ، وانما اشارة - (لهذا السبب: الاكسس فشل في تحويل نوع المعلومة ، من - الى رقم بينما لاحظ ان المعلومة في الحقل باللون الوردي ويساوي صفر ، فالاكسس لم يعطيك خطأ في استيراده . في الرابط الذي اعطيتك في مشاركتي السابقة ، لإستيراد حقول الاكسل الى الاكسس ، كان يجب عليّ ان انبهك الى خطوات في هذه الصورة وقبل النقر على الزر Next ، لكي تتفادى مثل هذه الاخطاء ، فأعتذر منك 🙂 . في الصورة اعلاه ، نلاحظ ان الاكسس يخبرنا ، ان نوع العمود Data Type باللون الاسود ، هو نص Text (الاكسس ينظر الى اول معلومة في العمود ، ويتخذ القرار في نوع هذا الحقل) ، بينما في ملفك انت ، فالاكسس رأى ان نوع العمود 8 و 9 و 11 (طبعا قد تكون حقول اخرى كذلك) هو رقم ، ووجد ان معلومات بعض الخلايا ليست برقم (كانت - في حالتك) ، لهذا السبب اعطاك خطأ فيها. الاكسل متسامح في عرض اكثر من نوع واحد من البيانات في عمود واحد ، بينما الاكسس كونه قاعدة بيانات ، فلا يستطيع التعامل بأكثر من نوع من المعلومات في حقل واحد. فالحل: 1. من الاكسل : النظر في بيانات ملف الاكسل والتأكد بأن جميع بيانات الحقل من نفس النوع ، ويمكنك عمل هذا بالطريقة التي قمت بعملها انت ، ومن واقع جدول الاخطاء ، ارجع الى ملف الاكسل وقم بتصحيح هذه المعلومات ، وقم بإستيرادها مرة اخرى ، وستبقى بعض الاخطاء الغير مهمة والتي يمكن تجاهلها. 2. من الاكسس : عند استيراد البيانات لأول مرة من الاكسل (طبعا نحن نستوردها الى جدول مؤقت ، ومن ثم يتم يقوم المبرمج بتوزيع البيانات الى الجداول والحقول الخاصة بها) ، وعند الوصول الى الصورة اعلاه ، وقبل النقر على الزر Next ، انقر في كل عمود ، واختار "نص" في نوع الحقل ، واعمل هذا لجميع الاعمدة ، طبعا هذا سيجعل الاكسس يستورد جميع الاعمدة كـ نص ، ويجب عليك معالجة اختلاف نوع البيانات في الاكسس ، بعد استيراد البيانات ، الميزة في هذه الطريقة ان جميع البيانات يتم استيرادها ، والعيب فيها ، ان التنظيف يتم في الاكسس (ولكن في بيئة انت مرتاح في التعامل معها) ، ولا تنسى انه في الكثير من الاحيان تأتي ملفات الاكسل من مصادر لا نملك التحكم في تغييرها. رجاء قم بإستيراد ملف الاكسل مرة اخرى ، آخذ في الاعتبار الخطوة رقم 2 اعلاه ، وان شاء الله لن تحصل على اخطاء استيراد 🙂 جعفر

اعتقد والله اعلم هو كذلك سيكون الاكسس مجرد واجهة رسومية ليس الا وسف يكون الـ Sql هو قاعدة البيانات

انا اشتغل عندي تمام 100% فقط استبدلت عنصر التحكم الموجود في الفورم بآخر جديد نزلته من قائمة عناصر تحكم اضافية .. وطبعا اعطيته نفس اسم الموجود سابقا وحذفت السابق ظهر معي خطأ واحد في سطر وعطلت السطر واشتغل تمام التمام

انا لا اشبك حاليا بالكمبيوتر بس الفكرة التى فهمتها عندك جدول به265الف صنف ثم جدول السيرفر به 266الف صنف بمعنى تم اضافة الف صنف جديد لاضافة الاف صنف الى جدولك اذهب الى الاستعلامات انشئ استعلام جديد واجعل الويزارد يحددد لك ما نوع الاستعلام الذي تريده فاختار الاستعلامم Unmatch record واختر في الويزارد جدول السيرفر وجدولك سيعطي النتيجة الاصناف الغبر موجودة في يجدولك ثم اعمل استعلام اضافة بهذا الاستعلام لجدولك... اذا لم يكن لديك اكسيس في السيرفر SELECT * FROM Table2 T2 WHERE NOT EXISTS (SELECT * FROM Table1 T1 WHERE T1.State = T2.State AND T1.Product = T2.Product

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

أهلا بكم.. نأتي الآن على الجزء المهم في هذه المشاركة: الجافا سكربت.. # سبق الذكر أن رمز الاستجابة السريع يتم إنتاجة بواسطة مكتبة قدمها أحد مطويري جافا سكربت، وقد قمت بتضمينها إلى جدول شفرات الويب WebXCode Table لأتمكن من استخدامها ضمن صفحة الويب، وذلك عن طريق الحقن الصوري! بمعنى أنك لو ضغط بزر الفارة الأيمن على الصفحة ثم نقرت View Source لن ترى هذه المكتبة، لكن في الحقيقة إنها موجودة! لكن تعمل في الخلفية! -- يلحق تضمين المكتبة، الأعلان عن متغير غرضي يحمل نسخة من المكتبة يُعرّف بمكان وضع الرمز والخصايص التي يحملها.. var Xqrcode =new QRCode('qr-stamp',{text:'QR Code',colorDark:'DarkBlue',colorLight:'WhiteSmoke',width:120,height:120}); وقد تم تضمين المكتبة والتصريح عن المتغير بالطريقة التالية WD.getElementById("qr-code").innerHTML = WebCode(3) _ & ";var Xqrcode =new QRCode('qr-stamp'," _ & "{text:'QR Code',colorDark:'DarkBlue',colorLight:'WhiteSmoke',width:120,height:120});" qr-stamp: هو معرف وسم HTML الذي سيوضع فيه الرمز، والبيانات التالية هي الخصائص، هذا المعامل إلزامي text: يحمل قيمة نصية تمثل بيانات الرمز؛ قد تكون بيانات نصية بسيطة، وقد تكون بيانات نصية مرمزة. ما يمرر على هذا المتغير؛ هو ماسيظهر على الرمز، سوف نقوم بإدراج الرمز عن طريق وظيفة أخرى.. colorDark: يحمل قيمة اللون الغامق في الرمز؛ يراعى في هذا مقاييس HTML في تعريف الألوان.. colorLight: يحمل قيمة اللون الفاتح في الرمز؛..... width: يحمل قيمة رقمية تمثل عرض الرمز height: يحمل قيمة رقمية بالبكسل تمثل طول الرمز !! يجب أن تكون قيم الطول والعرض متساوية. أكبر قيمة هي 256 بكسل !! جميع هذه الخصائص اختيارية إلا أنها تحمل قيم افتراضية.. ؟؟ كيف استدعي المتغير وأمرر إلىه القيم، وأين أضعه المتغير Xqrcode الذي سبق وأن أعلنا عنه يمثل المكون الأبوي لتابعين هما Xqrcode.makeCode(var) // له معامل نصي واحد يمثل البيانات التي ستظهر في الرمز Xqrcode.clear() // يقوم بمحو البيانات السابقة // يتم استدعائها بالطريقة التالية // من داخل النموذح WD.script.Xqrcode.makeCode(var) // من خارج النموذج WF.WD.script.Xqrcode.makeCode() // WF غرض يمثل النموذج // WD غرض يمثل صفحةويب يمكن أن تضعه في أي مكان من النموذج. بالنسبة لي وضعته في حدث السجل الحالي.. !! لتكن على علم أن جافا سكربت حساس لحالة الأحرف..

وعليكم السلام شوف المرفق irg 2022.xlsx

أهلا بكم.. من أكثر الأشياء التي تجعل مطوري أكسس يصرفون النظر عن استخدام إداة متصفح الويب؛ تحسسه الشديد للشفرة في الصفحات المحلية.. ولحل هذه الإشكالية هناك طريقتان فيما أعلم.. -- الأولى: حفظ الصفحة في مجلد السيرفر المحلي: IIS أوغيره من السيرفرات المحلية مثل: wamp.. -- الثانية: نقوم بإنشاء صفحة فارغة بالطريقة التالية.. Private Sub Form_Open(Cancel As Integer) WB.Navigate "about:blank" End Sub !! من المعلوم أن أداة متصفح الويب تعمل على منصة iefram.dll وهذه المنصة تدعم إلى الإصدر السابع فقط من متصفح Internet Explorer. هذه المنصة لا تدعم HTML5 و CSS3، لكن ميكروسوف قدمت حلا لهذه الإشكالية باضافة المعرف التالي إلى مكون (وسم) <head>.. <head> <meta http-equiv="X-UA-Compatible" content="IE=edge"> </head> # الخطوة التالية هي حشر (حقن Injection) وسوم HTML و وسوم CSS وشفرة JS إلى صفحة HTML الفارغة باستخدام دالة البيانات DLookup -- الوظيفة التالية تبسط استخدام دالة Dlookup Public Function WebCode(ID As Long) As String WebCode = DLookup("[Code Content]", "WebCode", "id=" & ID) End Function -- السجل الأول في جدول WebXCode يحتوي على وسوم HTML المطلوية.. <head> <meta http-equiv="X-UA-Compatible" content="IE=edge"> </head> <body> <div id="invoice-content" class="invoice-content"> <div class="qr-result"> <div id="qr-stamp" class="qr-stamp"></div> <div id="info" class="info"></div> <div id="menu" class="context-menu"></div> </div> </div> <style id="mycss"></style> <script id="qr-code"></script> <script id="myscript"></script> </body> وتطلب بهذه الطريقة: WebCode(1) وتوضع في حدث عند الفتح بهذه الطريقة Private Sub Form_Open(Cancel As Integer) WB.Navigate "about:" & WebCode(1) End Sub -- أما وسوم CSS وشفرة JS فيتم حقنها بعد إكتمال فتح الصفحة بهذه الطريقة Sub HTML() If WB.ReadyState = READYSTATE_UNINITIALIZED Then Exit Sub End If '-- html template Call InvoiceInfo '-- html library WD.getElementById("mycss").innerHTML = WebCode(2) WD.getElementById("qr-code").innerHTML = WebCode(3) _ & ";var Xqrcode =new QRCode('qr-stamp'," _ & "{text:'QR Code',colorDark:'DarkBlue',colorLight:'WhiteSmoke',width:120,height:120});" End Sub !! بهذه الطريقة نتجاوز تحذيرات المتصفح من وجود الشفرة البرمجة، كما أننا قمنا بتأهيل المتصفح للعمل بمواصفات متصفح Edge.. # فيما يتعلق بجزئيات الشفرة سوف أتحدث عنها لاحقا.. !! أجريت بعض التعدلات على المرفق لتحسين أداءه

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

السلام عليكم ورحمة الله لعل هذا الكود ان يفى بالغرض Sub ReArrang_Data() Dim ws As Worksheet, C As Range Dim i As Long, p As Long Set ws = Sheets("Sheet1") p = 3 i = 6 Do While i <= 16 For Each C In ws.Range(Cells(4, i), Cells(19, i)) If Len(C) > 0 Then p = p + 1 ws.Cells(p, 2) = C.Value ws.Cells(p, 3) = C.Offset(0, 1).Value End If Next i = i + 2 Loop End Sub

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

السلام عليكم السطر الأول للتصدير إلى أكسل و السطر الثاني للإستيراد من الأكسل قم بالبحث في المنتدى سوف تجد العديد من المواضيع و الأمثلة على ذلك DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "اسم الجدول", "المسار الكامل للملف", False, "اسم الورقة" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "اسم الجدول", "المسار الكامل للملف", False, "اسم الورقة"

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

السلام عليكم ورحمة الله وبركاته هدفيه للعاملين بالكنترولات المدرسيه ...... _ سجلات اعمال الكنترول كامله ... _ توزيع الملاحظين اليا على اللجان .... مع تحياتى ....