محمد أبوعبدالله

وعليكم السلام ورحمة الله وبركاته جرب الحل التالي Expr1: IIf([total marks]>90;"ممتاز";IIf([total marks]>70;"جيد جدا";IIf([total marks]>60;"جيد";IIf([total marks]>50;"مقبول";IIf([total marks]<50;"راسب";"ناجح"))))) mark.rar تحياتي

وعليكم السلام ورحمة الله وبركاته واين تريد ظهور النتيجة ؟ تحياتي

تفضل اخي الكريم Db15.rar تحياتي

وللفائدة هذا التطبيق الذي تم التنفيذ عليه Db14.rar تحياتي

تفضل اخي الكريم وعذرا على التأخير Dim X As Integer X = (DCount("ItmNumber", "TItems")) ReDim itms(X) As String Dim itm As Integer For itm = 1 To DMax("ItmNumber", "TItems") itms(itm) = DLookup("ItmName", "TItems", "ItmNumber =" & itm) List1.AddItem (itms(itm)) Next تحياتي

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

وعليكم السلام ورحمة الله وبركاته اخي الكريم ضع الكود هنا ليستفيد به من يبحث عن نفس الموضوع تحياتي

السلام عليكم تفضل اخي الكريم Dim Z As String Z = (DCount("ItmNumber", "TItems")) تحياتي

وعليكم السلام ورحمة الله وبركاته اجعل قيمة xdate مخزنة في جدول بدلا من كتابتها في متغيير في vba تحياتي

بالتوفيق اخي الكريم تحياتي

تفضل اخي الكريم 2003.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تحياتي

بالتوفيق اخي الكريم تحياتي

وعليكم السلام ورحمة الله وبركاته جرب واعلمني بالنتيجة 2003.rar تحياتي

السلام عليكم تفضل اخي الكريم Private Sub Command12_Click() Dim rst As DAO.Recordset mySQL = "Select * From tab" mySQL = mySQL & " WHERE id Between " & [Forms]![Form1]![Text6] & " And " & [Forms]![Form1]![Text8] Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst For i = 1 To rst.RecordCount rst.Edit rst!num2 = Me.Text10 rst.Update rst.MoveNext Next Me.Child0.Requery End Sub Private Sub Command2_Click() Dim rst As DAO.Recordset mySQL = "Select * From tab" mySQL = mySQL & " WHERE id Between " & [Forms]![Form1]![Text6] & " And " & [Forms]![Form1]![Text8] Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst For i = 1 To rst.RecordCount rst.AddNew rst!num2 = Me.Text3 rst.Update rst.MoveNext Next Me.Child0.Requery End Sub D5.rar تحياتي

بالاضافة الى ما تفضل به استاذي الفاضل kanory وله الشكر اليك هذه الطريقة ارجو ان تفيدك باذن الله myCriteria = "[Gym].[startDate] >= #" & Format(Me.sd, "dd\/mm\/yyyy") & "# And [Gym].[startDate]<= #" & Format(Me.ed, "dd\/mm\/yyyy") & "#" myCriteria = myCriteria & " Or " myCriteria = myCriteria & "[Gym].[endDate] >= #" & Format(Me.sd, "dd\/mm\/yyyy") & "# And [Gym].[endDate]<= #" & Format(Me.ed, "dd\/mm\/yyyy") & "#" Me.subGym.Form.Filter = myCriteria Me.subGym.Form.FilterOn = True 1tray.zip تحياتي

السلام عليكم غير امتداد الملف من accdb / accde الى accdr تحياتي

بالتوفيق اخي الكريم تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تحياتي

تفضل اخي الكريم byanat.rar تحياتي

بالتوفيق اخي الكريم تحياتي

السلام عليكم يمكن جعل خاضية حقل combobox = allow multiple values = Yes انظر الجدول Table2 Db1.rar تحياتي

وعليكم السلام ورحمة الله وبركاته يمكن وضع مصدر البيانات للحقل الموجود بالتقرير هكذا =[Forms]![Form1]![Text1] بشرط ان يكون النموذج مفتوح تحياتي

جرب الآن واعلمني بالنتيجة إيقاف بالمدة.rar تحياتي

السلام عليكم نقوم اولاً بتصميم جدول وليكن = ChickDate وضنع فيه حقلين نوع تاريخ = XDate و XDate2 في حدث عند التحميل للنموذج الرئيسي نضع الكود التالي Private Sub Form_Load() Dim X1 As Date X1 = Format(Now(), "dd/mm/yyyy") Dim db As DAO.Database Dim Rs As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT ChickDate.*FROM ChickDate;") ' فحص السجلات اولاً If Rs.EOF Then ' في حالة انه لا يوجد سجلات يضع تاريخ اليوم في حقل XDate Rs.AddNew Rs("XDate") = X1 Rs.Update Rs.Close Else ' نفحص حقل XDate2 الذي به حقل بداية تشغيل البرنامج If Format(Rs("XDate2"), "dd/mm/yyyy") < X1 Then MsgBox "تم التلاعب بساعة الجهاز" Else ' نفحص حقل XDate اذا كان اكبر من تاريخ اليوم يغلق النموذج If Format(Rs("XDate"), "dd/mm/yyyy") < X1 + 5 Then MsgBox "end" End If End If End If End Sub تحياتي إيقاف بالمدة.rar