ابوخليل

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

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

هات الجدول

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

ولا اروع ولا اجمل .. ويعمل بشكل صحيح ودقيق وعلى طريقتك حبيبنا فيه حاجة صغننة .. سأحاول ان استطعت ان لم تسبقني وهي تصور ان النموذج يشتمل على 10 مربعات او اكثر او اقل .. وهنا يلزمني كتابة عشرة اسطر فافكر اعمل متغير ودوران يأخذ اسماء مربعات التحرير ... وفي الوقت نفسه يأخذ قيمة مربع التحرير وقيمة العمود الثاني من هذا السطر Set rsCombo = db.OpenRecordset(targetComboBox.RowSource, dbOpenSnapshot) اخي الغالي ابو جودي انت في الف حل فلا تشغل نفسك .. يكفيني النقطة التي اوصلتني اليها ، جزاؤك واجرك على الله

انت طول الليل جالس شغال .. وانا تركتك ورحت انام .. فاعذرني حكم السن .. لا يمكنني مجاراة الشباب ما شاء الله لا قوة الا بالله .. اختصرت علي الكثير جزاك الله خيرا -------------------------------------------------------------------------------------------------- الآن دعني اخبرك الحكاية كما يقولون من طق طق الى .... القيمة الرقمية في الجدول نأخذها من ذاكرة اكسس ... كيف ؟ اشرح .. هات زيادة في التفصيل يوجد في المشروع روتين يسجل اي تغيير يحدث على الحقول داخل النماذج الحقول النصية لا اشكال فيها المشكلة فقط في مربعات التحرير فجميع قيم مربعات التحرير في المشروع رقمية فالروتين قبل تحديث النموذج يأخذ قيمة مربعات التحرير السابقة وقيمتها الحالية قيمته الحالية لا اشكال فيها حيث يمكنني التعامل مع العنصر الحالي واستخراج قيمة العمود الثاني النصية ولكن المشكلة في القيمة السابقة فهي عبارة عن قيمة فقط في ذاكرة أكس وليس لها اي ارتباط فأنا الآن اريد ترجمة الرقم الى قيمته النصية بناء على (النموذج + مربع التحرير الخاص به) هذه كل الحكاية ----------------------------------------------------------------------------------------------------------------------- طيب نأتي للمفيد انت وصلت الى مرحلة متقدمة جدا لا يمكن الوصول اليها بسهولة .. وبقي تكة .. لعلها لا تصعب عليك انا عدلت على الجدول في المثال كما هو موجود عندي في المشروع .. حين تطلع عليه ستفهم المطلوب المطلوب تحديث الحقل بناء على اسم النموذج واسم الحقل الموجودات ضمن السجل طبعا اضفت نموذج آخر ومربعات تحرير اخرى اعتقد المعيار في الروتين سيكون بحاجة الى اسم النموذج ، حيث ان الكود سيتم تشغيله من النموذج النشط ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, DatabaseUp5.rar

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

نعم هو كذا .. تسلم الأنامل التي سطرت هذا الابداع الف شكر استاذنا .. هذا الكود هو حجر الاساس .. سوف اطوره ليشمل جميع مربعات التحرير داخل النموذج لن استغني عن مساعدتك ولمساتك ان احتجت لذلك .

شكرا اخي الغالي ابو جودي الكود الأول قربت من الحل اعتقد المسألة بحاجة الى ما يشبه combo.Recordset كجملة استعلام نتعامل معها ولكن لا يتوفر الا combo.RowSurce لا اريد جدول tblSp يدخل في العملية صحيح ان الجدول هو مصدر البيانات ولكن اريد اتعامل مع هذه البيانات من خلال النموذج ومربع التحرير وقد ذكرت السبب هو ان السجل في الجدول الاصلي الهدف لا يمكن تحديثه بطريقة صحيحة الا بدلالة النموذج ومربع التحرير بمعنى اوضح : اريد استخراج مصدر بيانات مربع التحرير الذي كما هو معلوم الاستعلام الداخلي

السلام عليكم ورحمة الله وبركاته في المرفق ادناه جدول يحتوي على حقل واحد والقيم الموجودة فيه عبارة عن ارقام ونموذج يشتمل على مربع تحرير قيمته رقمية والعمود الثاني نص المطلوب تحديث الحقول في الجدول بمعرفة القيمة الرقمية بينهما الى القيمة النصية الموجودة في مربع التحرير والتي تمثل العمود الثاني اي الرقم 1 في الجدول يتحدث الى كلمة "الأبيض" والرقم 2 الى الأزرق وهكذا ..... حسب الشروط التالية : 1- يكون التحديث بواسطة مصدر بيانات مربع التحرير وهو الاستعلام الفرعي داخله وليس من الجدول tblSp مباشرة .. فالاخيرة هذه اعرفها ولا تخدمني 2- يتم التحديث على الجميع جملة مرة واحدة .. بمعنى اني لا اريد ان اختار القيمة من مربع التحرير ثم اقوم بالتحديث .. ايضا هذه اعرفها ولا تخدمني يمكن ان يتساءل احد ولماذا هذا التكلف .. والجواب ان المعيار الموجود في الجدول عندي هو أسماء نماذج وأسماء مربعات تحرير ولا يمكن التحديث الا من خلالها شاكرا مقدما لكل من يحاول تنفيذ الفكرة DatabaseUp.rar

ولم الاعتذار ، والمكان يتسع للجميع البرنامج ممتاز ومليء بالافكار الجميلة جزاك الله خيرا وغفر لي ولك

تفضل مطعم وجبات3.rar

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

اذا تريد ايقونة خاصة ارفقها لي

ابشر .. من عنيا .. غالي والطلب رخيص تفضل RunApp.rar

الحمد لله .. هذا من فضل الله وتيسيره

تفضل وأعتقد انه لا علاقة للنواة في مجال التنفيذ لانه يتعامل مع التسجيل جرب على النواتين وأفدني بالنتيجة twasol.rar

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