أمجد جمالي

السلام عليكم وانا كمان اضم صوتي لصوت الاخ سهل واستاذ ابو هادي إذا لاحظت في مشاركتي ذكرت وشكراً

شكراً ما قصرت اصبح الان طريقتين لنفس الغرض طريقة الاخ ابو نعيم المرفقة مع مشاركته وطريقتك

السلام عليكم ممكن اخت ليلى , بس هي طلبات اسبوع كامل يعني من هون لحتى اسبوع لعاد تطلبي شي مرفق في الملف تعديل هذا الخطأ بكره ان شاء الله برسل الطريقة الثانية SEARCH.zip

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

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

تفضلي اخت ليلى SEARCH.zip

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

اخت ليلي هل هذه ما تطلبين تحياتي SEARCH.zip

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

الاخ جمال الفايز اشكرك على هذا التنويه

السلام عليكم أخواني أعضاء المنتدى تم ملاحظة الأتي بالنسبة لكلمة المرور قاعدة البيانات فهي حساسة لحالة الأحرف بمعنى اذا كانت احرف كلمة المرور مكتوبة في الشفرة بأحرف كبيرة وهي احرف صغيرة فلن يتم الاتصال بقاعدة البيانات وسوف تظهر رسالة خطأ Invalid Password للمعلومية فقط Dim StrBackEndPath, StrBackEndName As String Dim CnnNet As New ADODB.Connection Dim RstBEDefault As New ADODB.Recordset '-- Open a connection to the backend database CnnNet.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StrBackEndPath & "\" & StrBackEndName & ";Jet OLEDB:DataBase Password=syrianhere" '-- Open the database properties table RstBEDefault.Open "TblClient", CnnNet '-- Your code '-- After Finish clean up RstBEDefault.Close CnnNet.Close Set RstBEDefault = Nothing Set CnnNet = Nothing

اما بالنسبة لعدم مقدرتك بتحميل الملفات الى الموقع راجع هذا الرابط شرح طريقة تحميل ملفات الى المنتدى مع الصور http://www.officena.net/ib/index.php?showtopic=3206&hl وهذا الرابط ايضاً http://www.officena.net/ib/index.php?showtopic=2129

في البداية باسمي وباسم جميع الأعضاء ارحب بك بالنسبة للسؤال الاول والثالث حله موجود في الملف المرفق اما السؤال الثاني لماذا تريد حجز الرقم لباقي الجداول ارجو التوضيح مع ارفاق ملف لكي استطيع انا وزملائي مساعدتك وبما أنك حديث العهد في الأكسيس راجع هذا الموضوع لعلها قد تفيدك http://www.officena.net/ib/index.php?showtopic=4163 مع تحياتي لك AutoNumber.zip

هذا هو المثال DateRange.zip

السلام عليكم افتح الاستعلام في خانة التاريخ انسخ هذا الكود بعدين افتح الفورم روح على الشفرة غير اسم الاستعلام وضع اسم الاستعلام الموجود في قاعدة البيانات عندك Between [Forms]![DailyReport]![DateFrom] And [Forms]![DailyReport]![DateTo] وبالتوفيق واذا ما مشي الحال معك انا عجزت بصراحه

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

اهلا وسهلا فيك اخ مغروم واحنا في الخدمة انشاء الله

اخ مغروم الرجاء ارفاق مثال ليتسنى لنا التعديل عليه

تفضل اخ مغروم هذا مثال على دالة الأستاذ ابو هادي مع تحياتي Db1.zip

الله يعطيك العافية استاذ ابو هادي مشي الحال

السلام عليكم اخواني لنفترض ان لدي أسم عميل في النموذج محمد احمد عبدالله احمد في خانة واحدة ولتكن ClientName هل يوجد كود يقوم بتجزئة هذا الاسم على اربع خانات مثال Name: محمد Father: احمد Grand: عبدالله Family: احمد وشكراً هذه الطريقة شفتها على احد البرامج المبرمجه با الفيجوال بيسك

السلام عليكم إضافة على الاستاذ هشام والاستاذ سهل بإمكانك التحكم بطريقة العرض التقرير عن طريق الشفرة أفقياً Me.Printer.Orientation = acPRORLandscape عمودياً Me.Printer.Orientation = acPRORPortrait مع تحياتي

يسعد صباحك استاذ سهل ياسيدي اذا ماكان عندك صبر لتحميل ال 120 ميغابايت بعتلي عنوانك في جدة ورح ارسلك ياه هديه ثانياً انت حكمت على البرنامج من دون ماتعرف اش هو والله اذا بتسمع شركة InstallShield كلامك لترفع عليك قضية ثالثاً ياخي DSlاو اليز لاين اصبح منتشر الان بإمكان اي واحد يحمل الملف بأقل من ساعتين ثالثاً في برامج خاصة لتحميل الملفات الكبيرة وبإمكانك تحميله على عدة دفعات ورح حط الرابط هالبرنامج بس يتوفر عندي انشاء الله وشوف مشاركتي شو كاتب فيها سلام

السلام عليكم ورحمة الله وبركاته البرنامج الذي ارفقه الأستاذ سهل لاشك بأنه سهل لكن الخيارات التي فيه محدودة ليست مثل البرامج التي تطرحها شركة InstallShield وأنا بنفسي جربت عدة إصدارات وكان أكثرها مرونة وافضلها هو الاصدار InstallShield X Express Edition ويمكن تحميله من هنا فقط أختار الاصدار Express Edition واضغط Download Now وسجل ايميلك عندهم لكي يرسلون لك الباسورد جرب وصدقني لن تندم سلام

طبعاً تضيف هذا الكود في Rows Criteria لخانة التاريخ