Elsayed Bn Gemy

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

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

تجاهل الهمزات.rar

في ١١‏/٥‏/٢٠١٦ at 06:08, Baraa.1982 said:

السلام عليكم ورحمة الله

بصدق البرنامج مميز جدا

:بس ممكن تعلمني كيف استخدمه

يعني اين يتم وضع البرنامج الي هيتم تحزيمه؟

 

 

 

وعليك السلام 

البرنامج لا يقوم بالتحزيم

بل يقوم بالتثبيت داخل الويندوز ستجد فولد اسمه Program Rk

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

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

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

ازل العلاقة بي الجدولين

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

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

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

 Me.Undo 

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

الهمزات واتاء المربوطة والتشكيل

تجاهل الهمزات.rar

5 ساعات مضت, رمهان said:

ابارك لنا بوجودك وعودتك ! وترقيه مستحقه

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

29 دقائق مضت, solventer said:

مبارك عليك والى الامام دومااااا

بااااااارك الله فيك سررت بتعليقك الكريم

55 دقائق مضت, ندي احمد كمال said:

     الف مبروك

بل ابارك لنفسى ان حازت شرف تعليقكم الكريم

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 فى النموذج الرئيسيى وليس الفرعى

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

عموما سررت بتعليقك

منذ ساعه, ابو عبدلله said:

وعليكم السلام

ما شاء الله فكرة رائعة وتطبيق أروع بارك الله بعلمك وزادك

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

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

الى الامام دااااائما

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

او ننتظر لعل الله يرزقنا بفرجه على يد الاخوة 

11 ساعات مضت, ابوخليل said:

 ترقية مستحقة ..  

             الف مبروك

                       شكرا لادارة الموقع 

ان كنتم ترون اننا نستحقها فانتم لكم كل الفضل علينا اخى ابوخليل بارك الله فيك  

10 ساعات مضت, sandanet said:

ماشاء الله عليك .. مبارك عليك الترقية وان شاء الله ربي يزيدك علم ومراتب عليا في الدنيا والآخرة

 

تحياتي

مشكور اخى الفاضل وبارك الله لك وسدد خطاك

9 ساعات مضت, حلبي said:

مبروك علينا

لاننا اكتسبنا واحدا دائما يقوم بيد العون للأخرين

والله اني معجب جدا بردك  في البداية حين تقول :

منذ ان كنت عضوا مبتدئا استظل بظل علمكم الواسع الى ان اكرمنى الله بهذه الترقية التى ادعو الله ان اكون اهل لها

منتهي التواضع زادك الله علما وتواضعا

9 ساعات مضت, حلبي said:

مبروك علينا

لاننا اكتسبنا واحدا دائما يقوم بيد العون للأخرين

والله اني معجب جدا بردك  في البداية حين تقول :

منذ ان كنت عضوا مبتدئا استظل بظل علمكم الواسع الى ان اكرمنى الله بهذه الترقية التى ادعو الله ان اكون اهل لها

منتهي التواضع زادك الله علما وتواضعا

اخجلتم تواضعنا شكرااااااااا لكلماتك الراقية  

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

9 ساعات مضت, omarahmed1424 said:

روعة بارك الله فيك كل اعمالك تنم عن مصمم رائع فنان 

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

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

وعموما يبدو انك ستحتاج الى وضع الكود فى الاستعلام الخاص بالبحث

عموما

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

Search.rar

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

الان, محمد سلامة said:

طب وبعدين بقه

تغيب تغيب وتطلع بحاجة مميزة

مبروك الترقية.. ومش عاوزينك تغيب علينا كتير

 

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

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

9 دقائق مضت, wael_rafat said:

مبروك استاذنا ... تستاهل وربنا يزيدك من علمه

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

الحمد لله وكفى والصلاة والسلام على النبى المصطفى

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

التى ادعو الله ان اكون اهل لها

لن اشكر احدا بعينيه حتى لا انسى احدا فكيف لى ان احصى اسماء اعضاء هذا الصرح كلهم

شكرا لكم جميعا