abouelhassan قام بنشر يوليو 28, 2021 قام بنشر يوليو 28, 2021 (معدل) السلام عليكم اخواتى الافاضل هذا الكود من ابدا ع @د.كاف يار له كل الشكر والاحترام وخالص الدعاء وهذا حقه واقل من حقه احتاج تعديل فيه برجاء التكرم بتعديل الكود باضافة العمود YEAR فى الكود فى Dcount هنا If Nz(DCount("[iPage]", "tbl_Items", "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then انا حاولت بس يخرج الكود رسالة خطأ If Nz(DCount("[iPage]", "tbl_Items", "[YEAR] Like '" & YEAR, "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then ليكون اذا تكرر الحساب يخرج رسالة انه تم اختيار الحساب مسبقا هذا الكود يعمل بس على كل البيانات احتاج اضافة السنة المالية الى الكود والسنة المالية هى YEAR ليتم التحديد بالرقم iBill_Number والسنة المالية YEAR Private Sub iPage_AfterUpdate() On Error Resume Next If Nz(DCount("[iPage]", "tbl_Items", "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then MsgBox "فشل الاختيار" & vbNewLine & "تم ادخال هذا الحساب مسبقا", vbCritical + vbMsgBoxRight, "تنبيه" Me.iPage.SetFocus Exit Sub Else DoCmd.GoToRecord , , acNewRec Me.iName.SetFocus End If End Sub مع خالص الشكر والتقدير والدعاء احترامى الشديد لحضراتكم تم تعديل يوليو 28, 2021 بواسطه abouelhassan
Eng.Qassim قام بنشر يوليو 28, 2021 قام بنشر يوليو 28, 2021 (معدل) اعتقد لديك مشكلة بأضافة الفارزة بعد year هذا كود د كاف يار If Nz(DCount("[iPage]", "tbl_Items", "[YEAR] Like '" & YEAR & "' AND [iPage]=" & iPage), 0) <> 0 Then تم تعديل يوليو 28, 2021 بواسطه Eng.Qassim 1
abouelhassan قام بنشر يوليو 28, 2021 الكاتب قام بنشر يوليو 28, 2021 (معدل) بارك الله فيك استاذى الحبيب Eng.Qassim الان اصبح عند اختيار اى حساب مرة واحدة تخرج لى الرسالة تم ادخال هذا الحساب مسبقاوالمفروض ان الرسالة تخرج لو انى اختارت حساب واحد مرتين ام الا تخرج مع كل اختيار حساب مرة واحدة والكود كده هيكون ناقص الكود الاصلى به iBill_Number اريد اضافة YEAR له If Nz(DCount("[iPage]", "tbl_Items", "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then و الكود تعديل حضرتك في 28/7/2021 at 18:45, Eng.Qassim said: If Nz(DCount("[iPage]", "tbl_Items", "[YEAR] Like '" & YEAR & "' AND [iPage]=" & iPage), 0) <> 0 Then Expand اشكرك استاذى بارك الله فيك اخى تم تعديل يوليو 28, 2021 بواسطه abouelhassan
Eng.Qassim قام بنشر يوليو 28, 2021 قام بنشر يوليو 28, 2021 بصراحة لم اطلع على الملف انما ركزت فقط على الفارزة .. ربما يكون الكود هكذا وارجو ان يطلع عليه د كاف If Nz(DCount("[iPage]", "tbl_Items", "[iBill_Number] Like '" & iBill_Number & "' AND [year]=" & #year#), 0) <> 0 Then 1
abouelhassan قام بنشر يوليو 28, 2021 الكاتب قام بنشر يوليو 28, 2021 بارك الله فيك استاذى Eng.Qassim نفس المشكلة الان اصبح عند اختيار اى حساب مرة واحدة تخرج لى الرسالة تم ادخال هذا الحساب مسبقاوالمفروض ان الرسالة تخرج لو انى اختارت حساب واحد مرتين ام الا تخرج مع كل اختيار حساب مرة واحدة احترام من اخيك
د.كاف يار قام بنشر يوليو 29, 2021 قام بنشر يوليو 29, 2021 في 28/7/2021 at 17:09, abouelhassan said: السلام عليكم اخواتى الافاضل هذا الكود من ابدا ع @د.كاف يار له كل الشكر والاحترام وخالص الدعاء وهذا حقه واقل من حقه احتاج تعديل فيه برجاء التكرم بتعديل الكود باضافة العمود YEAR فى الكود فى Dcount هنا If Nz(DCount("[iPage]", "tbl_Items", "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then انا حاولت بس يخرج الكود رسالة خطأ If Nz(DCount("[iPage]", "tbl_Items", "[YEAR] Like '" & YEAR, "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then ليكون اذا تكرر الحساب يخرج رسالة انه تم اختيار الحساب مسبقا هذا الكود يعمل بس على كل البيانات احتاج اضافة السنة المالية الى الكود والسنة المالية هى YEAR ليتم التحديد بالرقم iBill_Number والسنة المالية YEAR Private Sub iPage_AfterUpdate() On Error Resume Next If Nz(DCount("[iPage]", "tbl_Items", "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then MsgBox "فشل الاختيار" & vbNewLine & "تم ادخال هذا الحساب مسبقا", vbCritical + vbMsgBoxRight, "تنبيه" Me.iPage.SetFocus Exit Sub Else DoCmd.GoToRecord , , acNewRec Me.iName.SetFocus End If End Sub مع خالص الشكر والتقدير والدعاء احترامى الشديد لحضراتكم Expand شغلك صحيح بس فيه خطأ بسيط حقل السنة رقمي If Nz(DCount("[iPage]", "tbl_Items", "[YEAR] = " & [YEAR] & "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then 1
abouelhassan قام بنشر يوليو 29, 2021 الكاتب قام بنشر يوليو 29, 2021 الله يرضى عنك وعن والديك استاذى د.كاف يار تم الموضوع بفضل الله وفضلك ادام الله خيرك يارب كل الشكروالتقدير اخى حبيبى والله اكثر الله خيرك اخى
abouelhassan قام بنشر يوليو 29, 2021 الكاتب قام بنشر يوليو 29, 2021 (معدل) في 29/7/2021 at 10:55, د.كاف يار said: شغلك صحيح بس فيه خطأ بسيط حقل السنة رقمي If Nz(DCount("[iPage]", "tbl_Items", "[YEAR] = " & [YEAR] & "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then Expand استاذى الحبيب @د.كاف يار الكود يبحث داخل الجدول الرئيسى ويخرج الرسالة اذا كان الحساب متكرر بدلالة الرقم والسنة المالية Private Sub iPage_AfterUpdate() On Error Resume Next If Nz(DCount("[iPage]", "tbl_Items", "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then MsgBox "فشل الاختيار" & vbNewLine & "تم ادخال هذا الحساب مسبقا", vbCritical + vbMsgBoxRight, "تنبيه" Me.iPage.SetFocus Exit Sub Else DoCmd.GoToRecord , , acNewRec Me.iName.SetFocus End If End Sub بس سبب لى مشاكل باستمرار الان تخرج لى رسالة الحساب مكرر حتى لو مش مكرر فى الفورم فبالبحث داخل جدول البيانات يصدف تكرار الحساب احتاج ان يعمل الكود فقط على الحساب فى الفورم ترحيل دون الرجوع ل جدول البيانات الرئيسى فقط فى مثل هذه الحالة يخرج رسالة تنبيه الحساب مكرر معلش استاذى احترامى الشديد وخالص دعائى لشخصك الكريم جدا اخى DATA14-1.mdbFetching info... تم تعديل يوليو 29, 2021 بواسطه abouelhassan
abouelhassan قام بنشر يوليو 30, 2021 الكاتب قام بنشر يوليو 30, 2021 انا حاولت التعديل فى الكود بس برده فى كل الاحوال تخرج رسالة فشل الاختيار تم ادخال الحساب مسبقا بالتغير الى If Nz(DCount("[iPage]", "frm_Items_Entry")) <> 0 Then Private Sub iPage_AfterUpdate() On Error Resume Next If Nz(DCount("[iPage]", "frm_Items_Entry")) <> 0 Then MsgBox "فشل الاختيار" & vbNewLine & "تم ادخال هذا الحساب مسبقا", vbCritical + vbMsgBoxRight, "تنبيه" Me.iPage.SetFocus Exit Sub Else DoCmd.GoToRecord , , acNewRec Me.iName.SetFocus End If End Sub احترامى الشديد
د.كاف يار قام بنشر يوليو 31, 2021 قام بنشر يوليو 31, 2021 اتفضل يابوالحسن If DCount("*", "tbl_Items", "iBill_Number Like '" & Main_iBill_Number & "' AND iPage=" & iPage) <> 0 Then MsgBox "فشل الاختيار" & vbNewLine & "تم ادخال هذا الحساب مسبقا", vbCritical + vbMsgBoxRight, "تنبيه" Me.iPage.SetFocus Exit Sub Else DoCmd.GoToRecord , , acNewRec Me.iName.SetFocus End If 1
abouelhassan قام بنشر يوليو 31, 2021 الكاتب قام بنشر يوليو 31, 2021 (معدل) بارك الله فيك استاذى الغالى حبيبي @د.كاف يار هذا الكود هو احد ابداعاتك الكثيرة وهو الكود الاول الذى كنت اريد اضافة YEAR له وبيسبب لى مشكلة انه عند تشابه رقم المستند يخرج رسالة الحساب متكرر في 28/7/2021 at 17:09, abouelhassan said: السلام عليكم اخواتى الافاضل هذا الكود من ابدا ع @د.كاف يار له كل الشكر والاحترام وخالص الدعاء وهذا حقه واقل من حقه احتاج تعديل فيه في 30/7/2021 at 21:25, abouelhassan said: If Nz(DCount("[iPage]", "frm_Items_Entry")) <> 0 Then Expand If Nz(DCount("[iPage]", "tbl_Items", "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then انا حاولت بس يخرج الكود رسالة خطأ Expand مااريده بسيط عليكم ان شاء الله فقط ان يقوم بالبحث داخل فورم الترحيل ليس كل الجدول كما شرحت لحضرتك هنا في 29/7/2021 at 20:47, abouelhassan said: ستاذى الحبيب @د.كاف يار الكود يبحث داخل الجدول الرئيسى ويخرج الرسالة اذا كان الحساب متكرر بدلالة الرقم والسنة المالية Private Sub iPage_AfterUpdate() On Error Resume Next If Nz(DCount("[iPage]", "tbl_Items", "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then MsgBox "فشل الاختيار" & vbNewLine & "تم ادخال هذا الحساب مسبقا", vbCritical + vbMsgBoxRight, "تنبيه" Me.iPage.SetFocus Exit Sub Else DoCmd.GoToRecord , , acNewRec Me.iName.SetFocus End If End Sub بس سبب لى مشاكل باستمرار الان تخرج لى رسالة الحساب مكرر حتى لو مش مكرر فى الفورم فبالبحث داخل جدول البيانات يصدف تكرار الحساب احتاج ان يعمل الكود فقط على الحساب فى الفورم ترحيل دون الرجوع ل جدول البيانات الرئيسى فقط فى مثل هذه الحالة يخرج رسالة تنبيه الحساب مكرر معلش استاذى احترامى الشديد وخالص دعائى لشخصك الكريم جدا اخى Expand اريد تغير في 31/7/2021 at 03:20, د.كاف يار said: If DCount("*", "tbl_Items", "iBill_Number Like '" & Main_iBill_Number & "' AND iPage=" & iPage) <> 0 Then Expand الى في 30/7/2021 at 21:25, abouelhassan said: If Nz(DCount("[iPage]", "frm_Items_Entry")) <> 0 Then Expand بدل ان يعمل على tbl_items وكل هذا فقط يبحث بالفورم نفسه frm_items_entry وعندم يجد مثل هنا الحساب النقدية اختارته مرتين هنا بالخطا ينبهنى ان الحساب مكرر بغض النظر ان الرقم 111 مكرر او المخزن او اى شى فقط انه فى الفورم نفسه حساب مكرر اكثر من مرة في 29/7/2021 at 20:47, abouelhassan said: احترامى الشديد وخالص دعائى لشخصك الكريم جدا اخى Expand ربنا يحفظك يارب وال بيتك اجمعين اللهم امين تم تعديل يوليو 31, 2021 بواسطه abouelhassan
د.كاف يار قام بنشر يوليو 31, 2021 قام بنشر يوليو 31, 2021 (معدل) في 31/7/2021 at 07:54, abouelhassan said: الى Expand طريقة غير صحة بما انك تريد الشرط على البيانات الحالية في النموذج اذا يجب ان تستخدم حلقة تكرارية في كل مرة تقوم بأخذ المؤشر الى اول سجل و ثم الانتقال للتالي الى ان تصل لأخر سجل تفضل هذا الكود لعمل اللازم ضعه في حدث عند التغيير Dim x x = iPage Dim i, i2 As Integer DoCmd.GoToRecord , , acFirst For i = 0 To Me.Form.Recordset.RecordCount - 1 If iPage = x Then i2 = i2 + 1 If i2 > 1 Then If MsgBox("تم استخدام الحساب مسبقا" & vbNewLine & "هل تريد التراجع ؟", vbCritical + vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdUndo DoCmd.SetWarnings True Exit Sub End If End If End If DoCmd.GoToRecord , , acNext Next i DoCmd.GoToRecord , , acNewRec Me.iName.SetFocus تم تعديل يوليو 31, 2021 بواسطه د.كاف يار 1
abouelhassan قام بنشر يوليو 31, 2021 الكاتب قام بنشر يوليو 31, 2021 الله يرضى عنك وعن والديك استاذى الغالى @د.كاف يار اختارت استاذى الحسابين نقدية ولم تخرج الرسالة اخى فى الله مع انى واضع الكود فى حدث i_page عند التغير كما تكرمت استاذى واوضحت بارك الله لنا فيك اخى الكريم احترامى
د.كاف يار قام بنشر يوليو 31, 2021 قام بنشر يوليو 31, 2021 في 31/7/2021 at 14:33, abouelhassan said: الله يرضى عنك وعن والديك استاذى الغالى @د.كاف يار اختارت استاذى الحسابين نقدية ولم تخرج الرسالة اخى فى الله مع انى واضع الكود فى حدث i_page عند التغير كما تكرمت استاذى واوضحت بارك الله لنا فيك اخى الكريم احترامى Expand اتفضل التعديل سبب المشكلة الحدث بعد التحديث يجب ايقافه DATA14-1.mdbFetching info... 1
abouelhassan قام بنشر يوليو 31, 2021 الكاتب قام بنشر يوليو 31, 2021 (معدل) تسلم ايدك استاذى الحبيب الغالى لقلبى تمام يعمل تمام تسلم يديك وعينيك ربنا يحفظك من اى شر اللهم امين حفطك ورعاك رب العباد اللهم امين اشكرك اخى فى الله تم تعديل يوليو 31, 2021 بواسطه abouelhassan
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.