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

AlwaZeeR

الخبراء
  • Posts

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

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

  • Days Won

    21

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

  1. فعلا الفكرة رائعة وان شاء الله يتم تطويرها بشكل اجمل من ذلك على ما اعتقد تستطيع استخدام حذف مجلد بعد اغلاق القاعدة مثلا ولن يلاحظ احد ان هناك مجلد بهذا الاسم
  2. جميل جدااااا عمل يستحق التقدير :: خالص تحياتي
  3. وعليكم السلام ورحمة الله وبركاته لا شيء يختفي هكذا من تلقاء نفسه تأكد من التنسيق الشرطي للحقول او تأكد من أي حدث عند الفتح او التحميل او الحالي يختص بامر visible او ارفق مثالا يحتوي على النموذج المشار اليه ::
  4. وعليكم السلام ورحمة الله وبركاته =Int([minlate]/60) & ":" & Format([minlate] Mod 60,"00")
  5. وعليكم السلام ورحمة الله وبركاته ركز: افتح النموذج المستمر بشكل عادي اختر علامة التبويب: الصفحة الرئيسية من خيار لون التعبئة/ الخلفية البديل اختر اللون الذي تريد لاحظ الصورة
  6. تفضل اخي أبو زاهر واعذرني لقلة تواجدي للانشغال في بداية العام الدراسي ضع هذا الكود في حقل الشهر الحالي: =DSum("[Alkmiah]","[Hrakatsanf]","[ID_Sanf]='" & [ID_Sanf] & "'" & " And [Nwaha] = 'مبيعات' And [Atarih] >= #" & Format(DateSerial(Year(Date()),Month(Date()),1),"yyyy-mm-dd") & "#")
  7. وهذا مع شرط الصنف اخي أبو زاهر استبدل الشرط السابق بهذا الشرط مع تعديل المتغير (0) حسب حاجتك: =DSum("[Alkmiah]","[Hrakatsanf]","[ID_Sanf]='" & [ID_Sanf] & "'" & " And [Atarih] <= #" & ZaherMnth(0) & "#")
  8. وعليكم السلام ورحمة الله وبركاته حسب ما فهمت : تريد ان تظهر الكمية المباعة حتى تاريخ اليوم، قبل شهرين، وهكذا ... وليس بين تاريخين ،،، هناك فرق تم استخدام الوحدة النمطية التالية: Public Function ZaherMnth(M As Integer) If Date + 1 = DateSerial(Year(Date), Month(Date) + 1, 1) Then ZaherMnth = DateSerial(Year(Date), Month(Date), 1) - 1 Else If Day(DateSerial(Year(Date), Month(Date) - M, Day(Date))) = Day(Date) Then ZaherMnth = DateSerial(Year(Date), Month(Date) - M, Day(Date)) Else ZaherMnth = DateSerial(Year(Date), Month(Date), 1) - 1 End If End If End Function لارجاع التاريخ حسب المتغير M ثم استخدمنا الاستدعاء التالي في الحقول المراد اظهار النتيجة فيها: =DSum("[Alkmiah]","[Hrakatsanf]","[Atarih] <= ZaherMnth(0)") مع ملاحظة ان صفر هو المتغير M والصفر حتى تاريخ اليوم وواحد قبل شهر واثنان قبل شهرين وهكذا ... جرب ووافني بالنتيجة تحياتي abu zaher.rar
  9. اخي العزيز kanory لماذا الأسف؟؟ لا حاجة لذلك، فكلما كثرت الحلول زاد النجاح تحياتي
  10. استخدم: SendKeys قبل أي اختصار بين الاقواس BACKSPACE {BACKSPACE}, {BS}, or {BKSP} BREAK {BREAK} CAPS LOCK {CAPSLOCK} DEL or DELETE {DELETE} or {DEL} DOWN ARROW {DOWN} END {END} ENTER {ENTER}or ~ ESC {ESC} HELP {HELP} HOME {HOME} INS or INSERT {INSERT} or {INS} LEFT ARROW {LEFT} NUM LOCK {NUMLOCK} PAGE DOWN {PGDN} PAGE UP {PGUP} PRINT SCREEN {PRTSC} RIGHT ARROW {RIGHT} SCROLL LOCK {SCROLLLOCK} TAB {TAB} UP ARROW {UP} F1 {F1} F2 {F2} F3 {F3} F4 {F4} F5 {F5} F6 {F6} F7 {F7} F8 {F8} F9 {F9} F10 {F10} F11 {F11} F12 {F12} F13 {F13} F14 {F14} F15 {F15} F16 {F16 هكذا: SendKeys "{BACKSPACE}"
  11. وعليكم السلام ورحمة الله وبركاته لا اعرف ما الغرض من ذلك لكن لم اسمع انه يمكن التحكم بمحددات السجلات يمينا او يسارا عموما : تستطيع ذلك بالتحايل وذلك بوضع النموذج تعديل الطلبية في نموذج جديد وتتحكم بالنموذج الفرعي الذي هو تعديل الطلبية يمينا ويسارا تفضل المرفق :: Abuuu.rar
  12. وعليكم السلام ورحمة الله وبركاته استخدم: ="1" & Format([f_date],"yy") & Format([f_date],"mm") & Format([f_date],"dd") & Format([number],"0000")
  13. دعوات من انسان طيب القلب مثلك ،،، بالدنيا وما فيها ولك بالمثل ولعامة المسلمين :: تحياتي
  14. وعليكم السلام ورحمة الله وبركاته خلينا نجرب نغير تنسيق التاريخ جرب ووافني بالنتيجة Select Case MbAll Case 1 T = Format(DateAdd("m", -12, Date), "yyyy-mm-dd") Case 2 T = Format(DateAdd("m", -6, Date), "yyyy-mm-dd") Case 3 T = Format(DateAdd("m", -3, Date), "yyyy-mm-dd") Case 4 T = Format(DateAdd("m", -1, Date), "yyyy-mm-dd") End Select
  15. الف مبروك اخي العزيز Kanory بالتوفيق 👍
  16. وعليكم السلام ورحمة الله وبركاته EjAbuZaher.rar
  17. تفضل: ضعه في حقل التقرير =Nz([Empb],"بدون")
  18. وعليكم السلام ورحمة الله وبركاته تفضل عزيزي: Database1 (1).rar
  19. وعليكم السلام ورحمة الله وبركاته استخدم التنسيق الشرطي اختر تعبير : وضع IsNull([YourField]) مع كتابة السم الحقل الخاص بك بدل YourField ولا تنسى تنسيق الألوان بحسب ما تريد لون الخلايا الفارغة
  20. حياك الله اخي العزيز عبد اللطيف كنت اكتب لك فظهر ردك الاخير
  21. تفضل لعل هذا الامر يكون ما تريده حياك الله اخي الكريم test00 987.rar
  22. لا اعرف ما المغزى وما الهدف من ذلك ان كان ما ذكر سابقا لا يفي بالغرض لو توضح اكثر ماذا تريد قد نجد لك حلا افضل
  23. وعليكم السلام ورحمة الله وبركاته هذا ما قصده الحبيب صالح استبدل الرقم خمسة بمربع نص غير منضم وسميه مثلا x test0 987.rar
  24. احسنت القول اخي جعفر رب دعوة من احد الاخوة بظهر غيب تكون سبباً في نجاتنا ونعم الاخوة :: تحياتي لكم جميعا
×
×
  • اضف...

Important Information