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

الاخوه الافاضل تحيه طيبه وبعد اريد كود يقوم باستخراج اسماء معينه بناء على معطيات معينه كما فى المرفق كود استخراج اسماء بناء على معطيات.rar

الأخ الفاضل الأستاذ/ حمادة هذا العمل أكثر من رائع كعادتك دائماً تبهرنا بهذه الأعمال القيمة جزاك الله كل خير .

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

اليك المرفق بعد التعديل marcelo salas.rar

أخى الحبيب / حمادة عمر مليون تحية على هذا التميز والابداع أحييك أجمل وأرق تحية

وأنا أيضا تم حل مشكلة ادراج الاكواد عندى For i = 1 To 1000000 MsgBox "ألف شكر لإدارة المنتدى" Next i

السلام عليكم الاخ الكريم / محمود المصرى اليك اخي الملف الذي تريده بشاشة رئيسية وزر طباعة للحالة الوظيفية مع طلبك بتعديل الترتيب وتحت امرك في اي تعديلات او طلبات أخري جزاك الله خيرا شاشة استعلام2.rar

لدينا السعر الإجمالي = الكمية * السعر الإفرادي ونريد احستاب قيمة الفاتورة ككل وإسنادها إلى حقل order_value لم تنجح محاولاتي العديدة فلكل طريقة خطأ وقد أدرجت أحدها يرجى المساعدة والشكر سلفا db.rar

لك منا النصح و الارشاد و القرار يعود لك بالتوفيق

السلام عليكم أخي العزيز عدل كود زر الإضافة كالتالي Private Sub Comd1_Click() If txt1.Text = "" Or txt2.Text = "" Then MsgBox "يرجى ادخال كود الفرع ", vbInformation + vbMsgBoxRight, "بيانات غير كافية": Exit Sub Sheets("BrCode").Visible = True With Sheets("BrCode") LastR = .[A10000].End(xlUp).Row For Each cl In Range("A2:A" & LastR) If cl = txt1.Text Then MsgBox "هذا الكود مستخدم للفرع " & cl.Offset(0, 1): Exit Sub Next cl For Each cl In Range("B2:B" & LastR) If cl = txt2.Text Then MsgBox "هذا الفرع تم إدخاله من قبل تحت الكود " & cl.Offset(0, -1): Exit Sub Next cl .Cells(LastR + 1, 1) = txt1.Value .Cells(LastR + 1, 2) = txt2.Value .Cells(LastR + 1, 3) = txt3.Value End With MsgBox "تمت الاضافة بنجاح", vbCritical + vbMsgBoxRight, "تنبيه" txt1.Text = "" txt2.Text = "" txt3.Text = "" End Sub أو تفضل المرفق إن شاء الله يكون هو ماتريد فورم 11_2.rar

أستاذنا الفاضل / مجدى يونس جزاك الله كل خير على هذا المرور العطر والكلمات الطيبة

ابداع ما بعده ابداع التنافس من اجل الاخرين صفة جميلة من اعضاء المنتدى

تفضل أخى ابراهيم استخراج الاسماء الجديده4.rar

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

سألت فاُجِبتَ لسؤالك ... ولك ما ترى ... ...........

بعد أن فرغنا من تصميم الجداول ننتقل الآن الى بناء العلاقات بين هذه الجداول و من أحب الاستزاده أكثر يمكنه مراجعة الدرس التالي بداية العلاقات بين الجداول و لتطبيق هذا الشرح , حمل الملف المرفق و فيه بشكل رئيسي جدولين هما : المؤلفين Authores - الكتب Books في جدول الكتب لدينا حقل رقم المؤلف و يأخذ قيمته من رقم المؤلف في جدول المؤلفين جدول المؤلفين يتكون من ثلاثة سجلات , و جدول الكتب يتكون من خمسه سندع هذين الجدولين بدون أي علاقة بينهما , و ننشأ الاستعلام 1 نجد نتيجة الاستعلام لدينا 15 سجلا , أي 3 * 15 بمعنى أن كل سجل من جدول الكتب تم تكراره بحسب عدد سجلات المؤلفين , و ذلك لأنه لاتوجد علاقة بين الجدولين الآن لنحافظ على هذين الجدولين و ننسخهما أربعة مرات في كل مره تختلف شكل العلاقه و ذلك للتوضيح فقط . الحاله الثانيه الجدولين 1Authores - 1Books و سننشى بينهما علاقه , طبعا العلاقه المفروض أن تكون بين حقلين متطابقين في التعريف ( نوع البيانات – رقم الى رقم – نص الى نص و هكذا ) , ستكون العلاقه بين رقم المؤلف في كلا الحقلين ( البعض يخطى و يجعل العلاقه بين رقم المؤلف و اسم المؤلف ! ) نعمل الاستعلام 2 بين الجدولين , نجده يتألف من خمسة سجلات فقط , و ذلك بسبب انشاء علاقه بين الجدولين منعت تكرار السجلات بينهما . الآن هذه العلاقه غير مقيده , بمعنى أنه لو فتحنا جدول المؤلفين 1Authores وعدلنا قيمة حقل رقم المؤلف في السجل الثالث و جعلنا قيمتها 4 بدلا من 3 , يقبل التعديل , و لكن هذا التعديل لن ينعكس على جدول الكتب 1Books , و لبيان ذلك نفتح ذلك الجدول و نجد أن حقل رقم المؤلف في السجل الثالث أصبح فارغا و هو الذي كان يحوي سابقا القيمة 3 و لو عدنا الآن الى جدول المؤلفين و أعدنا القيمه من 4 الى 3 كما كانت , نجد تعود القيمه الى جدول الكتب . الآن لنحاول حذف سجل المؤلف رقم 3 بكامله من جدول المؤلفين , نجد أيضا أن السجل الثالث في جدول الكتب اختفت فيه قيمة حقل رقم المؤلف . الآن لو أردنا عمل قيد على العلاقه بين الجدولين بحيث تمنع التعديل أو الحذف في جدول المؤلفين حتى لاتنعكس على جدول الكتب , نلجأ الى النوع الثاني من العلاقات بحيث لو جربنا حذف أي سجل من سجلات جدول المؤلفين أو تعديل رقمه لن يقبل هذا التعديل طالما وجدت سجلات مرتبطه به في جدول الكتب . لو كنا نريد السماح بتعديل رقم المؤلف بشرط أن ينعكس هذا التعديل تلقائيا على السجلات التابعه له في جدول الكتب نلجأ الى النوع الثالث من العلاقات الآن لنحاول تغيير رقم المؤلف في جدول المؤلفين 3Authores من القيمه 3 الى 4 نجد أن السجل الثالث في جدول الكتب تغيرت قيمته تلقائيا الى القيمه الجديده 4 لكن لوأردنا حذف المؤلف بكامله من جدول المؤلفين لن يقبل الحذف بسب منع الحذف في العلاقه لذلك نذهب الى تصميم العلاقه , الجدول 4Authores و نضع اشارة صح على السماح بحذف السجلات المرتبطه و نحفظ التعديل ثم نحاول حذف السجل 3 بكامله من جدول المؤلفين , نجد أنه تم حذف السجل الثالث من جدول الكتب الذي كان يعود لذلك المؤلف . RelationShip.rar