hishamnasr

استعمل الكود التالي Dim x(10) As Integer, a As Integer Private Sub Command1_Click() l1: t = Int(Rnd * 11) For i = 0 To a If t = x(a) Then GoTo l1 Next a = a + 1 End Sub Private Sub Form_Load() a = 0 End Sub في كل مرة x(a) ستأخذ قيمة عدد غير موجود مسبقاً :wacko…

برنامجك لا يستطيع الوصول لاداة الداتا ريبورت حاول انزال ملف الdll من source غير الذي عندك و أعد تحزيم البرنامج مرة أخرى

الله يعطيك العافية و الله خدمتني خدمة كنت في حاجة عاجلة لها

السلام عليكم لو تم حذف المشاركات و الأسئلة المكررة فقط ستتقلص عدد الصفحات بنسبة كبيرة

باستخدام كريستال ريبورت 4 و أثناء تصميم التقرير يطلب الكريستال مسار الداتا بيز ... بعد تحزيم البرنامج اريد تغيير ذلك المسار ... المشكلة انه الكريستال ريبورت لا يقبل مسار relative لمسار البرنامج اي لا يمكن في الكريستال تحديد المسار بapp.path و لكن يلزم بالمسار …

جرب ال وصلة دي

السلام عليكم اعمل في صفحة بالasp و اريد ان انقر على صورة تقوم باضافة الصفحة الى قائمة favorite فما هو الكود للاضافة لقائمة favorite

جرب الكود اتالي Private Sub Command1_Click() On Error Resume Next While Not Data1.Recordset.EOF If dtpicker1.Value = Date And dtpicker2.Value = Time Then MsgBox "It's time" Exit Sub End If Data1.Recordset.movenext Wend End Sub :rolleyes:

في الخطوة الرابعة او الخامسة اثناء تصميم التقرير ستجد خيار فيه الترتيب حسب أي عمود

في الجزء الموجود في الموديول حول القيم private الي public و اضف menu و اعطها الاسم MyMenu اضف اليها قائمتين فرعيتين...عندها ستظهر الصور من picture box الى القائمتين الموجودتين في Mymenu

السلام عليكم ممكن شرح بسيط للكود لأني لم استطيع التعامل معه

اليك كود ارتجالي data1.recordset.movelast x=data1.recordset..recordcount data1.recordset.movefirst if text1.text=text5.text then k=msgbox("this is the record that you are looking for",vbcritical,"HishamNasr") exit sub end if for i=2 to x data1.recordset.movene…

استعمل ادوات الرسم العادية الرابط موجود في التوقيع الشخصي مرفق فيه مثال لرسم دوال الجيب و الظل

استعمل ادوات الرسم العادية الرابط موجود في التوقيع الشخصي

في الحالة الاولى اجعل التاريخين 31/12/2004 و حتى 15/1/2005 و هي 15 يوم لا يمكنك طرح يوم 1/1 لانه من ضمن الاجازة هذا ما قصدته انا اعلاه في المشاركة8

dtpicker هي اداة تجدها في project>components ثم قم باختيار microsoft windows common controle2-6 0ستجد مجموعة من الادوات اضيفت الى شريط الادوات من بينها dtpicker و هي اختصار ل date & time picker يمكن من custom من الخواص جعلها تقبل التاريخ او الوقت . قم بربطها ب…

مافي اي خطأ من يوم 2 و حتى يوم 10 8 أيام و هي 10-2 =8 و من يوم 1 الي يوم 15 14 يوم 15-1 =14 لو حسبتها صح العمليتين مافي بينهم فرق

من البديهي انك اذا بدأت الاجازة يوم 2/8 و حتى 3/8 ( باعتبار ان هذين يومين) فانك تطرح اخر يوم في الاجازة ناقصاً اليوم الذي يسبق الاجازة و هو يوم 1/8 و ليس 2/8 لأن 2/8 هو من ضمن الاجازة

Private Sub Command1_Click() If Data1.Recordset.EOF Then Data1.Recordset.MoveFirst If dtpicker1.Value = Date And dtpicker2.Value = Time Then d = MsgBox("it s time", vbCritical, "HishamNasr") Data1.Recordset.MoveNext End If End Sub

أظنني فهمت قصدك انت ستضع ايام الشهر في صفوف و اعمدة و كانها في جدول فتتحرك بالكود حتى تصل الى الخانة التي جميع الخانات التي حولها تملك قيمة أقل منها اوعدك ان شاء الله اول برنامج ساشارك به غدا صباحا هو برنامجك:)