مشكلة فى التركيز على حقل محدد

[king5star]

السلام عليكم اخوانى

عاوز انقل التركيز الى نفس الحقل ولا يريد ذلك ويذهب الى الحقل التالى ولا اعرف لماذا ولا اى شئ غريب فى الكود وجربت احتمالات كثيرة ولا تجدي نفع والكود المستخدم هذا

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

 

[ابوخليل]

وعليكم السلام

استبدله بهذا

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

 

[Shivan Rekany]

استأذن من استاذنا الحبيب @ابوخليل

8 ساعات مضت, king5star 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

 

[king5star]

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

 

[رمهان]

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  ليس لوجودها اهميه لانها في هذا الحدث غير معرفة هي معرفة في احداث اخرى مثل قبل التحديث وغيره اما بعد التحديث فلا

هذا وتقبل تحياتي

[king5star]

1 دقيقه مضت, رمهان said:

عزيزي

لا اعتقد ان الكود اعلاه سيفي المطلوب

ملاحظة : cancel  ليس لوجودها اهميه لانها في هذا الحدث غير معرفة هي معرفة في احداث اخرى مثل قبل التحديث وغيره اما بعد التحديث فلا

هذا وتقبل تحياتي

شكراً للملحوظة ولكنها والله اشتغلت بس بدلتها بكود ابو خليل للضمان والاستقرار اكثر

[رمهان]

الان, king5star said:

شكراً للملحوظة ولكنها والله اشتغلت بس بدلتها بكود ابو خليل للضمان والاستقرار اكثر

العفو وبالتوفيق