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

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

السلام عليكم شكرا اخوي علاء على المشاركة أخي حسين ، اخي علاء اعطى نفس الفكرة ، ولكن بإختلاف مسميات الحقول عملت نفس الاستعلام Q_111 ، ولكن بالحقل الصحيح ، والفرق بين كود Dlookup السابق والجديد ، هو حقل رقم الفاتورة الآن عبارة عن نص. جعفر 922.1.PROGRMS_STORY.accdb.zip

رائع دائماً اخي ين علية لكن عندي ملاجظة بسيطة التنسيق الشرطي ليته يكون يهاتين المعادلتين (بدل ان تقوم بادراح كل النطاقات) المعادلة الاولى (للون الاحمر) =AND(MOD(ROWS($A$1:$A5)-5,4)<2,$C5<>"") المعادلة الثانية (للون الازرق) =AND(MOD(ROWS($A$1:$A5)-5,4)>=2,$C5<>"") و هكذا تتلون النطاقات الضرورية فقط الملف مرفق Exam_Bis_salim.rar

بالتوفيق اما الملف احتفظ به من جانب الاحتياط

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

بارك الله فيك علي النشر الطيب

ربنا يعطيك الصحه والعافيه استاذنا الفاضل

استاذي الفاضل alaa aboul-ela الف شكر علي اهتمامك طبعا هذا هذا هو المطلوب بس لو تكرمت لا اريد حسابات داخل الجدول لاني استخدم اوفيس 2007 وحقل محسوب لايوجد داخل 2007 ان امكن ولك مني جزيل الشكر

تفضل الكود المطلوب Private Sub Workbook_Open() Application.EnableCancelKey = xlDisabled Application.Visible = False Workbooks.Application.Visible = True ActiveWindow.DisplayHeadings = False Application.DisplayFormulaBar = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" UserForm1.Show If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "4282084B" Then With ThisWorkbook .Save .ChangeFileAccess Mode:=xlReadOnly Kill .FullName .Close savechanges:=False End With End If Sheet83.Select End sub

السلام عليكم برجاء تنزيل الملف ربما يكون هو المطلوب قم بتطبيق نفس الفكرة على ملفك لان ملفك لا يوجد به خانة القيمة لكل سجل ( الكمية * السعر ) ولا اعلم اذا كنت ستقوم باضافة الربحية للصنف من عدمه لذلك قمت بعمل مثال للبحث عن مبلغ فاتورة ومعرفة مبلغها عند كتابة رقم الفاتورة يظهر لك مبلغها في حالة كتابة رقم فاتورة خطأ او لم يتم تسجيلها بعد يعطيك رسالة " رقم الفاتورة الذي ادخلته خطأ " تحياتي ... totalbill.rar

الحمدلله ان تعليمي كان مفيد جعفر

وعليكم السلام ورحمة الله وبركاتة نعم ممكن ذلك بعدة طرق بقى وضع المثال لوضع الحل المناسب ::بالتوفق:: اذا كنت ترى ان هذه المشاركة مفدة فلا تنسى التقم

تم معالجة الامر Book_salim.xls

السلام عليكم اخوانى وجدت هذه معلومات جيدة فاحببت ان تكون ضمن هذه المكتبة لتعم الفائدة . الطريقة الصحيحة لاستخدام الشروط : ان الإستعلامات حساسة جدا لقبول اي صيغة وعند وضع الدوال في تعبير يجب التقيد بشروط معينه مثلا اذا كان الحقل رقمي Numerical ( اي انه في الجدول نوعه رقم ) فيجب ان يوضع في إستعلام بين علامتي تنصيص بهذه الطريقة "[iD]" مثل "[ID]<=" & [ID] لاحظ علامتي التنصيص فهي تخص فقط الحقل الأول وبعدها نضع حرف & لكي نسند القيمة سواء المساواه او اصغر من او اكبر من الى نفس الحقل سواء في الجدول او النموذج مثال لأي دالة من دوال المجال التجميعي DLookup("[FieldName]"; "TableName"; "[FieldName] =" & [FieldName]) لاحظ علامتي التنصيص المزدوجه " " للحقل الرقمي حيث تم وضع اول علامة تنصيص للحقل الرقمي الأول ثم علامة = ثم علامة تنصيص مزدوجه " ثم & ثم الحقل الرقمي الثاني حسنا ماذا لو كان الحقل نصي Strings ( اي ان الحقل في الجدول نوعه نص ) فيجب ان يوضع في الإستعلام بين ثلاث علامات تنصيص بهذه الطريقة "'[NAME]"' مثل "[NAME]<=' & [NAME] & ' " لاحظ كيف اختلف التعبير عن الحقل الرقمي في الكود العلوي حيث تم اضافة عدد اثنين & بعد الفاصلة العلوية الثالثة لحقل الإسم الأول حيث يجب وضع حقل الإسم الثاني بين علامتي تنصيص مفرده ' ' اما علامتي التنصيص المزدوجة " " فهي خاصة لحقل الإسم الأول مثال لأي دالة من دوال المجال التجميعي DLookup("[FieldName]"; "TableName"; "[FieldName] =' " & [FieldName] & " ' ") لاحظ في الكود ترتيب علامات التنصيص سواء المزدوجة او المفرده فأول علامة تنصيص مزدوجه لحقل الإسم الأول يجب ان يغلق بعلامة تنصيص مفرده ' بعد علامة = فهذه اول ثلاث علامات تنصيص ' " للحقل الأول ثم نضع علامة تنصيص مزدوجه " للحقل الثاني لأنه نصي ثم نضع & ثم نضع حقل الإسم الثاني ثم نضع & ثم نغلق علامة التنصيص المزدوجه " للحقل الثاني ثم نغلق علامة التنصيص المفرده ' لحقل الإسم الأول ثم نغلق كامل الجملة بعلامة تنصيص مزدوجة " وهي خاصة بحقل الإسم الأول حسنا ماذا لو كان الحقل من نوع تاريخ DATE ( يعني في الجدول نوعه تاريخ / وقت ) فيجب ان يوضع بين بين علامتي شبكة #[DATE]# مثل "[DATE]<=#" & [DATE] & #" مثال لأي دالة من دوال المجال التجميعي DLookup("[FieldName]", "TableName", "[Date]=#" & [Date] & "#") لاحظ كيف تم استخدام علامات التنصيص المزدوجه " وعلامتي الشبكه # حسنا ماذا لواردنا تجميع كل هذه المعايير حقل رقمي Numerical و حقل نصي Strings و حقل تاريخ Date في دالة واحده فيجب ان نكون حريصين جدا في وضع علامات التنصيص لكل حقل حتى لا نحصل على اخطاء مثال لأي دالة من دوال المجال التجميعي DLookup("[FieldName]", "TableName", "[FieldNumerical] = " & [FieldNumerical] & " AND [FieldString] = '" & [FieldString] & "'" & " AND [FieldDate] = #" & [FieldDate]& "#" ) اتمنى ان اكون قد القيت بعض الضوء على استخدام هذه المعايير واستخدامها المصدر للاستاذة الجليلة زهره