اذهب الي المحتوي
أوفيسنا

Shivan Rekany

الخبراء
  • Posts

    3491
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    152

كل منشورات العضو Shivan Rekany

  1. استأذن من استاذنا @sandanet و @ابا جودى اتفضل تم عمل فانكشن جديد باسم ( se) وتم کتابە فیه هذا الكود Function se() As Boolean On Error Resume Next SendKeys ("%(fic)"), True End Function طبعا هذا الكود للنسخة الانكليزية 2010 وفي ذلك السطر اي في كود عمل شريط القوائم استخدمت هذا .OnAction = "=se()" واتفضل اليك قاعدة بعد تعديل برنامج إنشاء قوائم منسدلة PopUp.rar
  2. استأذن من استاذنا ابوخليل و اباجودي اتفضل اليك هذا الرابط به المطلوب
  3. انا لا استخدم کاسبرسکای الیک ھذا الموضوع لعل يفيدك
  4. فی قاعدە بیاناتک اعمل امبورت و اختر قاعدە بیانات الحمایة و اختر الجدول و النموذج و الوحدة نمطية او افتح قاعدة بيانات الحماية وحدد كلا من النموذج و الجدول و الوحدة النمطية واعمل نسخ بكنترول + سي او بالماوس اليمين اضغط بعدين اختر نسخ بعدين اغلق القاعدة الحماية وفتح قاعدة بياناتك واضغط بكنترول مع حرف v او اضغط بكليك اليمين و اختر لصق
  5. اتفضل اليك هذا الكود عند تحميل التقرير Private Sub Report_Load() Me.RecordSource = Form_Print.StudentInfoSubForm.Form.RecordSource End Sub اليك المرفق School certificate 2003.rar
  6. النموذج اللي في قاعدة الحماية راح تنتقله الى قاعدة بياناتك و تعمله كأول نموذج بيفحه عند فتح القاعدة بياناتك في اول مرة عند فتح قاعدة بياناتك على اي جهاز راح يفتح ذلك النموذج اذا ماكان مسجل ويجب عليه ان يتصل بك ويعطيك الكودين اي الكود المعالج للجهاز تبعه مع كود هارد ديسك بعدين انت راح تدخل الكودين في القاعدة اللي اسمه كراك و تضغط تسجيل الكراك راح يعطيك رقم جديد طويلة .. وانت ستعطي الرقم الجديد الى صاحب الجهاز لكي يسجل البرامج اي ليس بمقدور احد ان يفتح القاعدة بشكل اعتيادي الا يجب عليه ان يسجل البرامج اي سيحمي قاعدتك من النسخ الى جهاز آخر
  7. الیك هذا الرابط
  8. استأذن من الجماعة اليك هذا اضف الى كود سجل حفظ هذا الشرط Private Sub أمر16_Click() On Error Resume Next If Me.SubSales.Form.Recordset.RecordCount = 0 Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True Else نص31 = Null Me.Text34 = Me.n1 Me.Text33 = Me.n2 Me.Xsave = -1 DoCmd.GoToRecord , , acNewRec End If End Sub
  9. اتفضل تم اخفاء جميع نماذج في التقرير وتم استخدام هذا عند تحميل التقرير Private Sub Report_Load() If Form_طباعة.rep.ListIndex = 0 Then Me.الاول.Visible = True If Form_طباعة.rep.ListIndex = 1 Then Me.تابع2.Visible = True If Form_طباعة.rep.ListIndex = 2 Then Me.تابع3.Visible = True End Sub تجريب_3.rar
  10. غیر متوافقە مع اکسس ارجوا من استاذ @ابوخليل ان يستبدل المرفقات المشاركاتي الثانية ب مرفقات الموضوع اي بالمرفقات المشاركة الاولى و يحذف تلك المشاركة تم التنقيح وعمل اللازم
  11. اتفضل اليك بعض ازرار تقدر تغير احجامه حسب حاجتك ازرار.rar
  12. في اكسس نفسه ... في اصدار 2010 اذا احتاجت تفاصيل اكثر راح اشرح لك تحياتي
  13. اتفضل غيرت حقل التاريخ من تيكست الى تاريخ وتم استخدام هذا الكود للفتح التقرير استعلام بين تاريخين.rar
  14. اتفضل اخي تم تغيير حقل الترقيم تلقائي الى رقم و تم قبول تكرار الرقم في حقل الترقيم و استخدمت هذا الكود بعد تحديث لحقل borrower Private Sub borrower_AfterUpdate() Me.BorrowerNo = Nz(DMax("[BorrowersNo]", "جدول بيانات", "[borrower]='" & Me.borrower & "'"), 0) + 1 End Sub اليك قاعدة بياناتك بعد تعديل db1.rar
  15. استأذن من استاذ @ابا جودى اتفضل انا اضفت هذا لزر ادراج If DCount("[Rajmsanf]", "hrakatsanf", "[Rjmfatwra]=" & Forms!FrmSales!Rjmfatwra & "and [Rajmsanf]='" & Me.Rajmsanf & "'") > 0 Then MsgBox "هذا الصنف مكرر" Exit Sub Else اليك قتاعدتك بعد تعديل 99999999.rar
  16. ارفق نسخة مصغرة من قاعدة بياناتك لكي نتعامل معه لكي تفهم جيدا
  17. نعم ھناک مواضيع على هذا اي على ترقيم تلقائي حسب فئة وهناك يجب :- 1/ اولا ان تختار هل هذا الاسم هو مدرس ام طالب ام ادارة 2/ بعد اختيار هذا ستستخدم ديماكس حسب شرط الفئة
  18. حسب صور اللی رفعته في البداية 1 / هل تريد ان لا يظهر السجل اللي فيه تاريخ فقط 2 / ام لا تريد ان يظهر اي سجل الا سجل اللي فيها بيانات وما تريد ان تظيف اي سجل بعد ج1 / افتح الجدول في وضع تصميم و احذف ديفيلوت فاليو للحقل التاريخ ج2 / اعمل كما قال استاذنا ابوخليل
  19. احذف تاريخ التلقائي في حقل التاريخ وبدل ذلك استخدم بعد تحديث الحقل القبله ان يكتب التاريخ
  20. السلام عليكم ورحمة الله وبركاته على الرغم من كثرة المواضيع عن الحماية لكن رأيت ان اضيف شيء بسيط على ذلك تم انشاء هذا الموضوع لاني من هنا قلت للسيد @Aliko سارجع مع المثال لا اريد اطول كثير لاني زعيف في اللغة العربية لذلك اليكم قاعدة مع الكراك حماية.rar كراك.rar
  21. لا اعرف هل انا فهمت جيدا ام لا لكن حسب من الاحسن للعملية طباعة ان تعمل كومبوبوكس ليأخذ اسماء كل الطابعات المقترنة و تختار الطابعة المناسبة للطباعة من كومبوبوكس
  22. بامكاننا ان نتحول الحروف الى الارقام
  23. اتفضل اليك ما طلبت Nouveau Microsoft Access Base de données.rar
×
×
  • اضف...

Important Information