ظهور رساله عندما يكون الرقم مكرر او خطاء

[النجاشي]

السلام عليكم ورحمه الله وبركاته اخوني الكرام

موضوعي اريد عندما افتح فاتوره المبيعات اسم النموذج(frmSales) ويفتح لي الفورم الي خاص بادارج الأصناف اريد الاتي

عندما يكون سبق ان ادرج رقم الصنف بالفاتوره تظهر رساله الرقم مكرر ويرجع التركيز الي رقم الصنف ولايخرج من رقم الصنف الا اذا أدرجت رقم صحيح

عندما يكون الرقم غير موجود بجدول الأصناف يعطينا رساله بان الرقم خطاء اوعندما تريد الانتقال الي الحقل الاخر ولقيمه فارغه

شاكرين لكم استاتذي الكرام جعل الله عملكم بميزان حسناتكم

اخوكم الطالب بالمنتدي

وضاح

ظهور رساله الرقم خطاء او مكرر.rar

[النجاشي]

للرفع

[النجاشي]

للرفع

[النجاشي]

للرفع

[النجاشي]

للرفع

[ابو جودي]

منذ ساعه, ابو زاهر said:

للرفع

ابشر بالخير ان شاء الله
انا اعمل على المرفق ان شاء الله اسال الله السداد والتوفيق

[النجاشي]

تسلم اخي واستاذي أبا جودي كم انت طيب القلب  ربنا يكثر من امثالك ويجعله بميزان حسناتك

[ابو جودي]

منذ ساعه, ابو زاهر said:

تسلم اخي واستاذي أبا جودي كم انت طيب القلب  ربنا يكثر من امثالك ويجعله بميزان حسناتك

الله يسلم حضرتك

استاذ @ابو زاهر  

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

بص الموضوع كل هيعتمد على رقم الفاتورة زت\بيق قكرة من الطريقة الثانية او الثالثة من هذه المشاركة

2- كما تفضلتم عن طريق DCount

'الطريقة الثانية
'DCount

Private Sub Category_Code_BeforeUpdate(Cancel As Integer)

Dim Code_NotInList As Integer
Code_NotInList = DCount("Category_Code", "Items", "Category_Code= " & [Category_Code])
If Code_NotInList <> 1 Then
MsgBox "هذا الكود غير موجود.. من فضلك ادخل الكود الصحيح", vbOKOnly, "تنبيه"
Me.Undo
Else
End If

End Sub

3- وايضا ممكن عن DLookup 

حدث قبل التحديث

'الطريقة الثالثة
'DLookup

Private Sub Category_Code_BeforeUpdate(Cancel As Integer)

Dim Code_NotInList
Code_NotInList = DLookup("Category_Code", "Items", "Category_Code= " & [Category_Code])
If IsNull(Code_NotInList) Or Code_NotInList = "" Then
MsgBox "هذا الكود غير موجود.. من فضلك ادخل الكود الصحيح", vbOKOnly, "تنبيه"
Me.Undo
Else
End If

End Sub

فقط باضافة شرط الى كل من الدلتين فى خالة ان رقم الفتورة فى الجدول بيساوى رقم الفاتورة فى الحالى فى النموذج

والمشكله ان حضرتك عامل ربط لمن رغم ذلك رقم الفتورة لا يظهر مش عارف ليه بصراحة 

لو حضرتك تظبط بس ان رقم القاتورة فى النموذج الفرغى لكل سجل يكون بيساوى رقم الفاتورة فى النموذج الرئيسى تبقى تمام 

على كل حال انا هاحاول اشوف مره تانيى بعمق اكبر 

 

[النجاشي]

4 دقائق مضت, ابا جودى said:

الله يسلم حضرتك

استاذ @ابو زاهر  

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

بص الموضوع كل هيعتمد على رقم الفاتورة زت\بيق قكرة من الطريقة الثانية او الثالثة من هذه المشاركة

2- كما تفضلتم عن طريق DCount

'الطريقة الثانية
'DCount

Private Sub Category_Code_BeforeUpdate(Cancel As Integer)

Dim Code_NotInList As Integer
Code_NotInList = DCount("Category_Code", "Items", "Category_Code= " & [Category_Code])
If Code_NotInList <> 1 Then
MsgBox "هذا الكود غير موجود.. من فضلك ادخل الكود الصحيح", vbOKOnly, "تنبيه"
Me.Undo
Else
End If

End Sub

3- وايضا ممكن عن DLookup 

حدث قبل التحديث

'الطريقة الثالثة
'DLookup

Private Sub Category_Code_BeforeUpdate(Cancel As Integer)

Dim Code_NotInList
Code_NotInList = DLookup("Category_Code", "Items", "Category_Code= " & [Category_Code])
If IsNull(Code_NotInList) Or Code_NotInList = "" Then
MsgBox "هذا الكود غير موجود.. من فضلك ادخل الكود الصحيح", vbOKOnly, "تنبيه"
Me.Undo
Else
End If

End Sub

فقط باضافة شرط الى كل من الدلتين فى خالة ان رقم الفتورة فى الجدول بيساوى رقم الفاتورة فى الحالى فى النموذج

والمشكله ان حضرتك عامل ربط لمن رغم ذلك رقم الفتورة لا يظهر مش عارف ليه بصراحة 

لو حضرتك تظبط بس ان رقم القاتورة فى النموذج الفرغى لكل سجل يكون بيساوى رقم الفاتورة فى النموذج الرئيسى تبقى تمام 

على كل حال انا هاحاول اشوف مره تانيى بعمق اكبر 

 

استاذي @ابا جودى تسلم اخي الله يعافيك القصد  اخي برقم الصنف ان لا يتكرر داخل الفاتوره  واذا لم يكون موجود بجدول الأصناف الرقم يعطيك رساله بان الرقم غير موجود شوف اذا وصلت اخي لحل وانا بحاول هون واقرب المساله ان شاء تسلم يديك اخي

[النجاشي]

للرفع

[النجاشي]

للرفع

 

[النجاشي]

السلام عليكم استاذي @ابا جودى عملت حقل رقم الفاتوره بالنموذج الفرعي للفاتوره كم قلت لي

 فالمطلوب عند ادراج رقم الصنف من نموذجfrmEdrajSenf اذا سبق تم ادارج الرقم بالفاتوره  يعطينا رساله  ان الرقم مكرر  بالفاتوره

ان شاء الله مع اضافه الحقل تتسهل الأمور

تحياتي اليك

99999999.rar

[Shivan Rekany]

32 دقائق مضت, ابو زاهر said:

السلام عليكم استاذي @ابا جودى عملت حقل رقم الفاتوره بالنموذج الفرعي للفاتوره كم قلت لي

 فالمطلوب عند ادراج رقم الصنف من نموذجfrmEdrajSenf اذا سبق تم ادارج الرقم بالفاتوره  يعطينا رساله  ان الرقم مكرر  بالفاتوره

ان شاء الله مع اضافه الحقل تتسهل الأمور

تحياتي اليك

99999999.rar

استأذن من استاذ @ابا جودى
اتفضل انا اضفت هذا لزر ادراج 
 

If DCount("[Rajmsanf]", "hrakatsanf", "[Rjmfatwra]=" & Forms!FrmSales!Rjmfatwra & "and [Rajmsanf]='" & Me.Rajmsanf & "'") > 0 Then
        MsgBox "هذا الصنف مكرر"
        Exit Sub
    Else

اليك قتاعدتك بعد تعديل

 

99999999.rar

[النجاشي]

28 دقائق مضت, Shivan Rekany said:

استأذن من استاذ @ابا جودى
اتفضل انا اضفت هذا لزر ادراج 
 

If DCount("[Rajmsanf]", "hrakatsanf", "[Rjmfatwra]=" & Forms!FrmSales!Rjmfatwra & "and [Rajmsanf]='" & Me.Rajmsanf & "'") > 0 Then
        MsgBox "هذا الصنف مكرر"
        Exit Sub
    Else

اليك قتاعدتك بعد تعديل

 

99999999.rar

شكرا اليك استاذي شفان هذا هو المطلوب بارك الله فيك وزادك علما

 وشكر للاستاذ أبا جودي على الجهود المبذوله بارك الله فيكم

وجعله بميزان حسناتك

[ابو جودي]

1 ساعه مضت, Shivan Rekany said:

استأذن من استاذ @ابا جودى
اتفضل انا اضفت هذا لزر ادراج 
 

If DCount("[Rajmsanf]", "hrakatsanf", "[Rjmfatwra]=" & Forms!FrmSales!Rjmfatwra & "and [Rajmsanf]='" & Me.Rajmsanf & "'") > 0 Then
        MsgBox "هذا الصنف مكرر"
        Exit Sub
    Else

اليك قتاعدتك بعد تعديل

 

99999999.rar

العفو منك اخى الحبيب أستاذ @Shivan Rekany  انا مجرد طالب علم احاول تقديم المساعدة قدر استطاعتى واتعلم من طلبات اخواننا الكرام

جزاكم الله خيرا وسلمت اناملك 

اشهد الله تعالى اننى احبكم فى الله 

تم تعديل أكتوبر 3, 2017 بواسطه ابا جودى

[النجاشي]

21 دقائق مضت, ابا جودى said:

العفو منك اخى الحبيب أستاذ @Shivan Rekany  انا مجرد طالب علم احاول تقديم المساعدة قدر استطاعتى واتعلم من طلبات اخواننا الكرام

جزاكم الله خيرا وسلمت اناملك 

اشهد الله تعالى اننى احبكم فى الله 

جزاك الله خير استاذي @ابا جودى ما قصرت اخي قدمت لنا الكثير ما ننساء جميلك شكر اليك اخي

والأستاذ  @Shivan Rekany  اول من شجعني للتعلم بهذا المنتدي الله يجزيه خير وساعدنا كثير جدا

احبك الله انت والأستاذ شفان بما احببتنا فيه الله يوفقكم استاتذي الكرام