عدم السماح بتكرار الصنف داخل الفاتوره

[النجاشي]

1 دقيقه مضت, ابا جودى said:

ان شاء يكون خير ولو فى شئ لا تخجل من السؤال

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

[Shivan Rekany]

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

بارك الله فيك اخي @Shivan Rekany حلو جدا بس ليش عندما اضغط  f3 يقبل التكرار

مشكله التكرار من اف 3.rar

نسیت ان اعدل فی تلک النموذج ايضا

ذكرني غدا ان شاء الله راح اعملك المطلوب

[النجاشي]

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

نسیت ان اعدل فی تلک النموذج ايضا

ذكرني غدا ان شاء الله راح اعملك المطلوب

تسلم ايديك اخي ابشر بكره راح اذكرك ان شاء الله

[ابو جودي]

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

تسلم ايديك اخي ابشر بكره راح اذكرك ان شاء الله

هو التكرار بيشتغل لسه مع الضغط على اف 3  فى المرفق الاخيـــر ؟؟؟ 
اللى بهذه المشاركة ؟!!!!

 

[النجاشي]

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

هو التكرار بيشتغل لسه مع الضغط على اف 3  فى المرفق الاخيـــر ؟؟؟ 
اللى بهذه المشاركة ؟!!!!

 

ادخل علي الفاتوره واضف أصناف عن طريق f3  ستلاحظ يتكرر الصنف صحيح بالمشاركه السابقه ما بشتغل انظر للقاعد ه المرفقه

مشكله التكرار من اف 3.rar

تم تعديل أبريل 18, 2017 بواسطه ابو زاهر

[ابو جودي]

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

ادخل علي الفاتوره واضف أصناف عن طريق f3  ستلاحظ يتكرر الصنف

مشكله التكرار من اف 3.rar

ازاى اضيف عن طريق اف 3

انا جربت من الفاتورة الضغط على اف 3 بيفتح نموذج الاصناف بعد كده اعمل ايه انا مش عارف 

للعلم لا يحدث اى تكرار لو حضرتك شغال على المرفق الاخير الذى قمت انا بالتعديل عليه

[النجاشي]

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

ازاى اضيف عن طريق اف 3

انا جربت من الفاتورة الضغط على اف 3 بيفتح نموذج الاصناف بعد كده اعمل ايه انا مش عارف 

للعلم لا يحدث اى تكرار لو حضرتك شغال على المرفق الاخير الذى قمت انا بالتعديل عليه

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

[ابو جودي]

1 ساعه مضت, ابو زاهر said:

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

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

غدا ان شاء الله تعالى يتابع معك الاستاذ Shivan Rekany

[النجاشي]

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

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

غدا ان شاء الله تعالى يتابع معك الاستاذ Shivan Rekany

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

شاكرا لكم جميعا استاذتي

[Shivan Rekany]

2 ساعات مضت, ابو زاهر said:

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

شاكرا لكم جميعا استاذتي

استأذن من استاذنا وحبيبنا @ابا جودى على المداخلة
اتفضل اخي 

انا استخدمت هذين الكودين

Private Sub Rajmsanf_DblClick(Cancel As Integer)
If DCount("[Rajmsanf]", "[HRAKATSANF]", "[Rajmsanf]='" & Me.Rajmsanf & "'" & "AND [Rjmfatwra]=" & Forms![فاتوره مشتريات]![Rjmfatwra]) > 0 Then
    MsgBox "المادة مكررة"
        Cancel = -1
    Else
Forms![فاتوره مشتريات]![تابع23]![Rajmsanf] = Me.Rajmsanf
    DoCmd.close
        Forms![فاتوره مشتريات].SetFocus
    Forms![فاتوره مشتريات]![تابع23]![Rajmasnf].SetFocus
DoCmd.Requery
    DoCmd.GoToRecord , , acNewRec
        Forms![فاتوره مشتريات]![تابع23]![Rajmasnf].SetFocus
End If
End Sub

Private Sub Rajmsanf_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
        If DCount("[Rajmsanf]", "[HRAKATSANF]", "[Rajmsanf]='" & Me.Rajmsanf & "'" & "AND [Rjmfatwra]=" & Forms![فاتوره مشتريات]![Rjmfatwra]) > 0 Then
            MsgBox "المادة مكررة"
                Cancel = -1
            Else
Forms![فاتوره مشتريات]![تابع23]![Rajmsanf] = Me.Rajmsanf
    DoCmd.close
        Forms![فاتوره مشتريات].SetFocus
    Forms![فاتوره مشتريات]![تابع23]![Rajmasnf].SetFocus
DoCmd.Requery
    DoCmd.GoToRecord , , acNewRec
        Forms![فاتوره مشتريات]![تابع23]![Rajmasnf].SetFocus
        End If '13
    End If ' DCount
End Sub

لكن لا اعرف ما هو حقلين للسعر
على الرغم كل شي

اتفضل اليك قاعدة بياناتك بعد تعديل

 

1111111.rar

[النجاشي]

4 ساعات مضت, Shivan Rekany said:

استأذن من استاذنا وحبيبنا @ابا جودى على المداخلة
اتفضل اخي 

انا استخدمت هذين الكودين

Private Sub Rajmsanf_DblClick(Cancel As Integer)
If DCount("[Rajmsanf]", "[HRAKATSANF]", "[Rajmsanf]='" & Me.Rajmsanf & "'" & "AND [Rjmfatwra]=" & Forms![فاتوره مشتريات]![Rjmfatwra]) > 0 Then
    MsgBox "المادة مكررة"
        Cancel = -1
    Else
Forms![فاتوره مشتريات]![تابع23]![Rajmsanf] = Me.Rajmsanf
    DoCmd.close
        Forms![فاتوره مشتريات].SetFocus
    Forms![فاتوره مشتريات]![تابع23]![Rajmasnf].SetFocus
DoCmd.Requery
    DoCmd.GoToRecord , , acNewRec
        Forms![فاتوره مشتريات]![تابع23]![Rajmasnf].SetFocus
End If
End Sub

Private Sub Rajmsanf_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
        If DCount("[Rajmsanf]", "[HRAKATSANF]", "[Rajmsanf]='" & Me.Rajmsanf & "'" & "AND [Rjmfatwra]=" & Forms![فاتوره مشتريات]![Rjmfatwra]) > 0 Then
            MsgBox "المادة مكررة"
                Cancel = -1
            Else
Forms![فاتوره مشتريات]![تابع23]![Rajmsanf] = Me.Rajmsanf
    DoCmd.close
        Forms![فاتوره مشتريات].SetFocus
    Forms![فاتوره مشتريات]![تابع23]![Rajmasnf].SetFocus
DoCmd.Requery
    DoCmd.GoToRecord , , acNewRec
        Forms![فاتوره مشتريات]![تابع23]![Rajmasnf].SetFocus
        End If '13
    End If ' DCount
End Sub

لكن لا اعرف ما هو حقلين للسعر
على الرغم كل شي

اتفضل اليك قاعدة بياناتك بعد تعديل

 

1111111.rar

بارك الله فيك اخي @Shivan Rekany الحقلين للسعر حقل بعتبر للكلفه  الثابته وحقل للسعر المشتراه اليومي مثلا ممكن اليوم اشتري ب50 بكره ب60 وهكذا واشكرك على ملاحظاتك اخي  ابو محمد