ابوخليل

وهذه ياخوي حسين طريقتي في تحقيق الفكرة Database1.rar

يا سلام .. ما فيه اجمل من كذا وانا جالس اقدم محاضرات عن النماذج وتحديثها شكرا لك .. لن نستغني عن ابداعاتك

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

عليكم السلام في الاستعلام استبدل last بــــــ first ايضا يوجد طرق اخرى لتحقيق طلبك .. تختلف عن عرضك

ان تبدأ بعمل مشروعك من جديد افضل الف مرة من تطويره تفضل هذا طلبك : update us prices4.rar

اول مرة يمر علي مثل هذا البرنامج الغريب .. الحقول بحروف عربية والتسمية التوضيحية بحروف انجليزية وكان المفروض العكس . على كل حال ملاحظتك صحيحة .. تم تعديل اسم حقل الشرط ان شاء الله كله تمام الآن update us prices3.rar

هو صاحب الحاجة .. فلماذا التعب انظر كم مرة طلبنا هذا الشيء .. بقي فقط نقدم عريضة استعطاف واستجداء ☹️

ما الحكمة ؟؟؟ الاخوة الخبراء الموجودين فيهم الخير والبركة لكنك يابنتي ما جاوبتني على تساؤلي : هنا مدرسة الكل يستفيد .. ونرحب باي فكرة او معلومة تكون جديدة ومفيدة لطالب العلم اي موضوع يطرح سيستفيد منه كل من يمر من هنا لهذا نحرص ونوصي دوما باختيار العنوان المناسب الذي يصف الموضوع

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

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

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

مشاركة مع احبتي يوجد بعض المعوقات لا تتضح الا بعد تصفح المثال تفضلي high or low.rar

استخدم >< اكبر من واصغر من مثلا البطاقات الفعالة >Date() البطاقات المنتهية <Date()

آمين وإياكم

كذا انت تقوم برحلة تنزل من باص وتركب باص ههههههههه الافضل هو ان تبحث عن سبب عدم تنفيذ استعلام التحديث

تفضل مع لمسة ان لم يجد شيئا بدلا من الصفر عبارة : لا يوجد text1=NZ(DLookUp("[UserName]","[tblUser]","[UserName] ='"& [Forms]![frmMain]![UserName] &"'"),"لا يوجد") 223.rar

استخدم NZ مع الدالة من اجل ترجع صفر اذا كان الحقل فارغ هكذا NZ(DLookUp("[UserName]";"[tblUser]";"[UserName] ='"& [Forms]![frmMain]![UserName] &"'"),0)

تفضل .. تم التعديل مشكلتك في خصائص بعض حقول الجدول حقل الاسم وحقل الادارة لا يوجد لها فهرس برنامج التكليفات2.rar

الايقونة هذي تمثل الاستاذ موسى وهو يزعق للاستاذ ناقل ... ههههه وانا لا اؤيد هذه المنافسة ولا احكم فيها

مع ان حاجتي في الوقت الحاضر تقتصر على ORDER BY ومن دون شرح الفروقات فقد وفيت وكفيت فعملك الاخير هذا لا ينتطح فيه كبشان FROM WHERE GROUP BY HAVING ORDER BY; والاستاذ موسى يفصل على قدر الحاجة يعني ما فيه اسراف

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

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

لم اعمل شيئا فقط ترتيب ولكن المهم اني بدأت النزول في سلم الآية الكريمة : "" وَمِنكُم مَّن يُرَدُّ إِلَىٰ أَرْذَلِ الْعُمُرِ لِكَيْ لَا يَعْلَمَ بَعْدَ عِلْمٍ شَيْئًا ""

تفضل استيراد بيانات اكسل2.rar

تم الوصول الى الخلل السبب وجود فرز في هذه الاستعلامات order by وكان الكود يضيف هذه الزيادة الى الاسم ثم عمدت الى الاستفادة من الدالتين كليهما العلامة المنقوطة كانت تظهر في دالة الاستاذ foksh فعملت خلطة خاصة بين الكودين وخرجت بهذه النتيجة المحكمة : Public Function GetTableNameFromComboBox(cbo As ComboBox) As String On Error Resume Next Dim strTableName As String Dim ctl As Control Set ctl = cbo If Not ctl.RowSourceType = "" And Not ctl.RowSource Like "SELECT*" Then Exit Function End If If ctl.RowSourceType = "Table/Query" Then strTableName = Mid(ctl.RowSource, InStr(ctl.RowSource, "FROM ") + 5) ' يتم استخراج الجزء بعد الكلمة "FROM" strTableName = Left(strTableName, InStr(strTableName, ";") - 1) ' يتم استخراج الجزء قبل الفاصلة المنقوطة ElseIf ctl.RowSourceType = "Value List" Then strTableName = "Value List" End If ' استخرج اسم الجدول من الجملة SQL GetTableNameFromComboBox = strTableName End Function الفضل لله ثم لكم احبتي والاستدعاء : GetTableNameFromComboBox(ComboBoxName)