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

kanory

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2,256

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

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

  • Days Won

    136

 نوع المحتوي 

كل منشورات العضو kanory

  1. kanory
  2. kanory
    انظر الصور ربما تفي بالغرض <<<<<<<>>>>>>>
  3. kanory
    تفضل <<<<<<<<>>>>>>> الجدول_Kanory.accdb
  4. kanory
    جرب المرفق واعلمنا بالنتيجة <<<<<<<<>>>>>>> export _kanory.accdb
  5. kanory
    استخدم هذا ... <<<<<<<<<>>>>>>>>> .usedRange.rows(1).Interior.Color = vbYellow تفضل ملفك .... export _kanory.accdb
  6. kanory
    استخدم هذا الكود <<<<<<<>>>>>>>> On Error Resume Next Dim resbtndelete As String resdelete = MsgBox("هل تريد حذف المنتج ؟", vbYesNo, "تنبيه") If resbtndelete = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL "DELETE tbl_Fatoora2.ID_Haraka, tbl_Fatoora2.Product_Name_Haraka " & _ " FROM tbl_Fatoora2 " & _ " WHERE (((tbl_Fatoora2.ID_Haraka)=[forms]![frm_Fatoorabuy]![Invoice_ID]) AND ((tbl_Fatoora2.Product_Name_Haraka)=[Forms]![frm_Fatoorabuy]![w1].[Form]![Product_Name_Haraka]));" DoCmd.SetWarnings True 'DoCmd.RunSQL ("delete * from tbl_fatoora2 where [ID_Haraka]=" & Forms!frm_Fatoorabuy!Invoice_ID) DoCmd.Requery End If
  7. kanory
    مزيد من المعلومات حول ""
    ضع هذا الكود بدل الموجود لديك ..... On Error Resume Next Dim resbtndelete As String resdelete = MsgBox("هل تريد حذف المنتج ؟", vbYesNo, "تنبيه") If resbtndelete = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL "DELETE tbl_Fatoora2.ID_Haraka, tbl_Fatoora2.Product_Name_Haraka " & _ " FROM tbl_Fatoora2 " & _ " WHERE (((tbl_Fatoora2.ID_Haraka)=[forms]![frm_Fatoorabuy]![Invoice_ID]) AND ((tbl_Fatoora2.Product_Name_Haraka)=[Forms]![frm_Fatoorabuy]![w1].[Form]![Product_Name_Haraka]));" DoCmd.SetWarnings True 'DoCmd.RunSQL ("delete * from tbl_fatoora2 where [ID_Haraka]=" & Forms!frm_Fatoorabuy!Invoice_ID) DoCmd.Requery End If
  8. kanory
    هذا المثال مبسط لفهم الفكرة ..... Fatoorh2000.mdb
  9. kanory
    بارك الله فيك وبالتوفيق .....
  10. kanory
    وهذه مشاركة بطريقة اخرى مع الاساتذة الكرام <<<<<<<>>>>>>> 1678743215_.accdb
  11. kanory
    كود اخي الوزير يعمل بكفاءة .... كيف لا يصفي الباركود ؟؟؟؟؟؟؟
  12. kanory
    هكذا <<<<<>>>>>> DoCmd.OpenReport "rpt_class", acViewPreview, , "class Like '*" & Me.lst4.Column(1) & "*' AND class Like '*" & Me.lst4.Column(1) & "*'" دائما الشروط تكتب بين علامتي تنصيص انظر للكود بعد تفريغ الشرطين يصبح هكذا DoCmd.OpenReport "rpt_class", acViewPreview, , "هنا بكتب جميع الشروط والمعاريير" وهذا شكل الشرطين class Like '*" & Me.lst4.Column(1) & "*' AND class Like '*" & Me.lst4.Column(1) & "*'
  13. kanory
    بالعكس النتيجة شغال في الحالتين ..... فقط تأكد من اسم الجدول المرتبط .....
  14. kanory
    جميل اخي الكريم ....ز
  15. kanory
    الموضوع مكرر أخي الكريم ... نصيحة : لا تكرر الموضوع ... فقط اكتب للرفع في نفس الموضوع ..... ثانيا لو ارفقت مثال مبسط لوجدت الاجابة من الاساتذة في المنتدى ....
  16. kanory
    بارك الله فيك ...... بالتوفيق ,,,,,,,
  17. kanory
    شركة واحدة فقط ....
  18. kanory
    بالنسبة للنقطة الاولى ... نعم ولكن اعتقد هناك طرق اخرى النقطة الثانية ممكن في التقرير الفرعي وممكن في التقرير المجمع ....
  19. kanory
    مثل هذا <<<<<<<>>>>>>> split.accdb
  20. kanory
    في حدث عند النقر المزدوج لـــــ lst4 ضع هذا الكود <<<<<<<>>>>>>> DoCmd.OpenReport "rpt_class", acViewPreview, , "class Like '*" & Me.lst4.Column(1) & "*'"
  21. kanory
    لاحظ الفرق بين ظهور الصف الاول من التقرير والصف الثاني من حيث السرعة !!!!! Nouveau Microsoft Access Database.accdb
  22. kanory
    حياك الله أبو زهرة ..... بارك الله فيك ... New Microsoft Access Database.rar
  23. kanory
    استخدم شيك بكس .....
  24. kanory
    بل VB افضل من حيث الحماية واخفاء ما تريد حمايتة وخاصة في مثالك تريد عدم التعديل الا برقم سري ..... لان الماكروا حتى بعد حماية القاعدة وتحويلها mde يمكن الاطلاع عليها وتعديلها
  25. kanory
    تفضل <<<<<<<>>>>>>> transport (3) (1).accdb
×
×
  • اضف...

Important Information

  I accept