king5star قام بنشر مايو 10, 2017 مشاركة قام بنشر مايو 10, 2017 السلام عليكم اخوانى عاوز انقل التركيز الى نفس الحقل ولا يريد ذلك ويذهب الى الحقل التالى ولا اعرف لماذا ولا اى شئ غريب فى الكود وجربت احتمالات كثيرة ولا تجدي نفع والكود المستخدم هذا Private Sub Cus_Mob_AfterUpdate() Dim phone As Integer phone = DCount("Cus_Mob", "HA_Cus_D", "[Cus_Mob] = Forms![Cus_N_C]![HA_Cus]![Cus_Mob]") If phone > 0 Then If MsgBox(" هذا الموبايل مكرر لللاعب رقم" & DLookup("[Cus_Num_D]", "HA_Cus_D", "[Cus_Mob] = Forms![Cus_N_C]![HA_Cus]![Cus_Mob]"), vbInformation + vbMsgBoxRight, "رقم مكرر") = vbOK Then Cus_Mob = "" Cus_Mob.SetFocus End If End If End Sub رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 10, 2017 مشاركة قام بنشر مايو 10, 2017 وعليكم السلام استبدله بهذا Private Sub Cus_Mob_BeforeUpdate(Cancel As Integer) Dim phone As Integer phone = DCount("Cus_Mob", "HA_Cus_D", "[Cus_Mob] = Forms![Cus_N_C]![HA_Cus]![Cus_Mob]") If phone > 0 Then If MsgBox(" هذا الموبايل مكرر لللاعب رقم" & DLookup("[Cus_Num_D]", "HA_Cus_D", "[Cus_Mob] = Forms![Cus_N_C]![HA_Cus]![Cus_Mob]"), vbInformation + vbMsgBoxRight, "رقم مكرر") = vbOK Then Cancel = -1 Undo End If End If End Sub 2 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر مايو 10, 2017 مشاركة قام بنشر مايو 10, 2017 استأذن من استاذنا الحبيب @ابوخليل 8 ساعات مضت, king5star said: ولا اعرف لماذا لأنك تستخدم الكود بعد التحديث واستاذنا ابو خليل قام بتعديل ذلك الى قبل تحديث واضاف كنسل يساوي ترو لكي يكون لا يخرج المؤشر الماوس فيه 2 رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر مايو 10, 2017 مشاركة قام بنشر مايو 10, 2017 ايش رايح تريح دماغ الاكسس شويه انقل التركيز لعنصر اخر ثم اعد التركيز هنا العمليه بشكل صريح Private Sub Cus_Mob_AfterUpdate() Dim phone As Integer phone = DCount("Cus_Mob", "HA_Cus_D", "[Cus_Mob] = Forms![Cus_N_C]![HA_Cus]![Cus_Mob]") If phone > 0 Then If MsgBox(" هذا الموبايل مكرر لللاعب رقم" & DLookup("[Cus_Num_D]", "HA_Cus_D", "[Cus_Mob] = Forms![Cus_N_C]![HA_Cus]![Cus_Mob]"), vbInformation + vbMsgBoxRight, "رقم مكرر") = vbOK Then Cus_Mob = "" other.setfocus Cus_Mob.SetFocus End If End If End Sub رابط هذا التعليق شارك More sharing options...
king5star قام بنشر مايو 10, 2017 الكاتب مشاركة قام بنشر مايو 10, 2017 16 ساعات مضت, ابوخليل said: وعليكم السلام استبدله بهذا Private Sub Cus_Mob_BeforeUpdate(Cancel As Integer) Dim phone As Integer phone = DCount("Cus_Mob", "HA_Cus_D", "[Cus_Mob] = Forms![Cus_N_C]![HA_Cus]![Cus_Mob]") If phone > 0 Then If MsgBox(" هذا الموبايل مكرر لللاعب رقم" & DLookup("[Cus_Num_D]", "HA_Cus_D", "[Cus_Mob] = Forms![Cus_N_C]![HA_Cus]![Cus_Mob]"), vbInformation + vbMsgBoxRight, "رقم مكرر") = vbOK Then Cancel = -1 Undo End If End If End Sub 10 ساعات مضت, Shivan Rekany said: استأذن من استاذنا الحبيب @ابوخليل لأنك تستخدم الكود بعد التحديث واستاذنا ابو خليل قام بتعديل ذلك الى قبل تحديث واضاف كنسل يساوي ترو لكي يكون لا يخرج المؤشر الماوس فيه شكراً جزيلاً لك استاذى وهذا هو المطلوب وكنت اتمنى التوضيح ولكن استاذى شيفان اوضحه لى جزاه الله خيراً . 24 دقائق مضت, رمهان said: ايش رايح تريح دماغ الاكسس شويه انقل التركيز لعنصر اخر ثم اعد التركيز هنا العمليه بشكل صريح Private Sub Cus_Mob_AfterUpdate() Dim phone As Integer phone = DCount("Cus_Mob", "HA_Cus_D", "[Cus_Mob] = Forms![Cus_N_C]![HA_Cus]![Cus_Mob]") If phone > 0 Then If MsgBox(" هذا الموبايل مكرر لللاعب رقم" & DLookup("[Cus_Num_D]", "HA_Cus_D", "[Cus_Mob] = Forms![Cus_N_C]![HA_Cus]![Cus_Mob]"), vbInformation + vbMsgBoxRight, "رقم مكرر") = vbOK Then Cus_Mob = "" other.setfocus Cus_Mob.SetFocus End If End If End Sub شكراً استاذى رمهان على هذه النقطة البسيطة والسهله وذهبت عنى وبسببها خطرت لى فكره اخى وعملت ايضاً جيداً وهي Private Sub Cus_Name_AfterUpdate() Dim Name_Cus As String Name_Cus = DCount("[Cus_Name]", "HA_Cus", "[Cus_Name] = Forms![Cus_N_C]![Cus_Name]") If Name_Cus > 0 Then MsgBox " اسم مكرر" & DLookup("[Cus_Num]", "HA_Cus", "[Cus_Name] = Forms![Cus_N_C]![Cus_Name]"), vbInformation + vbMsgBoxRight, "مكرر" Cancel = -1 Undo Me.Requery Cus_Name.SetFocus End If End Sub رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر مايو 10, 2017 مشاركة قام بنشر مايو 10, 2017 4 دقائق مضت, king5star said: شكراً جزيلاً لك استاذى وهذا هو المطلوب وكنت اتمنى التوضيح ولكن استاذى شيفان اوضحه لى جزاه الله خيراً . شكراً استاذى رمهان على هذه النقطة البسيطة والسهله وذهبت عنى وبسببها خطرت لى فكره اخى وعملت ايضاً جيداً وهي Private Sub Cus_Name_AfterUpdate() Dim Name_Cus As String Name_Cus = DCount("[Cus_Name]", "HA_Cus", "[Cus_Name] = Forms![Cus_N_C]![Cus_Name]") If Name_Cus > 0 Then MsgBox " اسم مكرر" & DLookup("[Cus_Num]", "HA_Cus", "[Cus_Name] = Forms![Cus_N_C]![Cus_Name]"), vbInformation + vbMsgBoxRight, "مكرر" Cancel = -1 Undo Me.Requery Cus_Name.SetFocus End If End Sub عزيزي لا اعتقد ان الكود اعلاه سيفي المطلوب ملاحظة : cancel ليس لوجودها اهميه لانها في هذا الحدث غير معرفة هي معرفة في احداث اخرى مثل قبل التحديث وغيره اما بعد التحديث فلا هذا وتقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
king5star قام بنشر مايو 10, 2017 الكاتب مشاركة قام بنشر مايو 10, 2017 1 دقيقه مضت, رمهان said: عزيزي لا اعتقد ان الكود اعلاه سيفي المطلوب ملاحظة : cancel ليس لوجودها اهميه لانها في هذا الحدث غير معرفة هي معرفة في احداث اخرى مثل قبل التحديث وغيره اما بعد التحديث فلا هذا وتقبل تحياتي شكراً للملحوظة ولكنها والله اشتغلت بس بدلتها بكود ابو خليل للضمان والاستقرار اكثر رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر مايو 10, 2017 مشاركة قام بنشر مايو 10, 2017 الان, king5star said: شكراً للملحوظة ولكنها والله اشتغلت بس بدلتها بكود ابو خليل للضمان والاستقرار اكثر العفو وبالتوفيق 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان