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

Shivan Kurdi

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

  • Posts

    3493

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

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

  • Days Won

    152

 نوع المحتوي 

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

  1. Shivan Kurdi
    اتفضل اليك هذا Private Sub cmdBrowse_Click() Dim spl() As String Dim tmp As String tmp = GetBrowseFolder("اختيار المجلد المطلوب :") If Len(tmp) > 0 Then Source = tmp Me.path.SetFocus path.Text = Source spl = Split(Me.path, "\") Me.dn = spl(UBound(spl)) Me.sn = spl(UBound(spl) - 1) End If End Sub Database1_2.accdb
  2. Shivan Kurdi
    اتفضل اليك هذا Option Compare Database Private Sub ComFrq_AfterUpdate() Me.ComNam = Null Call Tesfie End Sub Private Sub command10_Click() Me.ComMnth = Null Me.ComFrq = Null Me.ComNam = Null Call Tesfie End Sub Private Sub command9_Click() DoCmd.OpenForm "KBT", acNormal End Sub Private Sub ComMnth_AfterUpdate() Me.ComFrq = Null Me.ComNam = Null Call Tesfie End Sub Private Sub Form_Load() Call Tesfie End Sub Function Tesfie() If Len(Me.ComMnth & "") = 0 And Len(Me.ComFrq & "") = 0 Then Me.ComNam.RowSource = "SELECT KBT.nam FROM KBT GROUP BY KBT.nam; " Me.ComFrq.RowSource = "SELECT KBT.frq FROM KBT GROUP BY KBT.frq; " ElseIf Len(Me.ComMnth & "") = 0 And Len(Me.ComFrq & "") <> 0 Then Me.ComNam.RowSource = "SELECT KBT.nam FROM KBT WHERE (((KBT.frq)=Forms!TSF!ComFrq)) GROUP BY KBT.nam; " Me.ComFrq.RowSource = "SELECT KBT.frq FROM KBT GROUP BY KBT.frq; " ElseIf Len(Me.ComMnth & "") <> 0 And Len(Me.ComFrq & "") = 0 Then Me.ComNam.RowSource = "SELECT KBT.nam FROM KBT WHERE (((KBT.mnth)=Forms!TSF!ComMnth)) GROUP BY KBT.nam; " Me.ComFrq.RowSource = "SELECT KBT.frq FROM KBT WHERE (((KBT.mnth)=[Forms]![TSF]![ComMnth])) GROUP BY KBT.frq; " ElseIf Len(Me.ComMnth & "") <> 0 And Len(Me.ComFrq & "") <> 0 Then Me.ComNam.RowSource = "SELECT KBT.nam FROM KBT WHERE (((KBT.mnth)=Forms!TSF!ComMnth) And ((KBT.frq)=Forms!TSF!ComFrq)) GROUP BY KBT.nam; " Me.ComFrq.RowSource = "SELECT KBT.frq FROM KBT GROUP BY KBT.frq; " End If End Function combo.accdb
  3. Shivan Kurdi
    حسب ما رأيت حضرتك فتحت موضوع اخر بها نموذجين و ثلاث كومبوبوكس وانا رديتك هناك لكن هنا حضرتك طلبت مسج بوكس
  4. Shivan Kurdi
    انا جربت لذلك اقول لك ما فيه مشكلة ... اذا تقدر ان تعمل لي فيديو عن الخطأ سنكون من المشكورين لكي القي نظرتا الى منطقة الخطأ و اشوف لها حل
  5. Shivan Kurdi
    ممكن تعمل لي فيديو للخطأ ... قم بتحميل القاعدة الجديدة في نفس الرابط الاكواد لا يظهر معي الخطأ
  6. Shivan Kurdi
    السلام عليكم ورحمة الله وبركاته حسب ما رأيت في المشاركات ان استاذ جععفر عطيتك رابط التفقيط واذا ما استفدت منه اتفضل ارفق نسخة مصغرة من القاعدة بياناتك لكي نعمل التعديل عليه
  7. Shivan Kurdi
    اضافتا الى طريقة استاذ جعفر اتفضل اليك هذا حسب طريقتك Private Sub Btn_Search_Click() Me.Refresh If IsNull(Me.Txt1) Or IsNull(Me.txt2) Then MsgBox "الرجاء ادخال التاريخ المحدد", vbInformation, "Error" Me.Txt1.SetFocus Else Call Cmd_All_Rec_Click Me.frm_General.Form.Filter = "[Talab_Date] between format(Forms![frm_Print]![Txt1],""dd/mm/yyyy"") and format(Forms![frm_Print]![txt2],""dd/mm/yyyy"") " Me.frm_General.Form.FilterOn = True End If End Sub Talabat_Sulef.rar
  8. Shivan Kurdi
    اليك هذا combo.accdb
  9. Shivan Kurdi
    حسب فهمي لسؤالك استخدم هذا =Sum(Nz([isal];0)) db.accdb
  10. Shivan Kurdi
    اتفضل استخدمت like [اکتب .... ] & "*" فی الاستعلام مصدر النموذج combo 1.accdb
  11. Shivan Kurdi
    اخفاء النماذج والجداول والوحدة النمطية بكلمة السر ما يفيد لان هناك امكانية كسر كلمة السر لوحدات النمطية
  12. Shivan Kurdi
    شو عملت حتى اشتغلت بشكل صحيح عندك ؟ لكي يستفيد الجميع
  13. Shivan Kurdi
    وکثير مرات انا عم استخدم طريقتك ... شكرا لك
  14. Shivan Kurdi
    حسب ما فهمت من مطلوبك اتفضل اليك هذا استعلام SELECT DISTINCTROW tabol_item.id_sand, tabol_item.id_fatora, tabol_item.sub_id, tabol_fatora.costmor_name, Sum(tabol_item.Qote_item) AS SumمنQote_item, Sum(tabol_item.item_prais) AS Sumمنitem_prais, tabol_fatora.shk_ok, tabol_fatora.user_add, tabol_fatora.date_fatora, Sum([Qote_item]*[item_prais]) AS Expr1, Nz(DLookUp("Sum([tabol_sdad_mord]![item_preis])","[tabol_sdad_mord]","[tabol_sdad_mord]![fatora_no]='" & [id_fatora] & "'"),0) AS Expr2 FROM tabol_fatora INNER JOIN tabol_item ON tabol_fatora.id_sand = tabol_item.id_sand GROUP BY tabol_item.id_sand, tabol_item.id_fatora, tabol_item.sub_id, tabol_fatora.costmor_name, tabol_fatora.shk_ok, tabol_fatora.user_add, tabol_fatora.date_fatora HAVING (((tabol_fatora.date_fatora) Between [forms]![form3]![h1] And [forms]![form3]![h2])); PROGRMS.rar
  15. Shivan Kurdi
    السلام عليكم ورحمة الله وبركاته انا كاحد من المشاركين في هذا المنتدى اعلم بأن هذا المنتدى هو منتدى تعليمي و نتبادل فيه الخبرات و نستفيد من البعض لذلك انا لا احب ان يتم المقارنة بين طريقي احد من الاعضاء لان كل واحد منهم ساعد كثير من الاعضاء اتفضل اشرح ما في جيبك و اعطي بين ايدي الاعضاء كما فعل الاعضاء الاخرين وخلي هم يأخذ ما يريدون لعل غدا تأخذ اجرك
  16. Shivan Kurdi
    تم استبدال
  17. Shivan Kurdi
    في شاشة استعلام الفواتير الاجمالي يساوي 380 هل تريد ان يكون في نموذج شاشة سداد الفواتير ايضا يطلع 380 اذا نعم اضف Sum فی هذا السطر الاسفل سيكون هكذا Me.TT1 = DLookup("sum([item_Sum])", "Q_111", "[id_fatora]='" & Me.fatora_no & "'") PROGRMS_Super Market 0801102018.rar
  18. Shivan Kurdi
    للجمع استخدم Sum ولكي تعدد لك استخدم count KYC.rar
  19. Shivan Kurdi
    ان شاء الله ساخبر الادارة المنتدى باستبدال الملفات ... الان ليس بمقدوري ان ابدله لذا سانتظر حتى اتصل باحد من الادارة المنتدى
  20. Shivan Kurdi
    لا للتكرار في نفس اليوم اذا استخدم هذا Private Sub links_BeforeUpdate(Cancel As Integer) If DCount("*", "[تسجيل الحضرور]", "[links]=" & Me.links & "and [DateAddIn]=#" & Me.DateAddIn & "#") > 0 Then MsgBox "تم الحضور هذا الطالب من قبل" Me.Undo Cancel = True End If End Sub
  21. Shivan Kurdi
    تم انا جربت وليس هناك مشكلة القي نظرتا الى الصور و لستة اشهر نعم وكان خطأ من عندي في مصدر كومبوبوكس لمدة التفعيل في كلا الملفين انا كتبت 265 بدل ان اكتب 365 وتم تصحيح هذا الخطأ وقريبا ساضع بين ايديكم في نفس المشاركة الاكواد كان هناك موضوع اخر انا عملت عن الحماية واستخدمت DLookUp اکثر من ثلاث مرات لكن هنا انا استخدمت مرة واحدة لا اظن ان يبطئ العمل وعندي هذا المشكلة غير موجودة ! لا اعرف ماذا اقول لك !! انها سهل جدا وحاول ان تضيفه عدد سنوات حسب رغبتك , انا فتحت هذا الموضوع لكي يسهل عليكم لكي تعرف الطريقة اذا تتم التسجيل في اي فترات من الترات الموجودة سيتم اظهار الرسالة اذا قرب من انهاء الفترة التسجيل ب 15 يوم او اقل من ذلك
  22. Shivan Kurdi
    نعم ... اعتذر
  23. Shivan Kurdi
    من الصعب جدا ان تجد ذلك وبالنسبة التسجيل في يوم الاخر !!؟ عندما المستخدم يعطيك الرقم الهارد ورقم المعالج ويختار المدة التفعيل بعدين حضرتك سيعطيه الرقم التسجيل وسيخبره بان هذا الكود تقدر تستخدمه في هذا اليوم فقط للتفعيل واذا لا تريد التفعيل الان اتصلني في يوم اللي تريد التفعيل اذا تشوف ان كتير من المواقع مثل فيس بوك و كوكل عند فتح حساب جيميل او ياهو بيرسل لرقم تلفونك كود مكونة من 6 ارقام اذا لا تستخدمه في مدة المحددة بعد ذلك لا يمكنك استخدامه وهذا حماية اخرى لحسابك وبنظري هذا جيد للأسف كان هناك خطأ في الكود ... لكن الان تقدر ان تنزل القاعدة من جديد .. تم اصلاح
  24. Shivan Kurdi
    سؤال : هل نسخت وحدة النمطية حتى عطيتك ذلك الرسالة ؟ لان لدي ما في مشكلة ولكن بعد حذف الوحدة النمطية بيعطيني نفس الرسالة
  25. Shivan Kurdi
    لماذا تستخدم رسائل لعمل شيء كهذا حسب ما قرأت انا اذا تستخدم نموذج وتختار منه تاريخ او شهر و كومبوبوكس خاص بالفريق وبعد ادخال تفتح نموذج كما طلبت هذا فقط رأي
×
×
  • اضف...

Important Information

  I accept