• الإعلانات

    • فيصل الحربي

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

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

abdoh

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

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

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

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

1 عادي

عن abdoh

  • الرتبة
    عضو
  1. تسلم اخوي شرح في غاية الروعة يعطيك العافية
  2. جزاك الله الف خير اخوي
  3. تعلم الأداة MsFlexGrid

    جزاك الله خيرا اخوي
  4. جزاكم الله خيرا جميعا ، وبارك الله فيكم
  5. اخواني الكرام السلام عليكم ورحمة الله وبركاته عندي مشكلة في كود البحث بين تاريخين باستخدام اداة combo ، ولم اتوصل لمعرفة حلها : هذا هو الكود Private Sub Command1_Click() Dim first As String Dim last As String Dim D1, M1, Y1 As Integer Dim D2, M2, Y2 As Integer D1 = Combo1.Text M1 = Combo2.Text Y1 = Combo3.Text first = D1 & "/" & M1 & "/" & Y1 D2 = Combo6.Text M2 = Combo5.Text Y2 = Combo4.Text last = D2 & "/" & M2 & "/" & Y2 If (Y2 < Y1) Or (Y2 = Y1 And M2 < M1) Or (Y2 = Y1 And M2 = M1 And D2 < D1) Or (Y2 = Y1 And D2 = D1 And M2 < M1) Or (M2 = M1 And D2 = D1 And Y2 < Y1) Then MsgBox "التاريخ الذي قمت بإختيارة خاطىء ", vbOKOnly, "تنبيه" Exit Sub End If Data1.RecordSource = "select * from sale where datee between " & "#" & Format(first, "dd/mm/yyyy") & "# And " & "#" & Format(last, "dd/mm/yyyy") & "# " Data1.Refresh End Sub وهذه صورة لواجهة الفورم في المرفقات عندما اقوم بالتنفيذ في جهازي لايقوم الكود بالبحث. وعندما جربت على جهاز اخر قام الكود بالبحث بشكل دقيق. الذي اريد معرفته ، هل الكود فيه أي خطأ؟ هذا اولا. وثانيا : لماذا الكود يعمل في جهاز دون جهاز، أي لماذا قام بالتنفيذ في جهاز اخر ولم يقم بالتنفيذ في جهازي ، ما هو السبب؟ وللعلم : أنا رابط البرنامج مع قاعدة البيانات باستخدام الاداة data وجزاكم الله خيرا
  6. egistry

    جزاك الله خيرا اخي