معنى الكود المرفق

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

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

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

 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

 

تم تعديل يناير 20, 2023 بواسطه ابوخليل
تنسيق الكود

[ابوخليل]

اخي .. استعمل اداة عرض الكود .. والصق فيها

 

بالنسبة للكود : يطول الشرح فكل سطر لوظيفة معينة

لو سألت عن سطر او جملة افدناك بها

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

افتح الاستعلام على عرض sql ستجد في اول سطر عبارة  Top 10  فقط امسحها

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

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

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]));

 

[ابوخليل]

يوجد استعلام ثالث باسم  modvou71

ومن اجل التأكد ارفق مثالك حتى نتمكن من مساعدتك

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

الاخ ابوخليل يعطيك العافية 

في المرفق نموذج Fautt  اختيار نوع السند مثلا تحريك ثم ادخل رقم السند ثم زر ادخل نوع ورقم السند للتعديل 

اذا اخترت رقم السند 8 وضغطت على زر تعديل السند يظهر لي معلومات السند السند مع ازرار حفظ وحذف اما اذا اخترت رقم السند 7 لا يظهر الازرار للتعديل لانة اكثر من عشر مواد اكتشفت السر في حقل text77 بحث ولم اجد الحل 

شكرا جزيلا

م1.rar

[ابوخليل]

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

لذا جعلت الجلب مباشرة من الجدول

تفضل

م11.rar

[ابوبسمله]

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

مشاركه مع اخى ومعلمى وشيخنا الجليل @ابوخليل جزاه الله عنا كل خير

اخى @مالك الحرايزة مشكلتكه لم تكن مع الحقل text77 وانما مع حقل عدد السجلات

فالسند 8 عدده خفيف فيتم الالحاق بسرعه ويتم تنفيذ جميع الاوامر اما السند 7 فسجلاته كثيره وياخذ وقت فالتنفيذ ويتم تنفيذالاوامر قبل ظهور العدد والتشييك عليه

4 دقائق مضت, ابوخليل said:

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

هذا صحيح معلمى العزيز

تقبلوا تحياتى

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

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

الاخ ابوبسمله شكرا اخي زاد الله في علمك بالتوفيق