• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

أبو هادي

اعضاء
  • عدد المشاركات

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

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

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

0 عادي

عن أبو هادي

  • الرتبة
    خبير أكسس

طرق الإتصال

  • ICQ 0
  1. السلام عليكم توصلت إلى حدث Validate وهو يطابق BeforeUpdate في الأكسس . شكرا لكم . تحياتي .
  2. السلام عليكم عيدكم مبارك وكل عام وأنتم بخير ، أخواني أود الحصول على ما يقابل حدثي BeforeUpdate و AfterUpdate في الأكسس . علما أن ما أود الوصول إليه سوف يكون في خدمة برامج الفجوال والأكسس ، فأرجو ألا تبخلوا علينا بالإجابة . تحياتي .
  3. كيفية حساب الفرق بين تاريخين

    السلام عليكم http://www.officena.com/ib/index.php?showtopic=375 تحياتي .
  4. الى الاعضاء الأعزاء

    السلام عليكم هنا الحل : http://www.arabteam2000.com/ib/index.php?s...showtopic=17151 نسألك الدعاء . تحياتي .
  5. مشكله فى تحويل التاريخ

    السلام عليكم موضوع آخر لنفس المشكلة : http://www.arabteam2000.com/ib/index.php?s...=هىٌي,or,ميلçïي تحياتي .
  6. السلام عليكم رد الأخ alali100 صحيح 100% ولكنه سيعطيك النتائج بالأيام ، وللحصول على النتائج بالساعات ما عليك إلا أن تضرب ناتج الأيام في 24 وذلك كالتالي : (Nz([toTime])-Nz([fmTime]))*24 بالطبع سيكون الناتج بشكل رقم يعني لو كان الناتج 5 ساعات ونصف سيظهر 5.50 بدلا من 5:30 . تحياتي .
  7. التواريخ بالأكسس ؟

    السلام عليكم ما كان يجب علي أن أعقب بعد أن تصدى للموضوع أخي الفاضل أبو هاجر . ولكن ما دفعني للرد هو تعطل عملية البحث في الموقع فأرجو المعذرة من أخي أبو هاجر . الحل هو استخدامك لتقويم أم القرى إذا كنت من السعودية وتصل إليه حسب التالي : لو رجعت خطوة واحدة للخلف ثم ذهبت إلى أعلى الصفحة سترى هناك منتدى مشاريع أكسس – الدروس العلمية وتطبيقاتها يحتوي على موضوع مثبت لأخينا العزيز حارث باسم خلاصة حول تقويم أم القرى . تحياتي .
  8. تهنئة

    أبارك لأخي رضا الزواج , وأتمنى له حياة سعيدة مليئة بالحب والمودة ، وأن ينعم الله عليه بالذرية الصالحة الطيبة .
  9. السلام عليكم الأخ خضر .. بعد التحية : في صندوق بيانات الكاتب يظهر من ضمن البيانات تنبيه وجنبها خمس مربعات و 0% فما هذه المربعات هل هي حسنات أم سيئات ، آمل أن تكون حسنات . كما أن لقبي اختفى فهل هذا نتيجة خطأ فني أم هو تعديل للألقاب ، مع ملاحظة أني لست حريصا على الألقاب ولكن هي زيادة معرفة لنا بما يكنه الموقع لأعضائه من تقويم وتقدير وتثمين لتاريخ ومسيرة التعاون . البحث لا يعمل معي فهل هي مشكلة عامة أم مشكلة صلاحيات ؟ تحياتي .
  10. السلام عليكم يوجد رد آخر في موقع أوفيسنا . تحياتي .
  11. السلام عليكم يوجد رد على الرابط التالي : http://www.officena.com/ib/index.php?showtopic=511 تحياتي .
  12. كيف يمكن تحويل التاريخ

    السلام عليكم هذا كود آخر للتحويل من الميلادي إلى الهجري بلغة البيسك سهل يمكن تحويله للباسكال وهو من كتابة أحد الأخوة في منتدى PHP ، وليس لي منه إلا التحويل فقط ، على الرابط التالي : http://www.arabteam2000.com/ib/index.php?s...view=getnewpost تحياتي .
  13. السلام عليكم الأخ dark blood .. لقد دخلت على الموقع ولم أعرف أي كود بالضبط تتحدث عنه ولكن لفت نظري دالة تحويل باسم arabicDate . فإذا هي المقصودة فقط قمت بتحويلها للـ VB : Function JulGreg2Hijri(ByVal y As Integer, _                    ByVal m As Byte, _                    ByVal d As Byte) As String  Dim jd As Long  Dim l As Long  Dim n As Integer  Dim j As Integer    If y = 1582 And m = 10 Then    If d >= 5 And d <= 14 Then      JulGreg2Hijri = "Wrong entry"      Exit Function    End If  End If    If y > 1582 Or (y = 1582 And m > 10) Or (y = 1582 And m = 10 And d > 14) Then    jd = ard_int((CLng(1461) * (y + 4800 + ard_int((m - 14) / 12))) / 4)    jd = jd + (ard_int((367 * (m - 2 - 12 * (ard_int((m - 14) / 12)))) / 12))    jd = jd - (ard_int((3 * (ard_int((y + 4900 + ard_int((m - 14) / 12)) / 100))) / 4))    jd = jd + (d - 32075)  Else    jd = CLng(367) * y - ard_int((7 * (y + 5001 + ard_int((m - 9) / 7))) / 4) + ard_int((275 * m) / 9) + d + 1729777  End If    l = jd - 1948440 + 10632  n = ard_int((l - 1) / 10631)  l = l - CLng(10631) * n + 355   '// Correction: 355 instead of 354  j = (ard_int((10985 - l) / 5316)) * (ard_int((50 * l) / 17719)) + (ard_int(l / 5670)) * (ard_int((43 * l) / 15238))  l = l - (ard_int((30 - j) / 15)) * (ard_int((CLng(17719) * j) / 50)) - (ard_int(j / 16)) * (ard_int((CLng(15238) * j) / 43)) + 29  m = ard_int((24 * l) / 709)  d = l - ard_int((709 * m) / 24)  y = 30 * n + j - 30  JulGreg2Hijri = d & "/" & m & "/" & y End Function Sub test()  Dim K As Byte  For K = 4 To 15    MsgBox CDate(DateSerial(1582, 10, K)) & Chr(13) & JulGreg2Hijri(1582, 10, K)  Next K End Sub علما أني أضفت إضافة بسيطة لفحص صحة التاريخ المدخل حيث الدالة تعمل للتاريخ الدولي أي اليولياني و الجريجوري . وأعتقد أن أكثر لغات البرمجة لا تستخدم هذا التاريخ بل تستخدم الجريجوري فقط حيث لا وجود لمسألة عشرة الأيام لشهر أكتوبر 1582م . كما أود أن ألفت الانتباه وذلك أيضا لو كانت هذه الدالة هي المقصودة فأن هذا الهجري ليس هجريا فلكيا بل يسمى هجري قياسي . أما الفلكي فهو كالتقاويم المستخدمة بالسعودية والكويت وقطر . تحياتي .
  14. برنامج مكتبة

    السلام عليكم شكرا أخي الوارث على دعاءكم الكريم وحديثكم الطيب الذي لن أستطيع أن أجاريك فيه . وتمنياتي لكم رحلة موفقة وأن تعود لنا بالسلامة إن شاء الله تعالى . أنا تحت أمركم من أي مكان كان وفي أي وقت . تحياتي .
  15. السلام عليكم مثال 2 في 1 . Form2 مثال للشجرة . Form1 مثال لقاموس الترجمة للأسماء . تحياتي . treectrl.zip