مالك الحرايزة

شكرا اخ ابوخليل فتحت الاستعلامين الموجودين في الكود ولا يوجد

If Me.Combo36 = "سند تحريك مواد" Then

DoCmd.OpenQuery "modvou7", acNormal, acEdit
DoCmd.OpenQuery "modvou77", acNormal, acEdit
Me.autot.Requery
Me.autot1.Requery
If Me.Text11 = 0 Then
  MsgBox "لا يوجد بيانات تاكد من البحث"
Me.Command71.Visible = False
Me.Command56.Visible = False
Me.Text77 = 0

INSERT INTO tabsu ( voucherno, description, idproduct, datna, idstore, notes, out )
SELECT trans.voucherno, trans.description, trans.idproduct, trans.datna, trans.idstore, trans.notes, trans.out
FROM trans
WHERE (((trans.voucherno)=[Forms]![Fautt]![Text9]) AND ((trans.description)=[Forms]![Fautt]![combo36]));

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

اريد تفسير الكود التالي وهل يوجد في الكود لا يظهر عدد المواد في السند اكثر من عشر مواد 

 If Forms!user!mod = 0 Then
MsgBox "غير مسموح لك بالتعديل"
Exit Sub
End If

DoCmd.SetWarnings False
If IsNull([Combo36]) Or Me.Combo36 = "" Then

MsgBox "اختر نوع السند", vbOKOnly + vbCritical, "اكمل"
Me.Combo36.SetFocus

Exit Sub

ElseIf IsNull([Text9]) Or Me.Text9 = "" Then
MsgBox "رقم السند", vbOKOnly + vbCritical, "اكمل"
Me.Text9.SetFocus
Exit Sub

End If
If Me.Combo36 = "سند تحريك مواد" Then

DoCmd.OpenQuery "modvou7", acNormal, acEdit
DoCmd.OpenQuery "modvou77", acNormal, acEdit
Me.autot.Requery
Me.autot1.Requery
If Me.Text11 = 0 Then
  MsgBox "لا يوجد بيانات تاكد من البحث"
Me.Command71.Visible = False
Me.Command56.Visible = False
Me.Text77 = 0
  Exit Sub
  Else
 Forms![fautt]![Combo1].Value = Forms![fautt]![autot]![idstore].Value
Forms![fautt]![Combo3].Value = Forms![fautt]![autot1]![idstore].Value
 Forms![fautt]![Text1].Value = Forms![fautt]![autot]![datna].Value
 Me.Combo3.Requery
DoCmd.OpenQuery "queryi", acNormal, acEdit
Me.Requery
Me.Text77 = 1
 End If
End If
Me.Command71.Visible = True
Me.Command56.Visible = True
Me.Command56.Enabled = True

If Me.Combo36 = "سند اخراج" Then

DoCmd.OpenQuery "modvou7", acNormal, acEdit
Me.autot.Requery

  Forms![fautt]![Combo1].Value = Forms![fautt]![autot]![idstore].Value
Forms![fautt]![Text1].Value = Forms![fautt]![autot]![datna].Value
Me.Text77 = 1
  End If
  If Me.Combo36 = "سند ادخال" Then

DoCmd.OpenQuery "modvou71", acNormal, acEdit
Me.autot.Requery

  Forms![fautt]![Combo1].Value = Forms![fautt]![autot]![idstore].Value
Forms![fautt]![Text1].Value = Forms![fautt]![autot]![datna].Value

  End If
  If Me.Text11 = 0 Then
  MsgBox "لا يوجد بيانات تاكد من البحث"
Me.Command71.Visible = False
Me.Command56.Visible = False
Me.Text77 = 0

  Exit Sub
  Else
Me.Text46.SetFocus
Me.Command77.Enabled = False
 Me.Text9.Enabled = False
 Me.Command7.Enabled = False
 Me.Combo36.Enabled = False
 Me.Text1.Enabled = False
 End If
 DoCmd.OpenQuery "query277", acNormal, acEdit
DoCmd.SetWarnings True

End Sub

الاخ ابوبسمله

اعجز عن الشكر فعلا مبدع جزاك الله كل خير

بحاجة الى تعليم اكثر بالكودات اتعلم من حضرتك ومن خبرائنا المميزين 

زاد الله في علمكم

كل الاحترام

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

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

اريد عند فتح شاشة الاصناف وابحث عن مادة مثلا طاولة ان اكبس عليها وتظهر لي بحقل النموذج السابق 

شكرا لكم 

معدل _3 - Copy.rar

الاخ ابوبسمله شكرا جزيلا

امد الله في عمرك في عمل الخير وزادك الله من علمة

كل الاحترام

مرحبا معرفتي قليلة 

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

كل الاحترام

شكرا الاخ ابوبسمله

الحل صحيح جعله في ميزان حسناتك

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

ألسلام عليكم ورحمة وبركاتة

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

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

حقل idproduct  رقم المادة حقلproductnam هو اسم المادة متاسف على طيلة الشرح

معدل1 - Copy - Copy - Copy.rar

الاخ ابو اجمد شكرا جزيلا

 الاخ kkhalifa1960  شكرا جزيلا نعم ضفت مواد جديدة وتم حل المشكلة

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

جربتها لا تصالح عند المعاينة الارقام التي يوجد بها كسور تظهر شكل مربعات بالحقل انها كثيرة

المرفق 

تقرير خلاصة

751محاسبة2018 مستودعات - Copy.rar

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

هل يوجد طريقة لجعل الارقام تظهر في التقرير كما يلي مثلا

1

2.45

3.65

44

في الصورة المرفقة حاولت جميع خيارات التنسيق 

اخواني اعضاء المنتدى

لقد عملت على حل الاجابة عن طريق nz في الاستعلام

جيزة: Sum(nz([الجيزة],0))

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

يوجد تقرير باسم خلاصة اريد الحقل الفارغ ان يصبح صفر ليم الجمع في حقل المجموع لان الجمع لا يصلح بحقول فارغة 

شكرا جزيلا

751محاسبة2018 مستودعات - Copy.rar

كل الاحترام شكرا جزيلا في ميزان حسناتك

الاستعلام القديم يعمل تمام يضيف تلقائي لكن المشكلة باسماء المواد تبقى مكررة 

شكرا جزيلا استادنا Barna

يعطيك العافية الاحل كافي لكن  سؤال لا ينفع على نفس الاستعلام القديم لانة سوف اضيف مستودعات 

قي المستقبل 

الاخ Barna

نعم هذا بالضبط المطلوب يعطيك الف عافية

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

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

يوجد صورة يبين المطلوب بتوحيد اسم المادة مع رقم المادة وتوزيع الارصدة على المستودعات كما في الصورة المرفقة 

شكرا للجميع

751محاسبة2018 مستودعات - Copy_Backup.rar

الاخ ابو خليل شكرالك

العمل الذي اقوم به لا يوجد مشتريات ومبيعات 

يقوم على النحو التالي

استلام مواد من مستودع خارجي هنا ساقوم بعمل سند ادخال للمواد للمستودع الرئيسي يعني سند الادخال فقط للمستودع الرئيسي 

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

اما سند الاخراج سيكون ايذن للمستودع الرئيسي اخراج مواد من رصيد المستودع الرئيسي مثلا غير صالح او شطب المواد

اذا عملت جداول

جدول الاصناف

جدول حركات المستودع

جدول اسماء المستودعات

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

اريد شرح مفصل عن الية عمل سند تحويل بين المستودعات لانه معقد 

يجوز عمل 3 حركات في نفس السند سند ادخال وسند اخراج وسند تحويل بين المستودعات لانة انا عندي مستودع رئيسي و11 مستودع فرع 

شكرا

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

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

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

كل الاحترام

وصل استلام - Copy - Copy.rar

الاخ عمر

يعطيك الف عافية على المجهود الذي تبذلة زادك الله من علمة

نعم هذا المطلوب شكرا جزيلا

شكرا جزيلا اخ عمر المطلوب موضح بالصورة