اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم ورحمه الله وبركاته كيف اجعل السجلات بالفاتوره ان لا تقبل صنف مكرر

تحياتي لكم جمعيا اخواني

1111111.rar

قام بنشر
  في 18‏/4‏/2017 at 13:53, ابو زاهر said:

السلام عليكم ورحمه الله وبركاته كيف اجعل السجلات بالفاتوره ان لا تقبل صنف مكرر

تحياتي لكم جمعيا اخواني

1111111.rarFetching info...

Expand  

شو رأيك بهذا الموضوع
عند تكرار المادة سيتم يزداد المجموع المادة وسيحذف السجل المكرر

 

  • Like 2
قام بنشر (معدل)
  في 18‏/4‏/2017 at 13:53, ابو زاهر said:

السلام عليكم ورحمه الله وبركاته كيف اجعل السجلات بالفاتوره ان لا تقبل صنف مكرر

تحياتي لكم جمعيا اخواني

1111111.rarFetching info...

Expand  

بعد اذن الاستاذ الغالى @Shivan Rekany

اتفضل يا استاذ @ابو زاهر
جرب المرفق ده بص انا غيرت شوية حجات :rol:

ليه حضرتك كنت عامل نوع الحقل رقم الفاتورة  Currency

 

تم تعديل بواسطه ابا جودى
حذف المرفق للتعديل عليه
  • Like 1
قام بنشر (معدل)
  في 18‏/4‏/2017 at 14:56, ابا جودى said:

بعد اذن الاستاذ الغالى @Shivan Rekany

اتفضل يا استاذ @ابو زاهر
جرب المرفق ده بص انا غيرت شوية حجات :rol:

ليه حضرتك كنت عامل نوع الحقل رقم الفاتورة  Currency

الاضافه على الفاتوره.rarFetching info...

Expand  

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

تم تعديل بواسطه ابو زاهر
قام بنشر (معدل)

اهااا تفهمت الموضوع

النموذج الخاص باضافة فاتورة لا يضيف سجل جديد علشان كده بيشوف الرقم مكرر 

تم تعديل بواسطه ابا جودى
  • Like 1
قام بنشر
  في 18‏/4‏/2017 at 15:36, ابا جودى said:

اهااا تفهمت الموضوع

النموذج الخاص باضافة فاتورة لا يضيف سجل جديد علشان كده بيشوف الرقم مكرر 

Expand  

معذرتا اخي لم اسنطيع ارفاق الصوره ولكن كالاتي الموضوع

15100-35020

15100-35020

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

قام بنشر
  في 18‏/4‏/2017 at 16:14, ابو زاهر said:

معذرتا اخي لم اسنطيع ارفاق الصوره ولكن كالاتي الموضوع

15100-35020

15100-35020

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

Expand  

استأذن من استاذنا @ابا جودى 

اتفضل استخدمت هذا الكود قبل تحديث

Private Sub Rajmasnf_BeforeUpdate(Cancel As Integer)
If DCount("[Rajmsanf]", "[HRAKATSANF]", "[Rajmsanf]='" & Me.Rajmasnf & "'" & "AND [Rjmfatwra]=" & Forms![فاتوره مشتريات]![Rjmfatwra]) > 0 Then
MsgBox "المادة مكررة"
Me.Undo
End If
End Sub

 

1111111.rar

  • Like 3
قام بنشر (معدل)

ماشاء الله عليك أستاذ@Shivan Rekany هو المطلوب بكله ربي يبارك فيك

مع التقدير للاخ@ابا جودى شكله فهم الموضوع خطاء

تحياتي لكم جميعا

تم تعديل بواسطه ابو زاهر
  • Like 2
قام بنشر (معدل)

وهذا هو المرفق بعد التعديل واعتذر على التاخير لانى اضطررت للقبام من على الجهاز
 

الاضافه على الفاتوره -.rarFetching info...

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

استأذن من استاذنا @ابا جودى 

اتفضل استخدمت هذا الكود قبل تحديث

Private Sub Rajmasnf_BeforeUpdate(Cancel As Integer)
If DCount("[Rajmsanf]", "[HRAKATSANF]", "[Rajmsanf]='" & Me.Rajmasnf & "'" & "AND [Rjmfatwra]=" & Forms![فاتوره مشتريات]![Rjmfatwra]) > 0 Then
MsgBox "المادة مكررة"
Me.Undo
End If
End Sub

 

1111111.rarFetching info...

Expand  

اعتذر استاذ @Shivan Rekany  لم انتبه لمشاركة حضرتك  :fff:
اسال الله تعالى ان يجعلكم سباقون بالخيرات 

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

ماشاء الله عليك أستاذ@Shivan Rekany هو المطلوب بكله ربي يبارك فيك

مع التقدير للاخ@ابا جودى شكله فهم الموضوع خطاء

Expand  

هههههههههههه
اعتذر لسوء فهمى
والحمد لله الذى يسر لكم الحل على ايد الاستاذ الفاضل  @Shivan Rekany

تم تعديل بواسطه ابا جودى
  • Like 2
قام بنشر
  في 18‏/4‏/2017 at 17:19, ابا جودى said:

وهذا هو المرفق بعد التعديل واعتذر على التاخير لانى اضطررت للقبام من على الجهاز
 

الاضافه على الفاتوره -.rarFetching info...

Expand  

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

  • Like 2
قام بنشر
  في 18‏/4‏/2017 at 17:19, ابا جودى said:

اعتذر استاذ @Shivan Rekany  لم انتبه لمشاركة حضرتك

Expand  

استغفر الله اخي الغالي ... 

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

اسال الله تعالى ان يجعلكم ساباقون بالخيرات 

Expand  

اللهم امين اجمعين 
جزاك الله الفردوس الاعلى


 

  • Like 2
قام بنشر
  في 18‏/4‏/2017 at 17:19, ابا جودى said:

وهذا هو المرفق بعد التعديل واعتذر على التاخير لانى اضطررت للقبام من على الجهاز
 

الاضافه على الفاتوره -.rarFetching info...

اعتذر استاذ @Shivan Rekany  لم انتبه لمشاركة حضرتك  :fff:
اسال الله تعالى ان يجعلكم سباقون بالخيرات 

هههههههههههه
اعتذر لسوء فهمى
والحمد لله الذى يسر لكم الحل على ايد الاستاذ الفاضل  @Shivan Rekany

Expand  

عادي اخي

  • Like 1
قام بنشر
  في 18‏/4‏/2017 at 17:24, Shivan Rekany said:

استغفر الله اخي الغالي ... 

اللهم امين اجمعين 
جزاك الله الفردوس الاعلى


 

Expand  

بارك الله فيك استاذ Shivan Rekany 
اسأل الله ان يضاعف لك اجر ما تمنيت لي ولغيري :fff::fff::fff::fff:

  • Like 2
قام بنشر

كلكم اهل خير ربنا يكثر  الله من امثالكم بس بقت  معي ملاحظه بسيطه اريد ان لا يسمح  بإدخال رقم غير موجود بالاصناف  كذااكون خلصت من ذا الموضوع

قام بنشر
  في 18‏/4‏/2017 at 17:29, ابا جودى said:

ابه رايك تقلب مربع النص الخاص برقم الصنف الى كومبوكس  :wink2:

Expand  

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

قام بنشر

مرة اخرى استأذن من استاذنا @ابا جودى على المداخلة

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

اريد ان لا يسمح  بإدخال رقم غير موجود بالاصناف  كذااكون خلصت من ذا الموضوع

Expand  

 اتفضل استخدمت هذا الكود

Private Sub Rajmasnf_BeforeUpdate(Cancel As Integer)
If DCount("[Rajmsanf]", "[HRAKATSANF]", "[Rajmsanf]='" & Me.Rajmasnf & "'" & "AND [Rjmfatwra]=" & Forms![فاتوره مشتريات]![Rjmfatwra]) > 0 Then
MsgBox "المادة مكررة"
Me.Undo
ElseIf DCount("[Rajmsanf]", "[alsnaf]", "[Rajmsanf]='" & Me.Rajmasnf & "'") < 1 Then
MsgBox "ليس لدينا هذا الرقم"
Me.Undo
End If
End Sub

بيعمل لك كلا من طلبين

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

 

1111111.rar

  • Like 1
قام بنشر (معدل)
  في 18‏/4‏/2017 at 17:36, Shivan Rekany said:

مرة اخرى استأذن من استاذنا @ابا جودى على المداخلة

 اتفضل استخدمت هذا الكود

Private Sub Rajmasnf_BeforeUpdate(Cancel As Integer)
If DCount("[Rajmsanf]", "[HRAKATSANF]", "[Rajmsanf]='" & Me.Rajmasnf & "'" & "AND [Rjmfatwra]=" & Forms![فاتوره مشتريات]![Rjmfatwra]) > 0 Then
MsgBox "المادة مكررة"
Me.Undo
ElseIf DCount("[Rajmsanf]", "[alsnaf]", "[Rajmsanf]='" & Me.Rajmasnf & "'") < 1 Then
MsgBox "ليس لدينا هذا الرقم"
Me.Undo
End If
End Sub

بيعمل لك كلا من طلبين

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

 

1111111.rarFetching info...

Expand  

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

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

تم تعديل بواسطه ابو زاهر
قام بنشر
  في 18‏/4‏/2017 at 17:34, ابو زاهر said:

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

Expand  

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

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

_up_الاضافه على الفاتوره.rar

قام بنشر
  في 18‏/4‏/2017 at 18:03, ابا جودى said:

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

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

_up_الاضافه على الفاتوره.rarFetching info...

Expand  

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information