نجوم المشاركات

وعليكم السلام انا رأيي لو كان التوزيع عشوائي او بالتوالي واحد ثم الذي يليه عموما تفضل هذا الكود يعمل حسب طلبك On Error GoTo err_g DoCmd.SetWarnings False DoCmd.RunSQL "DELETE Matches.*, * FROM Matches" DoCmd.SetWarnings True Dim rs, rs2 As Recordset Dim i, i2, c0, c1, c2 As Integer Set rs = CurrentDb.OpenRecordset("Qry1") Set rs2 = CurrentDb.OpenRecordset("Matches") c0 = DCount("*", "Qry1") c1 = c0 \ 2 c2 = c0 Mod 2 If c2 = 1 Then c1 = c1 + 1 rs.MoveFirst For i = 1 To c0 If rs.RecordCount = c1 + 1 Then rs2.MoveFirst For i2 = rs.RecordCount To c0 rs2.Edit rs2!player2 = rs!player rs2.Update rs2.MoveNext rs.MoveNext Next i2 If rs.RecordCount = c0 Then GoTo g Else rs2.AddNew rs2!player1 = rs!player rs2.Update rs.MoveNext End If Next i g: If c2 = 1 Then rs2.MoveLast rs2.Edit rs2!player2 = " بدون منافس" rs2.Update Else Exit Sub End If rs.Close rs2.Close err_g: Exit Sub Append2.rar

بارك الله فى حضرتك - شكرا جزيلا - ونفعك الله بعلمك

السلام عليكم تم التعديل على معادلات لإظهار كل العلامات حسب المطلوب... مع إضافة عمود لعد العلامات بمعادلات... بن علية تفريغ الاجازات بالكشف.rar

جرب اخي الفاضل المرفق بعد التعديل test444.rar

السلام عليكم تفضل الملف المرفق مع بعض التعديلات ومعادلات شبه طويلة قليلا... بن علية تفريغ الاجازات بالكشف.rar

تفضل Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) On Error GoTo err_Form_KeyDown temp_MYn1 = Me.sfrm_Search!MYn1 Select Case KeyCode Case vbKeyDown Me.sfrm_Search!MYn1 = 0 I_went = "Down" Me.sfrm_Search.Form.RecordsetClone.MoveNext Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf KeyCode = 0 Case vbKeyUp Me.sfrm_Search!MYn1 = 0 I_went = "Up" Me.sfrm_Search.Form.RecordsetClone.MovePrevious Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf KeyCode = 0 Case vbKeyReturn Me.sfrm_Search.Form.RecordsetClone.FindFirst "[Rajmsanf]='" & Me.sfrm_Search!MYn1 & "'" DoCmd.OpenForm "ادارج بفاتوره المبيعات" Forms![ادارج بفاتوره المبيعات]![رقم الصنف] = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf Forms![ادارج بفاتوره المبيعات]![اسم الصنف] = Me.sfrm_Search.Form.RecordsetClone!NaEMP Forms![ادارج بفاتوره المبيعات]![الكميه] = Me.sfrm_Search.Form.RecordsetClone!Arsid Forms![ادارج بفاتوره المبيعات]![السعر] = Me.sfrm_Search.Form.RecordsetClone!sarabaih Me.sfrm_Search.Form.RecordsetClone.Delete KeyCode = 0 End Select Exit_Form_KeyDown: Exit Sub err_Form_KeyDown: If Err.Number = 2113 Or Err.Number = 3021 Then If I_went = "UP" Then Me.sfrm_Search.Form.RecordsetClone.MoveNext Else Me.sfrm_Search.Form.RecordsetClone.MovePrevious End If Me.sfrm_Search!MYn1 = temp_MYn1 Resume Exit_Form_KeyDown Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 737.215.accdb.zip

اتفضل خليتنى اجرب كل اللى اتعلمته من الدوال المنطقية فى الفاجيوال بيسك يارب تقولى مش شغال هاجى اقتلك تمام.rar

اعتذر منك بشدة لاننا مشغول في هذه الايام اتفضل القي نظرتا الى المرفق هل تريد هذا المخزن.rar

الكود الذي عندك ، المفروض يجمع استعلامين عن طريق Union ، ويجب ان تكون حقول الاستعلامين المتشابهة تحت بعضها ، وانت تستخدم حقول الجدول table1 التاليه ، فرجاء كتابة اسماء الحقول المشابهة لها من الجدول Sales ، Select ID, earia, kind, date, esal_num, quant, acc_nam, acc_num, delev_dest, amount, wrong_acc FROM table1" جعفر

شوف الافكار دى لو عجبتك يمكنك نقلها الى مرفقك معالجة البيانات من الرقم القومى.rar

بعد اذن اخواني احبتي تفضل تم التعديل على المثال حسب فهمي لشرحك اتمنى ان يحقق مطلوبك aab.rar

انت تريد تحديد مثلا بداية تاريخ الاجر 1/1/2017 وتاريخ نهاية الاجر 31/1/2017 هذا شهر اذا كنت تريد بنفس هذه الطريقة لازم تسوي جدول منفصل تحط فيه الشهر مثلا 1-2-3 الاثنى عشر شهر وتحدد فيه تاريخ البداية وتاريخ النهاية وبذلك تستطيع الجمع بعد ذلك من الجدول حسب الفترات التي حددتها في هذا الجدول بالتوفيق

هذا ملف به فورمه للبحث ارجو ادراج اكوادكم الرائعه فيها حيث انها هنا لاتاتي بمطابقه الحرف الذي نبحث عنه فورمه بحث تصلح للمدارس.rar