ahmed_2040

معلش انا اسف مش عارف اقلص قاعدة البيانات لان كل الكائنات مرتبطة ببيعضها

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

تمام اخي الكريم احمد بارك الله فيك اجرب وارد عليك

السلام عليكم عمالقة المنتدي الكبار مشكلة لم اجد لها حلا لذا لجأت اليكم لتساعدوني ولا تبخلو علي من وقتكم انا عملت نموزج اسمه "search" موجود به Listview اسمها "searchlist" تظهر بها مجموعة من الاعمدة تصل ل38 عمود و255 سجل تستورد البيانات من خلال استعلام اسمه "DataTech" من جدول اسمه "Data_Tech" محتاج كود احدد به عدد معين من الاعمدة كعلامة صح مثلا وعدد من السجلات ولكن ليس بشكل تسلسلي اي ورا بعض لكن بشكل عشوائي ثم اقوم بترحيل الاعمدة والسجلات الي ملف اكسيل منسق حسب الاختيارات السابقة

اريد بعد اذنكم كود حذف قاعدة البيانات عند الضغط علي زر امر

تم ذلك ولم يفلح بعد ممكن دالة Sql والموضوع ينتهي

يا استاذة الموضوع واضح وضوح الشمس انا محتاج كود يختار من بناء علي اختيار من الكمبوبوكس مثال If IsNull(Me.DFrom) Or IsNull(Me.DTo) Then MsgBox "الرجاء ادخال تواريخ البحث", vbInformation, "ادخل تاريخ البحث" Me.DFrom.SetFocus Else Select Case ListSearch Case "تاريخ التعيين" هنا اكتب ايه عشان يختار من الكمبوبوكس ويعرض االبيانات في القائمة الكبيرة بناء علي التاريخين المحصورين في التيكست بوكس Me.SearchList.Requery Me.DFrom.SetFocus Case "تاريخ استلام العمل" هنا اكتب ايه عشان يختار من الكمبوبوكس ويعرض االبيانات في القائمة الكبيرة بناء علي التاريخين المحصورين في التيكست بوكس Me.DFrom.SetFocus Me.SearchList.Requery Case "تاريخ الميلاد" هنا اكتب ايه عشان يختار من الكمبوبوكس ويعرض االبيانات في القائمة الكبيرة بناء علي التاريخين المحصورين في التيكست بوكس Me.DFrom.SetFocus Me.SearchList.Requery Case "تاريخ الإحالة للمعاش" هنا اكتب ايه عشان يختار من الكمبوبوكس ويعرض االبيانات في القائمة الكبيرة بناء علي التاريخين المحصورين في التيكست بوكس Me.DFrom.SetFocus Me.SearchList.Requery End Select مفيش بعد كده اوضح من كده يا استاذ ابو ياسين المشولي

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

اولا اشكرك بشدة علي سرعة الرد اخي الكريم والعضو المميز ثاتيا : كلامك مظبوط 100% انا وضعتها بطريقة اور اسطر متعاقبة لكن حتي لو وضعته م بجوار بعض كيف يعرف اني اخترت عنصرا معينا من الكمبوبوكس فيقوم يبحث في دخل الحقل المخصص لهذا العنصر المختار من الكمبوبوكس ويتجاهل الباقي مع العلم اني استخدمت الكود التالي في الاستعلام [Forms]![adv_Search1]![DFrom] And <=[Forms]![adv_Search1]![DTo]=< حيث ان حيث ان b4 حقل تاريخ التعيين في جدول Data_Tech b5 تاريخ استلام العمل a10 تاريخ الميلاد

مشكلتي مختصره في الصورة التالية وهيا عند الاختيار من الكمبو بوكس ووضع تاريخين ياتي بالنتائج حسب الشرط بتاع كمبو بوكس ,وتظهر في المربع الكبير مع العلم اني عندي استعلام باسم advsearch , ,والفورم باسم advsearch1 ,حقل التاريخ الاول باسم Dfrom ,وحقل التاريخ الثاني باسم Dto ,والكمبوبوكس باسم listsearch ,و النتائج بتظهر في Searchlist ارجو منك التكرم بحل المشكلة سواء برمجيا باستخدام Select Case في Vba مع دالة Sql او في الاستعلام

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

جزاك الله الله خيرا اخي يوسف تم الافادة

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

خواني الكرام عمالقة المنتدي ومبرمجي الغد عندي نموذج اسمه Search ونموذج اخر اسمه Search_Tech هناك مشكله كبيره عند تحديد شخص من قائمة البحث في النموذج الاول لا تظهر بياناته في النموذج الثاني بعد عمل دبل كليك علي الصف المحدد اريد ان تظهر بياناته في النموذج بعد عمل دبل كليك علي الاسم المحدد حتي يتسني لي التعديل علي بياناته من فضلكم ياريت الحل برمجيا . الملف في الرابط مرفق به المشكله https://www.gulf-up.com/downloadf-1504430961371-rar.html ارجوكم سرعه الرد لانه مطلوب مني يوم الثلاثاء القادم اخواني اعتزر لكم الرابط الاول مش شغال الملف المرفق هنا https://download.gg/ar/file-9693043_d1632748ca637450

اخي الكريم نفس المشكلة الاولي تظهر نفس الرسالة حتي بعد التعديل

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

نداء الي عباقرة المنتدي العظيم انا قمت بتصميم برنامج مرتبات ولكن اريد ان اضع الكود هذا في البرمجة Range("w6:w30").Formula = "=If(main!$B$8>(H6*main!$B$7);main!$B$8;H6*main!$B$7)" لاستخدامة في حساب عمود علاوة 2013 ولكن عند استخدامة يظهرالخطاء التالي في هذة الصورة المرفقة ولكم جزيل الشكر لتعاونكم