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

Shivan Rekany

الخبراء
  • Content count

    2,451
  • تاريخ الانضمام

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

  • Days Won

    99

Shivan Rekany last won the day on October 15

Shivan Rekany had the most liked content!

السمعه بالموقع

1,838 Excellent

عن العضو Shivan Rekany

  • الرتبه
    شفان ريكاني

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    ملاحظ
  • Location
    كوردستان / دهوك
  • Interests
    ادارة / برمجة

Contact Methods

  • Website URL
    https://www.facebook.com/Shivan1988
  • ICQ
    shivanrekany212@gmail.com
  • Yahoo
    Shivan_rekany212@yahoo.com

اخر الزوار

4,040 زياره للملف الشخصي
  1. شکرا لک استاذ @أبو إبراهيم الغامدي اتفضل اخي @sandanet الیک طريقة اخرى Dim strName As String Dim strFile As String Dim strPath As String Dim MyFileNam As String Dim SplFile MyFileNam = "*.jpg" strPath = "C:\Users\MyShiv\Desktop\Newfolder\" ' مسار الفولدر اللی بھا صور strFile = Dir(strPath & MyFileNam) Do While Len(strFile) > 0 SplFile = Split(strFile, "_") strName = SplFile(2) & ".jpg" ' لان عندنا فی اسماء الصور اثنين من ( _ ) ونريد اللي بعده Name strPath & strFile As strPath & strName strFile = Dir Loop واذا تريد راح ارفع لك القاعدة على ذلك لكن هناك ملاحظة : لا يجوز ان يكون هنالك اكثر من صور في اخره اي بعد ( _ ) الثاني بنفس الاسم او رقم
  2. ابد انا ما انتبھت من الاشارات \ / شكرا لك
  3. ممکن تفھمنی ماذا تريد بالضبط انا عطيتك تغيير الاسم باسم اخر ممكن توضح لي المطلوب بالضبط هل تريد ان يحذف اللي ما قبل (_) من كل الملفات في فولدر خاص ؟
  4. اعتذر انا فهمت انه لا يريد ان يعطي نتيجة بالسالب لكن الحمد لله انت عملت التعديل اذن سيد @محمود _ المصري لا استخدم Abs في كود ب تحياتي لكم
  5. اذن استخدم Abs مع الكود هكذا للكارتون A: Int(Abs(([SH_TOTL]-[B_TOTL]))/[t]) & " " & "كرتونة" وهذا للقطعة B: Abs([total]) Mod [t] & " " & "قطعة"
  6. اتفضل Dim strName As String Dim strFile As String Dim strPath As String strPath = "C:\Users\MyShiv\Desktop\" strFile = Dir(strPath & "2017-10-10_09.42.27_11.jpg") strName = "11.jpg" Name strPath & strFile As strPath & strName strFile = Dir
  7. اعتذر عن التدخلي في الموضوع اولا هناك سؤال هل العدد 100 هو عدد كمية الشراء ؟ و العدد 154 هو عدد البيع ؟ اذا نعم ، كيف يجوز ان نبيع شيء اكبر من اللي عندنا ؟
  8. فى الاستعلام كيف استخدم if

    IIF([MyNumber] >= 1 And [MyNumber] <= 10 ;5;IIF([MyNumber] >= 11 And [MyNumber] <= 20;15;0)) انا کتبت اذا كان رقمي بيكون بين 1 الى 10 حينئذ هذا الحقل خلي بيكون 5 واذا رقمي بين 11 الى 20 حينئذ هذا الحقل خلي بيكون 15 واذا رقمي لا يطابق مع شروطي اي بين 1 الى 20 حينئذ خلي بيكون هذا الحقل يساوي صفر
  9. فى الاستعلام كيف استخدم if

    لانالجملة فيها الحروف العربية لذلك ماراح نشوف مكان كل شي جيدا شوف راح اعطيك مثال بدون حروف العربية iff([city]="dddd";3;0) يعني اذا سيتي يساوي كلمة dddd حینئذ الحقل اللي نكتب فيها الكود يساوي 3 واذا لا يساوي dddd الحقل یساوی صفر اتمنێ ان یوصل لک المفھوم شکرا لک استاذ @ابا جودى
  10. فى الاستعلام كيف استخدم if

    استخدم iif الیک ھذا استعلام على ذلك SELECT sheet.city, IIf([city]="ميت غمر",1,IIf([city]="زفتى",2,IIf([city]="منصورة",3,0))) AS dd FROM sheet; تقدر ان تعطيه رقم صفر بدل النص تمتعديل test 7000.rar
  11. ھناک احتمال أن يكون خطأ في الاكواد افتح محرر فيجوال واعمل كما في الصورة وفي اي مكان عطيتك الخطأء اي تم اشارة بلون ازرق قم بتعديله واعمل حتى ينتهي منه وبعدين اعمل تحويل
  12. اذن تأكد من مسار الملف لا تخلي اي (.) نقطة فيها
  13. استأذن من استاذنا @أبو إبراهيم الغامدي السبب يرجع لانك فتحت القاعدة في ملف زيب اولا اعمل اكستراكت اي استخرج القاعدة الى اي مكان في جهازك وبعدين جربه راح يشتغل 100%
  14. IF Me.HaleAlDefia = "تم الدفع" Then Me.HaleAlDefia.Locked = True Else Me.HaleAlDefia.Locked = False 2 : IF Me.HaleAlDefia = "تم الدفع" Then Me.Mablax.Locked = True Else Me.Mablax.Locked = False 1 - 2 : IF Me.HaleAlDefia = "تم الدفع" Then Me.HaleAlDefia.Locked = True : Me.Mablax.Lucked = True Else Me.HaleAlDefia.Locked = False : Me.Mablax.Lucked = False HaleAlDefia ھو اسم الحقل اللی تکتب فیھا تم الدفع او لم یتم الدفع Mablax ھو حقل اللي تكتب فيها المبلغ وسيتم وضع الكود في حدث بعد تحديث للحقل HaleAlDefia والا ارفق القاعدة لكي نعمل عليها التعديل المطلوب وهناك طريقة اخري تفضل به استاذنا ابوخليل تقبل تحياتي
  15. تقدر تعطي كود بعد طبع او بعد تكتب المبلغ اي يكون المبلغ اكبر من صفر حينئذ يعمل قفل الحقل IF Me.MablaxNumber > 0 then Me.MablaxNumber.Locked = true else Me.MablaxNumber.Locked = False Me.MablaxNumber ھو اسم الحقل اللی تکتب فیھا المبلغ
×