Shivan Rekany

اتفضل هذا لتكرار 1 Private Sub أمر20_Click() On Error GoTo Err_أمر20_Click Dim Eded As Integer Dim I As Integer Eded = InputBox("اکتب عدد سجلات التکرار", "عدد الكرارات") DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70 For I = 1 To Eded DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append Next Exit_أمر20_Click: Exit Sub Err_أمر20_Click: MsgBox Err.Description Resume Exit_أمر20_Click End Sub وهذا للتكرار 2 Private Sub أمر21_Click() DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append Me.ملاحظات = "": Me.[رقم الملف] = "": Me.[رقم التسجيل] = "": Me.المبلغ = "": Me.الاسم = "" Me.Refresh End Sub اليك المرفق test5005.rar

وجزاك الله كل خير وللمنفعة اكثر اليك طريقة اخر Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim intShiftDown As Integer, intAltDown As Integer Dim intCtrlDown As Integer ' Use bit masks to determine which key was pressed. intShiftDown = (Shift And acShiftMask) > 0 intAltDown = (Shift And acAltMask) > 0 intCtrlDown = (Shift And acCtrlMask) > 0 ' Display message telling user which key was pressed. If KeyCode = vbKeyF1 And intShiftDown Then MsgBox "تم الضغط على مفتاح شيفت و ايف وان": KeyCode = 0 If KeyCode = vbKeyF1 And intAltDown Then MsgBox "تم الضغط علي مفتاح الت و ايف وان": KeyCode = 0 If KeyCode = vbKeyF1 And intCtrlDown Then MsgBox "تم الضغط على مفتاح كنترول و ايف وان": KeyCode = 0 End Sub

اتفضل استخدم هذا Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF1 And Shift = 2 Then MsgBox "ff" KeyCode = 0 End If End Sub هو للمفتاح كنترول مع ايف وان واذا تريد تستخدم مفتاح شيفت مع ئيف وان غير رقم 2 الى رقم واحد فقط تحياتي

غير خاصية النموذج Key Preview الى True او عند فتح النموذج استخدم هذا الكود Me.KeyPreview = True وبعدين فقط عليك هذا الكود و عند الضغط بمفتاح كنترول و ايف 1 او شيفت و ايف 1 راح يظهر لك مسج Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF1 Then MsgBox "dd" End If End Sub

لا ليس كذلك الطريقة السؤال والجواب اذا تم الجواب على الاسئلة بطريقة صحيحة سيتم فتح النافذة ليتغير الرقم سري والطريقة الثانية بواسطة ايميل وكود خاص بيرسل له الى الايميل خاص به اذا كتب ايميله بصحيح و ايضا يجب عليه ان يفتح بريده لكي يعرف على الكود المكونة من 6 ارقام وراح يدخل الكود في النموذج بعدين سيفتح النافذة تغيير رقم السري

سؤالك ليس واضحة بما يكفي الرد عليه

احذف الاستعلامين واليك هذا استعلام SELECT TTaweedh.EmbNo, First(TTaweedh.EmbName) AS [EmbName حقل], Count(TTaweedh.EmbName) AS [عدد المكررات] FROM TTaweedh GROUP BY TTaweedh.EmbNo, TTaweedh.EmbName HAVING (((Count(TTaweedh.EmbName))>1)); UNION SELECT TTkleef.EmbNo, First(TTkleef.EmbName) AS [EmbName حقل], Count(TTkleef.EmbName) AS [عدد المكررات] FROM TTkleef GROUP BY TTkleef.EmbNo, TTkleef.EmbName HAVING (((Count(TTkleef.EmbName))>1)); مثال.rar

نحن عطيت هذه التسميات للعرفان بدل تسميات الحقولنا في الاستعلام اللي بيعمل فيها المعادلات واذا تلقي نظرتا الى الاستعلام عند الاستدعاء ستجد بدل هذه التسميات اسماء الحقول الحقيقية اتفضل تم تغيير طفيف في الفانكشن اليك فانكشن Public Function Sh(NuKind As Integer, Ser As Integer, Trav As Integer, HousValDult As Currency, HospValDult As Currency, _ BusTicValDult As Currency, VisaVal As Currency, SpecialDisc As Double, FligTicValDult As Currency, _ HousValChlid As Currency, HospValChlid As Currency, BusTicValChlid As Currency, FligTicValChlid As Currency, _ HousValBaby As Currency, HospValBaby As Currency, BusTicValBaby As Currency, FligTicValBaby As Currency) Dim Shiv If Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(BusTicValDult, 0) + Nz(VisaVal, 0)) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 2 Then Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(FligTicValDult, 0) + Nz(VisaVal, 0)) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(BusTicValDult, 0)) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(FligTicValDult, 0)) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then Shiv = (Nz(HousValDult, 0) + Nz(BusTicValDult, 0)) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then Shiv = (Nz(HousValDult, 0) + Nz(FligTicValDult, 0)) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then Shiv = Nz(BusTicValDult, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then Shiv = Nz(FligTicValDult, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then Shiv = (Nz(BusTicValDult, 0) + Nz(VisaVal, 0)) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then Shiv = (Nz(FligTicValDult, 0) + Nz(VisaVal, 0)) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 6 Then Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(VisaVal, 0)) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 7 Then Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0)) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 8 Then Shiv = Nz(HousValDult, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(BusTicValChlid, 0) + Nz(VisaVal, 0)) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0) + Nz(VisaVal, 0)) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(BusTicValChlid, 0)) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0)) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then Shiv = (Nz(HousValChlid, 0) + Nz(BusTicValChlid, 0)) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then Shiv = (Nz(HousValChlid, 0) + Nz(FligTicValChlid, 0)) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then Shiv = Nz(BusTicValChlid, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then Shiv = Nz(FligTicValChlid, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then Shiv = (Nz(BusTicValChlid, 0) + Nz(VisaVal, 0)) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then Shiv = (Nz(FligTicValChlid, 0) + Nz(VisaVal, 0)) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 6 Then Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(VisaVal, 0)) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 7 Then Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0)) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 8 Then Shiv = Nz(HousValChlid, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(BusTicValBaby, 0) + Nz(VisaVal, 0)) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0)) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(BusTicValBaby, 0)) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0)) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then Shiv = (Nz(HousValBaby, 0) + Nz(BusTicValBaby, 0)) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then Shiv = (Nz(HousValBaby, 0) + Nz(FligTicValBaby, 0)) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then Shiv = Nz(BusTicValBaby, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then Shiv = Nz(FligTicValBaby, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then Shiv = (Nz(BusTicValBaby, 0) + Nz(VisaVal, 0)) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then Shiv = (Nz(FligTicValBaby, 0) + Nz(VisaVal, 0)) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 6 Then Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(VisaVal, 0)) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 7 Then Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0)) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 8 Then Shiv = Nz(HousValBaby, 0) ElseIf Nz(NuKind, 0) Then Shiv = 0 Else Shiv = "" End If Sh = Shiv - ((Shiv) * Nz(SpecialDisc, 0)) End Function واليك قاعدة test (1).rar

اشوف ان اذا لا يكون هناك اي سجل في النموذج الفرعي بيعطيك الخطأ لذلك استخدم ھذا =IIf(IsError([fary1]![sh]);0;[fary1]![sh])

انا استخدم طريقتين اخرين والمستخدم بيختار احد الطرق وهو 1 / يجب عليه ان يتم الجواب على سؤالين وهو قمت باختياره عند اضافة الحساب 2 / يجب ان يدخل بريده الاكتروني اللي في حسابه بالضبط و البرامج راح يرسله رقم مكونة من 6 ارقام وهذا الرقم الذي ارسله الى بريده يستخدم لمدة 10 دقائق فقط اذا ما وصل الى ذلك الرقم في ذلك المدة ما راح يقدر ان يغير الرقم سري خاص به واذا وصل اليه راح يدخل في حقل خاص بعدين راح يفتح يقدر يغير رقم سري تابعه

تم عمل ھذا فانكشن Public Function Sh(NuKind As Integer, Ser As Integer, Trav As Integer, HousValDult As Currency, HospValDult As Currency, _ BusTicValDult As Currency, VisaVal As Currency, SpecialDisc As Double, FligTicValDult As Currency, _ HousValChlid As Currency, HospValChlid As Currency, BusTicValChlid As Currency, FligTicValChlid As Currency, _ HousValBaby As Currency, HospValBaby As Currency, BusTicValBaby As Currency, FligTicValBaby As Currency) If Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then Sh = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(BusTicValDult, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 2 Then Sh = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(FligTicValDult, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then Sh = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(BusTicValDult, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then Sh = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(FligTicValDult, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then Sh = (Nz(HousValDult, 0) + Nz(BusTicValDult, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then Sh = (Nz(HousValDult, 0) + Nz(FligTicValDult, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then Sh = Nz(BusTicValDult, 0) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then Sh = Nz(FligTicValDult, 0) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then Sh = (Nz(BusTicValDult, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then Sh = (Nz(FligTicValDult, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 6 Then Sh = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 7 Then Sh = (Nz(HousValDult, 0) + Nz(HospValDult, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 8 Then Sh = Nz(HousValDult, 0) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then Sh = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(BusTicValChlid, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then Sh = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then Sh = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(BusTicValChlid, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then Sh = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then Sh = (Nz(HousValChlid, 0) + Nz(BusTicValChlid, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then Sh = (Nz(HousValChlid, 0) + Nz(FligTicValChlid, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then Sh = Nz(BusTicValChlid, 0) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then Sh = Nz(FligTicValChlid, 0) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then Sh = (Nz(BusTicValChlid, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then Sh = (Nz(FligTicValChlid, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 6 Then Sh = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 7 Then Sh = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 8 Then Sh = Nz(HousValChlid, 0) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then Sh = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(BusTicValBaby, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then Sh = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then Sh = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(BusTicValBaby, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then Sh = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then Sh = (Nz(HousValBaby, 0) + Nz(BusTicValBaby, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then Sh = (Nz(HousValBaby, 0) + Nz(FligTicValBaby, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then Sh = Nz(BusTicValBaby, 0) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then Sh = Nz(FligTicValBaby, 0) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then Sh = (Nz(BusTicValBaby, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then Sh = (Nz(FligTicValBaby, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 6 Then Sh = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 7 Then Sh = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 8 Then Sh = Nz(HousValBaby, 0) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) Then Sh = 0 Else Sh = "" End If End Function وتم استدعائه في الاستعلام هكذا Expr1: sh(Nz([Num_kind];0);Nz([service];0);Nz([Travel];0);Nz([housing_Valueadult];0);Nz([hospitality_Valueadult];0);Nz([Bus_ticket_valueadult];0);Nz([Visa_value];0);Nz([SpecialDiscount];0);Nz([Flight_ticket_valueadult];0);Nz([housing_Valuechild];0);Nz([hospitality_Valuechild];0);Nz([Bus_ticket_valuechlid];0);Nz([Flight_ticket_valuechild];0);Nz([housing_Valuebaby];0);Nz([hospitality_Valuebaby];0);Nz([Bus_ticket_valuebaby];0);Nz([Flight_ticket_valuebaby];0)) لكن هناك ملاحظة اذا ماكان على الخطأ ايجب ان نعمل ضرب الناتج في حقل ديسكونت لان حقل ديسكونت هو نسبة مئوية لكن انت عملت عملية ناقص اتفضل مع القاعدة test.rar

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

السلام عليكم ورحمة الله وبركاته انا تأخرت كتير على هذا الموضوع الجميل انا استخدمت على ويندوز 7 - 32 بت اوفيس 2010 - 32 بت وحقا طريقة رائعة جدا اسمح لي ان ارد عليك يا @kaser906 اتفضل اليك هذا وفتحه هل وصلت للنتيجة المطلوبة ؟ jj.rar

اتفضل القي نظرتا الى مصدر كومبوبوكس الادارة db1.rar

الخطأ يرجع لعدم ارفاق القاعدة هنا ارفق القاعدة لتتجنب من الاحتماليات

اولا ستحدد جزء التفصيل وبعدين في الخصائص ستغير اللون لخاصیة Alternate Back Color كما مبينة في الصورة اللون البديل.rar

اتفضل DoCmd.RunCommand acCmdSelectRecord ' لتحديد السجل DoCmd.RunCommand acCmdDeleteRecord ' لحذف السجل ملاحظة اذا تفتح محرر الفيجوال و تكتب Docmd و بعدبن نقطة سيعطيك احتماليات اي سيعطيك ليست وتختاره تحياتي

بعد ما زاد ای حقول واذا ذاد الحقول حينئذ سيكون عندنا كلام \ نحن استخدمنا دالة اييف في الاستعلام ... ودالة اييف استخدامه هكذا اذا ( هنا نكتب الشرط ; هنا اذا حصل الشرط ; هنا اذا ما حصل الشرط ) اذا عندنا اكثر من احتمالية سنزيد اييف تاني هكذا اي بدل اذا ما حصل سنكتب اييف اخر اذا ( نكتب شرطنا ; اذا حصل الشرط ; اذا ( نكتب شرط تاني ; اذا حصل الشرط الثاني ; اذا ( شرط ثالث ; اذا حصل الشرط ; واذا ما حصل اي شروط نكتب ما نريد )))

استأذن من استاذ @Amr Ashraf لا يمكنك تستخدم دي ماكس بل تقدر تستخدم هذا الكود في الاستعلام اعلى قيمة للحقول: IIf([رجال]>=[نساء] And [رجال]>=[اطفال];[رجال];IIf([نساء]>=[رجال] And [نساء]>=[اطفال];[نساء];[اطفال])) Database5.zip

اتفضل المرفق و طريقة استاذ كنوري فقط انا حذفت الفراغ في الاسفل التقرير اي قمت بارتفاع منطقة تفصيل الى 0.774cm kanory1.rar

اتفضل تم تغيير كل شيء تقريبا واستخدمت دالة دي لوك اب اتفضل Database11.rar

استأذن من السيد @kanory اتفضل ما طلبت Dim MyPagRecCnt As Integer Private Sub Report_Page() MyPagRecCnt = 0 End Sub Private Sub تفصیل_Format(Cancel As Integer, FormatCount As Integer) MyPagRecCnt = MyPagRecCnt + 1 Counter = MyPagRecCnt End Sub الرقم التسلسلي في التقرير.rar

اھلا بک اخی حسین کی کود للیسار ھو رقم ٣٧ و للیمین ھو ٣٩ وتقدر تستخدم دالة ايف او سيليكت كاش عند الضغط على المفاتيح الكيبورد ارفق قاعدة بياناتك ووضح ماتريد اكثر اذا بعد ما وصلت للحل اهلا بك استاذنا @يوسف أحمد تحياتي

اخي تم العمل ما قلت لك سابقا اتفضل اليك ملف جديد Database1.rar

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