zine pef

مشكور ++1

السلام عليكم اليك المثال ارجو ان الملف واضح DEMO1.rar

ألف شكر أخي عماني على المساعدة لكن ليس تصحيح في السطر الثالث 3 اريد عندما يعد البرنامج و يتوقف يطلب الكود للتفعيل بعد كلمة التفعيل نضع SaveSetting "b", "0", "x", 0 اي ارجاع العدد الى 0 هنا لبد ان يتوقف العدد ارجو ان اكون واضح في الشرح و شكرا لك

شوف أخي الكود On Error Resume Next S = GetSetting("b", "0", "x") G = Val(S) + 1 SaveSetting "b", "0", "x", G Me.Lab.Caption = "Êã ÊÔÛíá " & " ( " & G & " ) " & "ãÑÉ ãä 4ãÑÉ" If G > 4 Then MsgBox "ÚÜÜÜÜÝæ ÃÎí ÇáßÜÜÜÑíã .. åÐå äÜÜÓÎÉ ãÍÜÜÜÏæÏÉ" & vbCrLf & _ "ÊÚã…

شكرا أخي سوف اجرب العلمية و الرد بعدين

شكرا أخي omani على المرور و المساعدة لم أوضح أكثر في السابق بالنسبة للكود الكود هو لعداد و عند وصوله الى عدد ما يتوقف البرنامج و كما تكرمت على الأيجابة في سؤال سابق عن إرجاع العدد الى الصفر (0) الأن اريد العدد ان يتوقف عن العد و قلت إلغاء الكود ..هل من طريقة و…

السلام عليكم الكود: S = GetSetting("A", "0", "Runcount") G = Val(S) + 1 SaveSetting "A", "0", "RunCount", G حسب فهمي لهذا الكود G هو العداد ما هو الكود لكي يتوقف العداد من العد و شكرا لكم

الف شر أخي omani على الكود بركة الله فيك و الأخت زهراه

السلام عليكم أساتذة و أعضاء منتدانا الغالي وجدت في منتدانا ملف الأخت الغالية زهراه و أطالة الله عمرها ، ملف Demo اي نهاية صلاحية البرنامج بإستعمال عداد اي يعمل البرنامج عدد من المرات ثم يتوقف فكرت في وضع نمودج أخر و فيه زر إرجاع العداد الى (0) لكن مع الأسف لم …

شكرا الأخت الفاضلة زهراه اسعد الله حياتك

شكرا أخي على التنبيه لا أدري كيف غابت عني توجد مشكلة صغيرة و هي طباعة الشهر الظاهر في النمودج الفرعي انه يطبع كل الشهور ارجوا المساعدة كشف الراتب.rar

السلام عليكم اخواني بعد التفكير الطويل و البحث من حدب وصوب لم اتوصل الى الحل المشكلة : Forms!Tbl1!m.Value = Me!m.Value استعملت هذا الكود لنقل كلمة ما في الحقل m من النمودج الفرعي (( مع العلم ان المعلومة تسجل في حقل الجدول الفرعي)) الى المربع نص m في النمودج ال…

تشكر اخي على هذه الطريقة الظريفة

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

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

السلام عليكم إخواني الأفاضل المشرفين و الأعضاء منهم مشكلتي هي نوما بديهية اني استعملت الدالة الشرطية if..then و حققت المطلوب لكن التكرار في استعمالها تركني افكر في طريقة أخرى إن وجدت الكود: if y=1 and x=A1 then z=10*45 end if if y=1 and x=A2 then z=20*45 end i…

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

السلام عليكم لاحظ هذا الكود Private Sub sanfe_Click() If Me.sanfe = 1 Then Me!numistidlali = 200 Else If Me.sanfe = 2 Then Me!numistidlali = 219 Else If Me.sanfe = 3 Then Me!numistidlali = 240 Else If Me.sanfe = 4 Then Me!numistidlali = 263 end if end if end i…

ألف شكرا اخي حميد هو المطلوب بركة الله فيك فقط هذا Forms!frm1!txt2 الذي كان ينقصني تصبح على خير يا بطل

شكرا للأخ حسن مع حق و شكرا للأخ ابو شادي على المساعدة والملف ليس هو المطلوب اني مرفق ملف و فيه المطلوب و شكرا لكم zine pef.rar