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

[النجاشي]

  في 18‏/4‏/2017 at 18:27, ابا جودى said:

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

Expand  

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

[Shivan Rekany]

  في 18‏/4‏/2017 at 17:40, ابو زاهر said:

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

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

Expand  

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

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

[النجاشي]

  في 18‏/4‏/2017 at 18:41, Shivan Rekany said:

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

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

Expand  

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

[ابو جودي]

  في 18‏/4‏/2017 at 18:46, ابو زاهر said:

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

Expand  

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

 

[النجاشي]

  في 18‏/4‏/2017 at 18:50, ابا جودى said:

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

 

Expand  

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

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

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

[ابو جودي]

  في 18‏/4‏/2017 at 18:56, ابو زاهر said:

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

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

Expand  

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

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

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

[النجاشي]

  في 18‏/4‏/2017 at 19:00, ابا جودى said:

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

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

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

Expand  

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

[ابو جودي]

  في 18‏/4‏/2017 at 19:05, ابو زاهر said:

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

Expand  

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

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

[النجاشي]

  في 18‏/4‏/2017 at 20:56, ابا جودى said:

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

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

Expand  

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

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

[Shivan Rekany]

  في 18‏/4‏/2017 at 21:04, ابو زاهر said:

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

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

Expand  

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

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

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

[النجاشي]

  في 19‏/4‏/2017 at 00:06, 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.rarFetching info...

Expand  

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