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

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

السلام عليكم و رحمة الله تعالى و بركاته. تفضل أخي. الترقيم التلقائي.rar

برنامج عملاء وموردين مفتوح المصدر مضاف نسخة بالتاريخ الهجري وأخري بالميلادي وبيانات الاستخدام كالتالي : البرنامج يعمل علي Office 2010 فما فوق اسم المستخدم : admin كلمة المرور : admin اسم المستخدم لتفعيل الشفت : ahmed كلمة السر : Ah0562982701 كلمة سر أكواد VBA فيجوال بيسك : ah0562982701 كلمة السر لتفريغ البيانات : 562982701 رابط البرنامج : http://www.mediafire.com/file/4atr6oxq1ptqm7q/إنجاز+نسخة+ميلادي.accdb http://www.mediafire.com/file/l2f334fkuyy7y5u/إنجاز+نسخة+هجري.accdb البرنامج مجاني و لا أريد الا دعوة صادقة لوجه الله تبارك تعالي بأن يعفر لوالدي ويديم الصحة والعافية علي والدتي وفي انتظار ارائكم ،،

السلام عليكم اطلب من المنتدى ان تشرح دالة index مع الجزيل الشكر

سلام شباب لا يا سيدي ، مو نفس الشئ!! اذا اردت ان تضع معادلاتك ، فضعها في الاستعلام (لسرعة عمل برنامجك) ، ولا تضعها في الحدث في التقرير (تابع معي الموضوع لوسمحت) . في برنامجك المرفق ، في التقرير ، عندك كود في حدث التفصيل: . ولما تفتح التقرير ، النتيجة هكذا: . الآن اوضح لك الشئ اللي انت لا تراه ، واللي يبطئ سرعة برنامجك: نضع في نفس التقرير هذا الكود ، وعمله عداد فقط ، يخبرنا كم مرة يقوم التقرير بعمل المعادلات الحسابية . والنتيجة . يعني الكود يقوم بعمل المعادلات الحسابية 18 مرة (بعدد السجلات الظاهرة في صفحة التقرير) ، ولما تنتقل الى الصفحة التالية ، فانه يقوم بنفس الشئ!! ها ، قلت لك: لا يا سيدي ، مو نفس الشئ!! جعفر

وعليكم السلام يبدو انه في التباس وتداخل بين: 1. نوع الحقل = ترقيم تلقائي و 2. حقل نص (او رقمي) = فيه ترقيم تلقائي بالنسبة الى 1. نوع الحقل = ترقيم تلقائي: فانا لا انصح ان يتم اللعب بهذا الحقل ، فالاكسس يحتاج الى هذا الحقل لفهرسة الجدول لسرعة جلب وفرز بياناته ، لهذا السبب ، فوجود هذا الحقل إجباري لجميع الجداول في برامجي (بالاضافة الى حقل التاريخ التلقائي) ، فالحقل هذا لإستعمال الاكسس ، وليس لبرمجة المبرمج (نعم يستطيع الاعتماد عليه واستعماله ، ولكن لا يعبث به برمجيا) ، 2. حقل نص (او رقمي) = فيه ترقيم تلقائي وهذا هو الحقل المقصود للكثير من المبرمجين ، وبرمجته تعتمد على الحاجة ، ومنها ما طلبت انت ، واليك رابط به مثال شامل لهذه العملية ، من اخونا العود أبوخليل: جعفر

اذهب الى محرر اكواد فيجوال Tools Refrences ستخرج لك نافذة تحتوي على المكتبات قارن بينها وبين المكتبات في المثال ستجد مكتبتك المفقودة ضمن القائمة ضع عليها علامة صح ثم موافق

حيا الله اخوي أبوخليل ، واخوي صالح جعفر

السلام عليكم يوجد لديك نقص في المكتبات قارن بين مكتبات المثال وبين المكتبات في برنامجك لتتعرف على النقص

وعليكم السلام البرنامج الذي ارفقته انت ، ID ليس AutoNumber ، وانما هو نص ، وكان في اعتقادي ان المرفق هو جزء من برنامج اكبر ، بحيث انه عندك نموذج رئيسي للأب ، ونموذج فرعي للأبناء ، والربط بين النموذجين بالحقل FatherNum ، وبهذه الحالة ، كل شئ سيتم ربطه تلقائيا بين الجدولين. جعفر

إذا كان حقل رقم الملف في جدول الآباء نوع بياناته ترقيم تلقائي فيجب أن يكون نوع الحقل الذي يقابله في جدول الأبناء نوعه رقم و ليس ترقيم تلقائي

السلام عليكم ورحمة الله المعادلة كما نلاحظ تحتوي على شرط يتعلق بالخلية B2 1- اذا كانت فارغة الجواب :عدد العناصر غير الفارغة في النطاق D4:D110 2-اذا لم تكن فارغة الجواب :عدد العناصر التي تحتوي على B2 في النطاق E4:E110

ما شاء الله عليك أستاذ جعفر إذا حضر الماء غاب التيمم فكرة ممتازة جدا جدا و خاصة فكرة إستعمال الدالة dlookup التي أشرت إليها جزاك الله عنا كل خير أستاذي الكريم جعفر

الاخوة الزملاء اليكم الدرس الثانى كيفية عمل زر اضافة مع ادخال الاكواد الفيديو الكود المستحدم فى الشرح Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("بيانات") iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 1).Value = Me.TextBox1.Value ws.Cells(iRow, 2).Value = Me.TextBox2.Value ws.Cells(iRow, 3).Value = Me.TextBox3.Value ws.Cells(iRow, 4).Value = Me.TextBox4.Value ws.Cells(iRow, 5).Value = Me.TextBox5.Value ws.Cells(iRow, 6).Value = Me.TextBox6.Value ws.Cells(iRow, 7).Value = Me.TextBox7.Value ws.Cells(iRow, 8).Value = Me.TextBox8.Value ws.Cells(iRow, 9).Value = Me.TextBox9.Value ws.Cells(iRow, 10).Value = Me.TextBox10.Value ws.Cells(iRow, 11).Value = Me.TextBox11.Value Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.TextBox7.Value = "" Me.TextBox8.Value = "" Me.TextBox9.Value = "" Me.TextBox10.Value = "" Me.TextBox11.Value = "" Me.TextBox1.SetFocus

الشرح المستفيض لكود البحث المتقدم باستخدام المصفوفات للأستاذ الكبير ياسر العربي Search Using Arrays http://adf.ly/1efc1m