اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Shivan Rekany

الخبراء
  • Posts

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

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

  • Days Won

    152

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

  1. IF MSGBOX( " هل انت متأكد من اعطاء المستخدم هذا صلحيات الادارة" , VBYESNO ,"") = VBYES THEN ME.MIREBIA = TRUE ELSE ME.MIREBIA = FALSE ENDIF غیر MIREBIA باسم مربع جيك بوكس اللي عندك
  2. انا فقط غيرت في اسماء المربعات النصية مثلا بدل حرف Ė غیرت بحرف E القي نظرتا الى المسميات لكلا المرفق راح تعرف كل شيء تحياتي
  3. حدث اي نوع من المشاكل ؟ هل ممكن ان ترفع قاعدة بيانات لكي نشوفه
  4. عملت لك جدول اخر للسندات منتهية المدة وعملت استعلامين الاول ترحيل والثاني حذف واستخدمت هذه الاكواد في نموذج فرعي Private Sub Form_Current() Me.Text62 = Me.رقم_السند End Sub Private Sub mstagra_Click() If Me.mstagra = False Then If MsgBox("ھل تريد ترحيل ھذا السند الى جدول سند عقد منتهية ؟", vbYesNo, "ترحيل") = vbYes Then DoCmd.SetWarnings False DoCmd.OpenQuery "terhil" DoCmd.OpenQuery "deletesened" DoCmd.SetWarnings True MsgBox "تم ترحيل" Else Me.mstagra = True End If End If Me.Requery End Sub واليك ملف بعد تعديل واذا هذا ليس يكون طلبك وضح لي بالتفصيل ترحيل 55 (1).rar
  5. القي نظرتا الى هذا ترحيل 55 (1).rar
  6. صح اعمل زر جديد وفي محرر فيجوال الصق الكود في حدث عند النقر * وايضا هناك طرق اخر لحذف الكل في جدول
  7. الیک ھذا السطرين يحذف كل سجلات الموجودة DoCmd.RunCommand acCmdSelectAllRecords DoCmd.RunCommand acCmdDeleteRecord
  8. استخدمه بشرط ... ابحث في منتدى راح تشوف كتير امثلة عليها واذا لم تجد افتح موضوع جديد ووضح فيها ما تريد ستصل الى ما تريد ان شاء الله
  9. اعمل جدول واحد لكل زبائن .. وبعدين تقدر تفرزها و تعمل اي شي تريد
  10. السبب یرجع لان حقل نعم لا ھو فی جدول الشقق عند تعمل علامە صح امامه كانك تضع علامة صح امام كل السجلات ترحيل 55.rar
  11. ھل ترید ھذا انا استخدمت دالة IIF ھکذا expr1: IIf( [نهايه العقد] < DATE() ; DateDiff("n";[wagtadhl] & [tarah];[wajtalhroj] & [nahatalajd]); 0) احتساب الوقت.rar
  12. مادام ان هناك مدينة واحدة وهو القاهرة تم حذفت كومبوبوكس لنموذج الدخول مع كود خاص به وتم تغيير الاستعلام الالحاق .. حقل تابع المحافظة من Expr3: [Forms]![login]![City] الى Expr3:"القاهرة" اليك المرفق بعد تعديل login - Copie.rar
  13. لا اعرف ھل انا ما فھمت من سؤالك ام ماذا القي نظرتا الى المرفق هل هذا هو ماتريد للعلم ان السبب للسجل الفارغ كان مصدر النموذج login - Copie.rar
  14. اولا فتح نموذج الفرعي في وضع تصميم وفتح محرر فيجوال وغير Private ب كلمة Public للزر اللي تريد ان تناديه في نموذج الرئيسي مثال ستغير هذا Private Sub button2_Click() بهذا Public Sub button2_Click() وفي نموذج الرئيسي ستناديه هكذا Call Form_formsub.button2_Click اليك المرفقك بعد تعديل تشغیل زر نموذج فرعي بواسطة نموذج الرئيسي.rar
  15. اخی الحبیب کما قلت لک من قبل غیر مسمیات راح یضبط معاك اليك المرفق بعد تعديل mohamed1 (2).rar
  16. نعم القي نظرتا الى الصورة عملت لك كما مبينة في الصورة القي نظرتا الى الصورة عملت لك كما مبينة في الصورة اتفضل مع المرفق افتح نموذج واكتب فيها سنة و شهر مثلا 2017/07 وافتح التقاریر test 5000.rar
  17. نعم لكن قلت خلي اجرب ... واللي انا اعرف ان استاذنا @ابوخليل بيستخدم اوفيس 2003 ... لعل عنده الجواب و اعتذر من سيادتكم
  18. على الرغم انا ما عملت مثل هذه الشغل الكبير بعد لكن حسب تجربتي لبعض دقيقة عليه احتمال هناك خطأ عند تحويل التقرير الى html شوف ھذا بعد تحويل من جديد يظهر عندي هكذا واليك المرفق واحتمال ان هذا ليس يكون مطلبك تقبل تحياتي 2003عبارة.rar
  19. السلام علیکم ورحمة الله وبركاته استاذ محمد هل ممكن تخبرنا ماذا تريد ان يظهر لان انا عم استخدم اوفيس 2010 وبيظهر معي هكذا بواسطة نموذج .. اظن انه مافي مشكلة
  20. غیر هذا باسم اخر وجرب مثلا باسم numeroN
  21. اذن اختر الجواب الصحيح اي اعمل علامة صح امام جواب صحيح لكي من يراجع هذه الرابط لكي يع8لم اي جواب هو جواب الافضل
  22. اخي القي نظرتا الى اسماء الحقول ومربعات النصية احتمال ان تستخدم حروف عليها الرموز ... غيرها وارتاح
  23. افتح التقرير في وضع تصميم وحدد مربع النصي اللي تريد وغير في خاصية Text Align الى Distribute القي نظرتا الى الصور في وضع فتح التقرير لكن بيظهر عند فتح قبل طبع هكذا اي عند طباعة سيطبع مثل الصورة الاول اليك ملف بعد تعديل طباعة ملصق باركود بعدد مرات محددة في تقرير (1).rar
  24. اذا تريد ان يقسم على 6 اي الرقم المكتوب في حقل المدة فقط عليك ان تغير هذا السطر من الكود For I = 0 To Me.CmdCridi.Column(0) - 1 بهذا السطر For I = 0 To Me.Beriod - 1 واليك المرفق بعد تعديل v2برنامج التقسيط.rar
×
×
  • اضف...

Important Information