ابوخليل

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

السلام عليكم تم تحويل الاستعلام الداخلي الى خارجي حتى تتمكن من اجراء عمليات التحديث عليه تم تحقيق طلبك .. تحديث القيم حسب الفاتورة 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)

اكتشفت ان السبب من مربعات التحرير نفسها ... بعضها يعطي نتيجة والبعض الآخر يعطي قيمة الاستعلام ما زلت احاول اكتشاف الفرق ..

مررت الدالة في عملية دوران على ثلاث حقول .. والغريب ان النتيجة 1 من 3 اي انها اعطت قيمة صحيحة في واحدة وباقي القيم تعطي النتيجة جملة sql مازلت احاول .. ان لم اصل الى نتيجة سوف اضع المثال المناسب

تأكدت (اما) الأولى ... أسأل الله حسن الختام شكرا احبتي لم اتوقع النتيجة بهذه السرعة .. فجزاكم الله خير الجزاء بالنسبة للحلين فهما يشتركان في فكرة وطريقة استخراج واحدة آمل ان تعفوني من اختيار افضل اجابة ... فكل واحدة فريدة بذاتها ، والاختيار يحدده المكان الذي تستخدم فيه كود الاستاذ موسى جاء بالمختصر المفيد وكود الاستاذ foksh اخذ بالاحتياطات المحتملة اكرر شكري لكم .. بارك الله فيكم

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

اعتمد على تاريخ الانترنت

هات الجدول

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