Elsayed Bn Gemy

هواحنا مضفناش Last /first فى الاستعلامات هههههه تصدق سلخت قبل ما ادبح عموما افتح الجهاز ان شاء الله واظبطهوملمك

تفضل اخى الكريم واسال براحتك اسال الله ان يقضى لك ولنا حوائجنا تجاهل الهمزات.rar

وعليك السلام البرنامج لا يقوم بالتحزيم بل يقوم بالتثبيت داخل الويندوز ستجد فولد اسمه Program Rk اما الشرح بالعربى كدا انا قمت بتصميم برنامجين داخل برنامج واحد يعنى صممت النماذج الخاصة بالتثبيت وبعدين نماذج البرنامج الاصلى اللى هشتغل عليه وجمعتهم كلهم فى برنامج واحد وعند التثبيت البرنامج بيعمل لنفسه كوبى داخل فولدر Program Rk كله وبعدين يبتدى يمسح بقى النماذج اللى مش ضرورية زى نماذج التثبيت . بس كدا هههههه

اخى الكريم الكود السابق يغنيك عن العلاقة بين الجدولين علاقة الراس بالاطراف ازل العلاقة بي الجدولين

اخى الكريم هل تريد طباعة كل قيد على حدا ام فى اخر كل شهر تقوم بطباعة القيود مجمعة ؟؟

اخى الكود يعمل معى ارسل لنا صورة الخطا الذى يظهر معك

اخى الكريم اضف هذا السطر البرمجى بعد Else Me.Undo

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

بارك الله لكم وسدد خطاكم داااااااااائما بااااااارك الله فيك سررت بتعليقك الكريم بل ابارك لنفسى ان حازت شرف تعليقكم الكريم

Dim sedo As Integer Dim X Dim Rs sedo = Me.n_istimara.Value Set Rs = CurrentDb.OpenRecordset("istimaramakasa") For X = 1 To sedo Rs.AddNew Rs![bar] = Me.[bar].Value Rs!m = Nz(DMax("[m]", "istimaramakasa", "bar='" & Me.bar & "'"), 0) + 1 Rs.Update Next Rs.Close Set Rs = Nothing Me.[istimaramakasa Subform].Requery اضف هذا الكود فى حدث بعد التحديث لn_istimara فى النموذج الرئيسيى وليس الفرعى

شكرا لك اخى الكريم كله نسى اسم مارد دا ههههههههه عموما سررت بتعليقك

شكرا لك اخى الكريم وسدد الله خطاك

مبااااااااااااااااااارك عليك وسدد الله خطاك دااااااااائما الى الامام دااااائما

Function ClearText(ByVal inText As String) As String Dim myPos As Integer Do While InStr(1, inText, "أ") > 0 inText = Replace(inText, "ا", "أ") Loop Do While InStr(1, inText, "") > 0 inText = Replace(inText, "", "") Loop Do While InStr(1, inText, "") > 0 inText = Replace(inText, "", "") Loop Do While InStr(1, inText, "") > 0 inText = Replace(inText, "", "") Loop ClearText = inText End Function اخى الكريم بارك الله لك قم بكتابة ما تريد بين علامات النصوص كما يترائى لك كما فى المثال الاول

اسمحولى اشاركم اخى الكريم عند فتح قاعدة البيانات وجدت الاتى قمت انت وضع قيمة لمتغيرات لم تصرح للبرنامج بانهم متغيرات مسبقا فقمنا بالتصريح عنهم كانهم متغيرات رقمية ثانيا وجدنا انه من الصعوبة نسخ رقم المادة من جدولها ثم بعد ذلك لصقها فى النموذج الفرعى قمنا بالتعويض عن ذلك بمربع تحرير وسرد به رقم المادة ليسهل عليك الاختيار واننا نجد هذا خطا ايضا فكيف بك الحال اذا كنت تمتلك 1000 قطعة هل ستحفظ ارقامهم كلهم . ولكن لك ما طلبت اما بالنسبة للمشكله فكود اخونا كرار صحيح زلكن تم وضعه فى بعد تحديث حقل الكمية هذه قاعدة بيانات بها نموذج fbillcr فقط قم بنسخه ولصقه فى قاعدة بياناتك السيد elsayed.rar

اخى الكريم نقل ملفات الى الويندوز يحتاج الى تصاريح ولا يمكن استخدام الدوال العادية كدالة MKDIR لنقل الملفات التى تريد نقلها فى الوضع العادى لانه ستواجهك رسالة خطأ رقم ٧٠ وهى خاصة بالصلاحياات لذلك لو لاحظت عند تثبيت اى برنامج تظهر لك رسالة العمل ك administratorالحل الذى لدى هو فتح الاكسس كمدير ثم فتح البرنامج الخاص بك من خلاله واستخدام دالة MKDIR او ننتظر لعل الله يرزقنا بفرجه على يد الاخوة

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

مبارك عليك اخى الكريم ووفقك الله وسدد خطاك

شكرا لك اخى الفاضل بارك الله فيك

اخى الموضوع مبهم بالنسبة لى كثيرا ارفق مثالا للتعديل عليه وعموما يبدو انك ستحتاج الى وضع الكود فى الاستعلام الخاص بالبحث عموما قمت بتصميم مرفق لك يحاكى ما تطلب تم الاستغناء فيه عن رسالة ادخل اى مقطع من الاسم الدرجة فى الاستعلام بنموذج Form1 Search.rar

قد يفيدك هذا الرابط

ربنا يبارك فيك هههههههه اسال الله ان يديم عليك ستره وعافيته

اخى الكريم من خصائص مربع النص الذى يظهر فيه قيمة التاريخ ظبط التنسيقات كالصورة التالية

ربنا يخليك شكراااااااااا لذوقك الكريم

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