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

أهلا @سلمان الشهراني في هذا التعديل أنشأت وظيفة تعيد بيانات الاستعلامين التي أشرت إليها في المرفق، وضمنتها ببطاقة التعريف بالشكل التالي Function CardDetails(ID As Long) On Error Resume Next Dim P1 As dao.Recordset, P4 As dao.Recordset Dim H As String Set P1 = CurrentDb.OpenRecordset("select * from qr_p1 where Apartment_No4=" & ID) Set P4 = CurrentDb.OpenRecordset("select * from qr_p4 where id=" & ID) H = H & "<p class='first'>" & P1!Name1 & "</p>" H = H & "<p><span>تاريخ الدخول</span>" & Format(P1!Date_Entry, "yyyy/mm/dd") & "</p>" H = H & "<p><span>المبلغ المدفوع</span>" & P1!Mdfo3 & "</p>" H = H & "<p><span>المبلغ المتبقي</span>" & P1!Residual & "</p>" H = H & "<p><span>مبالغ أخرى</span>" & P4!Total2 & "</p>" CardDetails = H End Function إليك المرفق: Dashboard2003.mdb

شكرا لسعة صدرك واعتذر منك مرة اخرى.

اعتذر ان كان ردي جارح بالنسبة الك، لان بصراحة ردك كان استفزازي جدا بالنسبة لي لان خلال 12 سنة قضيتها في معظم لغات البرمجة لم اسمع عن كود تكون له افضلية عن غيره لانه يوضع برأس الصفحة او في ( Module ) او دوال اثنان يختلفان في اسماء البراميترات لكن تبقى لهما نفس الوظيفة فقط الاختلاف بالمسميات. ان وضعت الكود في ( Module ) او في رأس الصفحة او في نهاية الصفحة.. سيعمل لانك تتعامل مع winAPI والذي يحدد ذلك طبيعة الدالة ( Private ) او ( Public ). اما القيمة ( Boolean ) لكي ترجعلك قيم منطقية في حال تشغيل الصوت أو لا.

بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار،مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والادكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** الكود الاول هذا كود يجعل صفحة الاكسيل عندما تكتب فيها تكتب باللغة العربيه دائما حتى ولو كانت لغة الكتابة في لوحة المفاتيح انجليزي طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز ALT وانت ضاغط على الزر اضغط على F11 الموجود أعلا لوحة المفاتيح ستظهر شاشة الماكرو اضغط على This Workbook ستجد Private Sub Workbook_Open() hosami "00000401", 1 End Sub انسخه والصقة في ملفك الجديد في نفس الموقع This Workbook ثم اضغط على موديول 1 سيتم فتح الموديول هذا Declare Function hosami Lib _ "user32" Alias "LoadKeyboardLayoutA" (ByVal A As String _ , ByVal B As Long) As Long انسخه وضعه في نفس المكان وهو موديول 1 في ملفك الجديد احفظ الملف واعد فتحه ولاحظ لغة الكتابه في لوحة المفاتيح ودمتم في حفظ الله تغيير لغة الكي بورد الى العربي.rar تغيير لغة الكي بورد الى العربي بطريقة اخرى.rar

السلام عليكم ورحمة الله تعالى وبركاته الجزء الاول من صلاحيات دخول المستخدمين الى البرنامج فى هذا الجزء - فى حالة عدم وجود مستخدم مسجل اى عند فتح القاعدة للمرة الأولى يتم انشاء المستخدم الأدمن اليا يا سلام يا سلام -البيانات فى الجداول مشفرة << -----------< تلبية ورغبة لطلب احبائى الكرام -تم إخفاء معظم كائنات قاعدة البيانات التى تخص دخول المستخدمين -نموذج الدخول يمكن من خلاله تسجيل مستخدم جديد فى انتظار الادمن للموافقة عليه وتصنيفه تبعا لمجموهة الصلاحيات << -----------< الادمن كده هيستريح الله الله الله -نموذج الدخول يمكن من خلاله استرجاع كلمة المرور فى حالة النسيان ولكن بعد ادخال بيانات التسجيل الصحيحة ( اسم الدخول - الاسم الرباعى - الايميل- سؤال الامان - اجابة السؤال) -امكانية كشف نجوم كلمة المرور ما تيجو نشوف كده قد يكون هناك اخطاء سهوا منى وقد تكون هناك لدى احد اساتذتى الكرام واحبائى فكرة افضل يسعدنى تلقى مقترحاتكم حول المرفق القاعدة مطروحة للتجربة ـــــــــــــــــــــــــــــــــــــــــــــ SecurityLevel group.accdb SecurityLevel group.mdb

السلام عليكم في نقاش مع الأستاذ @رمهان في أحد المواضيع اقترح عليا فتح موضوع حول إغلاق البرامج المتصلة بالشبكة من أجل النقاش و إثراء الموضوع. و لقد قمت بهذا الصدد بتصميم مثال يجعل مدير الشبكة يتحكم في إغلاق جميع البرامج (الأجهزة) المتصلة عبر الشبكة. شرح فكرة البرنامج: قمت بإضافة جدول لقاعدة البيانات اسمه tbl1 و وضعت به حقل اسمه code_edit نوعه رقمي تعتمد الفكرة على إعطاء هذا الحقل قيمتين 0 أو 1 في نسخة المستخدم هناك نموذج الواجهة frm يتحسس لقيمة الحقل code_edit إذا وجدها 1 يفتح نموذج آخر يبدأ بالعد التنازلي من 10 لإغلاق القاعدة و عند فتح القاعدة مرة ثانية يظهر نموذج العد التنازلي مرة أخرى لأن قيمة الحقل 1 يتم تغيير قيمة الحقل من خلال زري أمر في نسخة المدير (إغلاق الأجهزة المتصلة و منع الإتصال ، السماح بالإتصال) في المرفق ثلاثة ملفات نسخة المدير و نسخة مستخدم و db بعد تحميل المرفق قم بتحديث إرتباط نسخة المدير و نسخة مستخدم مع القاعدة db افتح الملفين نسخة المدير و نسخة مستخدم و اضغط على زر إغلاق الأجهزة المتصلة و منع الإتصال في نسخة المدير سوف تلاحظ ظهور نموذج العد التنازلي في نسخة المستخدم و إن كانت لك شبكة داخلية تستطيع نقل نسخة المستخدم لجهاز آخر و تحديث الإرتباط و تجربة البرنامج. eloued.rar

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

السلام عليكم وصلتنا أكثر من شكوي بشأن عدم تفعيل الترقيات الالية تمت مراجعة الأمر و حاليا سيتم التفعيل باذن الله مع أول دخول أو مع اضافة أول مشاركة الترقيات الالية الحالية كالتالي: عند التسجيل: عضو جديد عند بلوغ 50 مشاركة : عضو عند بلوغ 100مشاركة : عضو مميز عند بلوغ 500 مشاركة : عضو فضي عند بلوغ 1000 مشاركة : عضو ذهبي عند بلوغ 2000 مشاركة: عضو ماسي و يستثني من الترقيات الالية مجموعات الخبراء و فريق الموقع الحالي و السابق و العضوية الشرفية

هذا الماكرو ربما ينفع (الملف مرفق) Private Sub CommandButton1_Click() Dim My_Rg As Range Set My_Rg = Sheets("ورقة1").Range("c5:j24") Dim x%: x = 1 Dim i%, j% For j = 1 To My_Rg.Columns.Count For i = 1 To My_Rg.Rows.Count Me.Controls("TextBox" & x).Value = My_Rg.Cells(i, j).Value x = x + 1 Next Next End Sub data To user.xlsm

انا لم أر اي خطأ مع ذلك تم تحديث البرنامج ليبدو أكثر وضوحاً 1-الأصناف تظهر مرتبة ابجدياُ 2- تلوين الوارد بلون والمنصرف بلون أخر 3-تعليم صفوف الشبكة حيث يوجد بيانات 4- اذا كانت كمية الوادر او المنصرف تساوي صفر لا تظهر في التقرير 5-تمييز صف المجاميع بلون مختلف عسى أن ينال الاعجاب لا استطيع التحسين أكثر من هذا special_data_sorted.xlsm

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

إيه ده يا راجل .. ايه الإبداع ده .. بارك الله فيك ونفع بك بعد إذنك أنا لم أستطع أن أعدل فى الكود حتى يتلائم مع ما طلب أ/AhmedEmam (بكل صراحة إستخصرت أحذف منه شيئ لروعته) ولكن أخفيت بعض الكائنات حتى يتلائم مع ما طلبه. وأعتذر عن ذلك إن قبلت وإلا فاحذف المرفق .. شكرا لك مرة أخرى. تحياتى test (1).zip

السلام عليكم 🙂 اخي كاسر 🙂 الكود اللي استعملته ، بإستخدام الامر Dcount ، واللي هو عبارة عن استعلام خاص للجمع 🙂 فانت تعمل 20 استعلام لتحصل على المطلوب 🙂 فقمت انا بعمل هذا الاستعلام ، واللي اخذت المعايير من كودك ، وبدون تغيير فيها SELECT Abs(Sum([العمر] Between 0 And 14 And [الجنس]='ذكر')) AS T21, Abs(Sum([العمر] Between 15 And 20 And [الجنس]='ذكر')) AS T22, Abs(Sum([العمر] Between 21 And 30 And [الجنس]='ذكر')) AS T23, Abs(Sum([العمر] Between 31 And 40 And [الجنس]='ذكر')) AS T24, Abs(Sum([العمر]>=41 And [الجنس]='ذكر')) AS T25, Abs(Sum([العمر] Between 0 And 14 And [الجنس]='أنثى')) AS T27, Abs(Sum([العمر] Between 15 And 20 And [الجنس]='أنثى')) AS T28, Abs(Sum([العمر] Between 21 And 30 And [الجنس]='أنثى')) AS T29, Abs(Sum([العمر] Between 31 And 40 And [الجنس]='أنثى')) AS T30, Abs(Sum([العمر]>=41 And [الجنس]='أنثى')) AS T31, Abs(Sum([طبيعة الإعاقة]='حركي' And [الجنس]='ذكر')) AS T51, Abs(Sum([طبيعة الإعاقة]='ذهني' And [الجنس]='ذكر')) AS T52, Abs(Sum([طبيعة الإعاقة]='سمعي' And [الجنس]='ذكر')) AS T53, Abs(Sum([طبيعة الإعاقة]='بصري' And [الجنس]='ذكر')) AS T54, Abs(Sum([طبيعة الإعاقة]='متعدد الإعاقة' And [الجنس]='ذكر')) AS T55, Abs(Sum([طبيعة الإعاقة]='حركي' And [الجنس]='أنثى')) AS T58, Abs(Sum([طبيعة الإعاقة]='ذهني' And [الجنس]='أنثى')) AS T59, Abs(Sum([طبيعة الإعاقة]='سمعي' And [الجنس]='أنثى')) AS T60, Abs(Sum([طبيعة الإعاقة]='بصري' And [الجنس]='أنثى')) AS T61, Abs(Sum([طبيعة الإعاقة]='متعدد الإعاقة' And [الجنس]='أنثى')) AS T62 FROM العمر; ومن استعلام واحد حصلت على جميع نتائجك 🙂 . وعملت نسخة من تقريرك ، وحذفت الكود ، وحفظته باسم rpt_NEW ، وكله تمام 🙂 بس الفرق هو ، سرعة اظهار التقرير 🙂 جعفر 1051.Handicapées -kaser906l.accdb.zip

هممم في الواقع ، ولأول مرة ابوح بهذا الشيء بالتفصيل : في الفترة بين 2003 و 2007 كنت اشارك في المنتدى الاجنبي https://www.experts-exchange.com/members/jjafferr.html وفي سنة 2005 اصبحت احد افضل 15 مشارك/خبير في منتدى الاكسس هناك https://www.experts-exchange.com/questions/21454217/jjafferr-Top-15-Overall-HOF.html وتدرّجت الى ان وصلت الرقم 10 على ما اتذكر ، وحصلت على اعلى شهادة يُعطيها الموقع آنذاك Genuis 🙂 لهذا السبب ، صدقني لما اقول ، ولازلت مُصر ، بأني لم ارى استعمال WebBrowser كما تستعمله انت ، كنموذج يحاكي بقية كائنات قاعدة البيانات 🙂 جعفر

أهلا بك أستاذ جعفر.. أنت تبالغ أستاذ! لو كان هناك طلب على هذا الأسلوب لكان أول من يبدع فيه أنت.. في الحقيقة أنا متردد بعض الشيء.. وقد رتبت لهذا الفكرة من قبل، لكن اعترضتني بعض الإشكالات.. وسوف أعمل على حلها في القريب..

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

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

السلام عليكم ضع هذا الكود مكان الكود السابق خلف زر الأمر Dim curPath As String Dim i As Integer curPath = CurrentProject.Path & "\REPORT_SALES.xlsx" Do Until Dir(curPath) = "" i = i + 1 curPath = CurrentProject.Path & "\REPORT_SALES" & i & ".xlsx" Loop DoCmd.OutputTo acOutputTable, "REPORT_SALES", acFormatXLSX, curPath, 0

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

السلام عليكم هذا مثال قديم من موقع اجنبي بالتوفيق إن شاء الله طباعة اسماء الحقول في الجداول.rar

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

وعليكم السلام 🙂 هذا الرابط قد يفيدك جعفر

السلام عليكم 🙂 متابع دردشة الشباب ، في موضوع شيّق 🙂 جعفر

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

Calendar.mdb

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

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

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

ماشاء الله ماشاء الله ايه الشغل العالي ده انت عملت حاجات انا مطلبتهاش بس هتنفعني اوي اوي ماشاء الله عليك استاذ سليه ربنا يعزك

يمكن إضافة أكثر من مفتاح واحد في الجدول لاحظ هذه الصورة:

ماشاء الله استاذ سليم عمل رائع كالعادة

اعزائي اليكم هذا السطرالواحد من الكود والذي يقوم بفتح مربع حوار سحب الصور من الاسكنر وحفظ الصورة في نفس مسار برنامجك الاكسس ! Set img = CreateObject("wia.commondialog").ShowAcquireImage.SaveFile(CurrentProject.Path & "\" & InputBox("ادخل اسم الصورة") & ".jpg") تحياتي

اخي @اسلام سيد اعطيتنا مرفق وبدون اي نموذج وقلنا ماشي نعمل نموذج نفس شكل الجدول بعدين تقول فورم مستقل يعني هل تريد برضه نعمل النموذج المستقل ؟؟ بس برضه انا خايف نعمله ثم تقول لا شكل النموذج المفروض يكون كذا وكذا عزيزي هات السؤال مكتمل من البدايه وبه جميع الكائنات التي بها يتم تطبيق المساعده تقبل عتبي ووجهة نظري اخي وعزيزي ولك اجمل تحية

بارك الله فيكم استاذ على حل رائع وجزاكم الله خير

السلام عليكم تفضل اخي الكريم علما باني قمت بتعديل اسناء الجداول للانجليزية وهذا افضل من الناحية البرمجية وخاصة في تكوين الاستعلامات وكتابة الاكواد DB.rar تخياتي

بعد اذن اخي علي الترتيب يتم في العامود الثاني مما يسبب مشاكل في بقية البيانات في الاعمدة المتبقية (مثلا تاريخ ميلاد محمد كان 1/3/2015 فاصبح 10/12/2009) لذلك اقترج هذا الكود 1- يتم الترتيب ابتداء من العامود 2 و حتى العامود 10 (حيث لا يتم المس بالترقيم الالي في العامود الاول) 2 - الترقيم اوتوماتيكي يرجى عدم الترقيم (تم وضع حماية له) 3- لا يتم الترتيب الا اذا كتمل الصف بـــــ 10 عناصر الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim rw%, x%, lr%: rw = 8 x = Application.CountA(Range(Cells(Target.Row, 1), Cells(Target.Row, 10))) If Target.Row > rw And Target.Column <= 10 And x = 10 Then lr = Cells(Rows.Count, 1).End(3).Row Cells(rw, 2).Resize(lr, 9).Sort _ Key1:=Cells(rw, 2), _ Order1:=1, Header:=2 End If End Sub الملف مرفق Sort_data.xlsm

لكي يتم إدراج ورقة العمل وتعمل جيدً بدون أي مشاكل يجب بالإضافة للخطوات السابق ذكرها من قبل يتفضل مشكلتين وحلولهما سهل المشكلتين بحث الاسم و بحث رقم الجلوس والحلول كما بالصورة تم التعديل الرابط https://mab.to/bQbPUgyJ8

التاريخ الهجرى Officena DatePicker.mdb

For i = 0 To CurrentDb.TableDefs("table1").Indexes.Count - 1 If CurrentDb.TableDefs("table1").Indexes(i).Primary Then MsgBox CurrentDb.TableDefs("table1").Indexes(i).Fields(0).Name End If next i تحياتي استاذ صالح

هذا السطر معناه اكتب لي قيمة متغير mySQL في النافذة تحت الكود ، وجميل لما نمشي مع الكود سطر بسطر ، بحيث الكود يخبرنا بقيم المتغيرات ، اثناؤ عمل الكود : جعفر

قصدك بطريقتي في تفكيك اسطر الكود وتبسيطها الى اسطر ، لأن الكود هذا مو خط يدي 🙂 الجزء الاول من كودك ناقص ، وبعد التعديل ، ويجب ان يكون هكذا: Private Sub CreatAdmin() mySQL = "INSERT INTO tbllvlUsers" mySQL = mySQL & "( UserID," '1 UserID mySQL = mySQL & "lvlGroupID," '2 GroupID mySQL = mySQL & "UName," '3 UserName mySQL = mySQL & "Password," '4 Password mySQL = mySQL & "Fname," '5 FullName mySQL = mySQL & "lvlQ ," '6 Questions mySQL = mySQL & "lvlAnsr," '7 Answers mySQL = mySQL & "Umail )" '8 EmailUsers 'Debug.Print mySQL mySQL = mySQL & " SELECT " mySQL = mySQL & " '1' AS UserID," '1 UserID mySQL = mySQL & " '2' AS lvlGroupID," '2 GroupID mySQL = mySQL & " Encrypt(KeyEnde(),'admin') AS UName," '3 UserName mySQL = mySQL & " Encrypt(KeyEnde(),'admin') AS Password," '4 Password mySQL = mySQL & " Encrypt(KeyEnde(),'admin') AS Fname," '5 FullName mySQL = mySQL & " Encrypt(KeyEnde(),'admin') AS lvlQ," '6 Questions mySQL = mySQL & " Encrypt(KeyEnde(),'admin') AS lvlAnsr," '7 Answers mySQL = mySQL & " Encrypt(KeyEnde(),'admin@admin.com') AS Umail;" '8 EmailUsers 'Debug.Print mySQL DoCmd.SetWarnings False DoCmd.RunSQL mySQL DoCmd.SetWarnings True MsgBox "تم إنشاء المستخدم المسئول عن قاعدة البيانات" & vbCrLf & _ "اسم المستخدم هو : (admin)" & vbCrLf & _ "كلمة المرور هى : (admin)", _ vbOKOnly, _ "تبيـــه هــــام" End Sub جعفر

وعليكم السلام 🙂 ايه يا شيخ ، مالو جعفر 🙂 جعفر

حسنا، تفضل كتبت لك مثال. SEMO_Pa3x.rar

وعليكم السلام اخوي علي 🙂 @علي هندسة على حدث بعد التحديث ، اكتب احد هذه الاسطر لعرض قيمة العمود الاول me.text6 = me.list1.column(0) لعرض قيمة العمود الثاني me.text6 = me.list1.column(1) لعرض قيمة العمود الثالث me.text6 = me.list1.column(2) جعفر

إخوتي الأحبه في المنتدى تحية طيبة وبعد : إليكم بعض الكتب الجميله التي حصلت عليها أثناء تجوالي في الانترنت فقصدت رفعا لكم لتعم الفائدة ( ولا ننسى الشكر الكبير لمن قام بإعدادها ) وسيكون كل منها في مشاركه ( حفاظا على قواعد هذا المنتدى الرائع ) وتقبلوا مني كل الحب والتقدير أخوكم وائل سلامي VB_design_user_page.rar

السلام عليكم ورحمة الله وبركاته اخواني/اخواتي رأيت الكثير من الاسئلة حول تصدير بيانات الاكسس الى الاكسل ، وكل سؤال يختلف عن غيره بطريقة او اخرى ، فحبيت ان اضع بين يديكم برنامج اشتغلت عليه ، واتمنى من الله سبحانه وتعالى انه يقدر يخدم الكل البرنامج سهل الاستعمال ، فكل المطلوب في الواجهة ، ولا تحتاج الذهاب للكود اولا: الواجهة: 1. تختار من مربع السرد ، جدول او استعلام ، 2. على اساس الاختيار في رقم 1 ، ستظهر لك قائمة باسماء الجداول او الاستعلامات في برنامجك ، 3. اسم ملف الاكسل المراد حفظه به ، ومجلد التخزين ، فتلقائيا يكون في نفس مجلد البرنامج ، 4. هنا تكتب اسم صفحة الاكسل التي تريدها (انظر الصورة في الاسفل) ** تستطيع ان تصدر اي عدد من الصفحات الى اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم اسم صفحة جديدة) ، ** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 5. تستطيع بدء تصدير البيانات الى اي خانة في اكسل مثل A2 او C5 او اي خانة اخرى ، ** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 6. تستطيع ان تحفظ ملف الاكسل بالصيغ التاليه: "xls" او "xlsx" او "xlsm" او "xlsb" او "csv" او "txt" ، والصيغتين الاوليتين هما الاهم ، والصيغتين الاخيرتين بهم قيود معينة ، 7. تستطيع ان تختار المجلد الذي تريده ، مع كتابة اسم الملف المناسب لك (انظر الرقم 3 اعلاه) ، 8. تستطيع تصدير البيانات مع اسماء الحقول (في الاكسس) ، وتستطيع تصدير البيانات مع عناوين/مسميات الحقول (في الاكسس) ، نلاحظ اعلاه ، بان الجدول elemnts لا يحتوي على عناوين/مسميات الحقول بالعربي ، بينما الجدول elemnts2 يحتوي عليها ، وتستطيع تصدير البيانات فقط بدون اسماء الحقول ، 9. تستطيع ان تصدر البيانات الى ملف اكسل فيه بيانات سابقة ، وهنا تستطيع الاستفادة من الارقام 4 و 5 اعلاه ، او ان تحذف ملف الاكسل الموجود حاليا بنفس الاسم ، وتبدأ تصدير ملف جديد ، 10. بعد تصدير البيانات الى اكسل ، هل تريد إحتواء وتوسيع كل الاعمدة فيه ، حتى ترى كل البيانات بدون الحاجة الى توسيع كل عمود على حدة ، او لا تريد توسيع الاعمدة. 11. الزر الذي يقوم بعملية تصدير البيانات الى اكسل ، حسب الاختيارات اعلاه ، مع ملاحظة: يجب تعبئة الحقول داخل المربعات الحمراء ، اما بقية الحقول فإختيارية ، 12و 13. لجعل هذا البرنامج يعمل على اي من برامجكم الحاليه ، يجب تصدير النموذج frm_Export_to_Excel و الوحدة النمطية fFolder_Dialog اليها. طبعا هناك أفضلية تصدير البيانات من الاستعلام ، حيث تستطيع ان تتحطم بالبيانات المطلوب تصديرها. ملاحظات؟ اخطاء/عطل؟ إضافات؟ انا في الخدمة ، قدر المستطاع جعفر -------------------------------------------------------- الموضوع منقول من منتدى شقيق وتم نقله كماهو وذلك للاهميه الرجاء الدعاء للاستاذ : جعفر بارك الله فيه Export_to_Excel تصدير البيانات الى اكسيل.zip

السلام عليكم ورحمة الله تعالى وبركاته واجهت مشكلة كبيرة عند حساب الايام بين تاريخين تاريخ البدء وتاريخ الانتهاء على سبيل المثال وكان ما يهمنى هو عدم احتساب الجمعة والسبت ضمن هذين التاريخين على اعتبار انهم عطلة اسبوعية ثم خطر ببالى كذلك عدم احتساب الاعياد والمناسبات الرسمية بحثت وظللت ابحث وسهرت ولم انم منذ الأمس بسبب هذه المعضلة ولكن لم اجد اى حل فى اى منتدى حتى تفضل على الاستاذ ابو خليل جزاه الله عنا كل الخير ان شاء الله ولكن بصراحة هذا الحل لم يرضى طموحى فذهبت للبحث مرة اخرىووجدت فى موقع مايكروسوفت هذا الحل الذى أحدث خطأ فنجم عنه خلل فى الحسابات وحاولت فهم الية العمل وظللت اجرب واحاول وأخيرا بفضل الله سبحانه وتعالى الذى هدانا لهذا وما كنا لنهتدى لولا ان هدانا الله عزوجل توصلت لحل وقمت بتجربته مرار وتكرارا وبعد أن تأكدت من صحة ودقة معالجة البيانات قررت ان ارفعه على هذا الصرح الشامخ ملاحظة يمكن الاستفاده من هذا المرفق فى الاتى 1- حساب ايام العمل الفعليه بدون ايام الاجازات الرسمية والعطلة الاسبوعية --- العطلة الأسبوعية بالنسبه لى انا كانت الجمعهة والسبت ممكن تعديلها ☺ 2- حساب الاجازة التى تخصم من الرصيد فيستثنى منها ايام الاجازات الرسمية والعطل الاسبوعية كذلك للعلم تعدل بيانات الاجازات الرسمية والتواريخ من خلال القاعدة طبقا لكل دولة حتى لا يتم احتساب هذه التواريخ أحبكم فى الله وانتظر ردكم بعد التجربة ActualDaysCalcult.rar

لاطالما قيل أنه لا يمكن حساب الميراث الشرعى بالأكسل لعة أسباب منها . 1- لكثرة الأحتمالات وتنوعها 2- عدم التعامل وأظهار النتائج بالكسور وتصحيح المسائل بأعداد صحيحة (على الطريقة الشرعية) 3-نتائج القسمة على صفر ولكن الأن أصبح ممكن حساب حصص الورثة والتركة وتمثيل ذلك بيانيا وأجراء كل العمليات الحسابية المعقدة فى ثوانى اليكم هذا البرنامج الرائع فى حساب الميراث الشرعى بدقة متناهية . الأكسل بأستعمال خاصية الأنتقال الهايبر لينك.zip