ابو جودي

شوف كده طيب الاول انا غيرت العلاقة فى الاستعلام شوف العلاقة كيف اصبحت وشوف التقرير مصدر بياناته الاستعلام مش الجدول الاستعلام باسم اجازات استعلام 555(1).accdb

هو ايه اللى مش مظبطه بس فهمنى

طبعا تقدر تعمل نموذج وتغير المعيار فى الاستعلام بما يتناسب مع النموذج وتقدر تبنى التقرير على هذا الاستعلام

اتفضل افتح الاستعلام اللى باسم اجازات استعلام 0147 (2).accdb

انا اسف ليك افعل ما تشاء كيفما شئت

اتفضل عدلت لك حبة حجات كده للافضل db4_6.mdb

لا فى شئ غريب هو ده صح فى الكود If case_cod = 7 Then db.Execute "insert into key (setno,secr1,case_cod) values (" & x1 & "," & y & "," & x & ")" khaled = "تريكو" Else If case_cod = 7 Then db.Execute "insert into key (setno,secr1,case_cod) values (" & x1 & "," & y & "," & x & ")" khaled = "نسيج" case_cod = 7 مرتين

انا مش قادر اقهم

اتفضل db4_5.mdb

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

Public Function numbr(myData) myData = Replace(myData, "1", "يوم") myData = Replace(myData, "2", "يومان") myData = Replace(myData, "3", "ثلاثة أيام") myData = Replace(myData, "4", "أربعة أيام") myData = Replace(myData, "5", "خمسة أيام") myData = Replace(myData, "6", "ستة أيام") myData = Replace(myData, "7", "سبعة أيام") myData = Replace(myData, "8", "ثمانية أيام") myData = Replace(myData, "9", "تسع أيام") myData = Replace(myData, "9", "عشرة أيام") numbr = myData End Function

اتفضل 25.accdb

انهو مربع نص عاوز تغير قيمته

انا قولت يسأل سؤال فى سؤال مش كل شوية اسأل سؤال ومادام لدينا ما نسأل عنه اسأل مليون مرة حقك لكن حق المنتدى تحافظ على نظامه أخي الفاضل تقول وبقتح موضوع في موضوع المفروض انتهي - إرسال بلا دليل أديني مثال علي صحة ما تقول الدليل موضوعك هذا عنوانهترشيح طريقة صلاحيات مستخدمين قوية بخلاف طريقة برنامج Users maker وأحتاج لطريقة صلاحيات مستخدمين قوية وبسيطة في نفس الوقت وانا ساعدتك رشحت لك السهل والمرن والبسيط زى ما طلبت لحد هنا تمام جدا بعد كده 1- كيف يتم تشفير الباسوورد في جدول حفظ اليوزر نيم والباسوورد في العمل المرفق 2- هل يمكن إضافة طريقة حماية هذا الموضوع علي هذا العمل مخالفتان

هات مرفق

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

اذا وقت الدفع صل على النبى صل الله عليه وسلم يا هذا

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

لا الحل فى الموديول تجده تحت العنوان ' الحالات الشاذة وبما انك فهمت الفكرة انا دمجت الاستعلامين وخلتهم واحد EngArb (5).accdb

بص المنشور السابق لردك مباشرة قلت لك ايه انا بس كنت منتظر اشوف انت هتحتاج شئ تانى واللا لاء والتجربة عجبتك اصلا واللا هتزعق لى اتفضل طالما راض عن النتيجة دى EngArb (4).accdb

لسه فى شئ تانى بس انا منتظر ردك الاول طبعا بعد التجربة

ومساهمة منى مع اخى الحبيب @kanory لانى كنت عامل قاعدة لكيبورد قبل كدة كان لازم استخدم الأكواد للتحكم فى كل الأحرف والعلامات طبعا انا كاتب اكواد كتير شوية لكن التحكم فى الموديل هنا افضل قليلا تستطيع ان تلغى ما لا تريد او تريده بأضافة العلامة ' فى اول سطر الكود يعنى مثلا انا لاغيت الاقواس عاوز ترجع الاقواس استبدل الكود ده myData = Replace(myData, "(", "") myData = Replace(myData, ")", "") بهذا الكود 'myData = Replace(myData, "(", "") 'myData = Replace(myData, ")", "") مفيش دلع اكتر من كده يا استاذ @saleh204 الاستعلام Query2 هو النهائى طبعا هو مبنى على الاستعلام Query1 تقدر تشوف الفرق بينهم EngArb (3).accdb

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