Shivan Kurdi

اتفضل اليك هذا الكود DoCmd.OutputTo acOutputReport, "rptTransfer", acFormatPDF, strPathAndfile & "rptTransfer" & Format(Me.Text18, "yyyy") & "-" & Format(Me.Text18, "mm") & "-" & Format(Me.Text18, "dd") & ".pdf", True ولا تقول انه لا يشتغل عندي لاني انا جربت بعدين ارسلت لك واليك ملفك بعد تعديل 2017.rar

اكتب الكود هكذا DoCmd.OutputTo acOutputReport, "rptTransfer", "PDF Format (*.pdf)", strPathAndfile, True

حسب فهمي الخطأ هو في اسم الكائن اكتب اسم الكائن بشكل صحيح بل انت كتبت الاسم هكذا "rptTransfer" & txtMonth

اتفضل اخي اليك هذا الاستعلام SELECT Basic.Emp_No, Basic.Emp_Name, Egoor_assassia.Emp_No, Max(Egoor_assassia.Agr_Date) AS MaxOfAgr_Date, Nz(DLookUp("[Agr_amount]","egoor_assassia","[Agr_Date]=#" & [MaxOfAgr_Date] & "#" & "and [Emp_No] = [Emp_No]"),0) AS dd FROM Egoor_assassia INNER JOIN Basic ON Egoor_assassia.Emp_No = Basic.Emp_No GROUP BY Basic.Emp_No, Basic.Emp_Name, Egoor_assassia.Emp_No; لكن هناك ملاحظة كان في خطأ في ادخال تاريخ استاذ اشرف اللي في 01\07\2017 انا مسحته و اضفت من جديد حتى لا يظهر معي الخطأ وفي الاخير النتيجة سيكون كالتالي اتفضل مع القاعدة بياناتك last agr.rar تقبل تحياتي

اتفضل اليك هذا كود سيحذف الحقل DoCmd.SetWarnings (warningsoff) DoCmd.OpenTable "rrrr", acViewNormal DoCmd.GoToControl "vil" DoCmd.RunCommand acCmdDeleteTableColumn DoCmd.Close acTable, "rrrr", acSaveYes DoCmd.SetWarnings (warningson) وهذا الكود سيفرع الحقل DoCmd.SetWarnings (warningsoff) Dim sql as string sql = "UPDATE rrrr SET rrrr.Vil = "";" docmd.runsql (sql ) DoCmd.SetWarnings (warningson) غير "rrrr" باسم جدولك وغير "vil" باسم حقل تريد ان يحذفه

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

اعتذر لك بشدة ما انتبهت لذلك اتفضل وبدون ن ز =DCount("[vid]";"[visit]";"[vizites]='خارجية' and [gustid]=" & [Forms]![AA]![نص240])

السلام عليكم ورحمة الله وبركاته على الرغم انا لا اعرف شي عن المخازن و الفاتورة لكن حسب رأيي اولا اخفاء حقل نوع الفاتورة لانه النموذج هو نموذج المشتريات ثانيا اضافة حقل اخر باسم كيفية تسديد هل نقدا ام بواسطة شيك ام اجل ثالثا اخفاء حقل سعر الشراء من نموذج الفرعي ( لكن هذا حسب طلب ) اي واحد يريد ان لا يظهر لانه مايريد يعرف حدى اي المستخدمين عن اسعار الشراء رابعا قيمة افتراضي للحقل كمية الشراء بيكون يساوي 1 لكي يظهر النتيجة مباشرتا واذا اشترى اكثر تكدر تزيده بيد خامسا قيمة افتراضي للحقل خصم بيكون صفر لكي يظهر النتيجة مباشرتا واذا تم خصم بشيء تكدر تتغير بيد سادسا لكي تخطي من الرسالة الخطأ للاكسس اكتب في بدايةة الاكواد on error resume next هذا والله يعلم تقبل تحياتي

اخي الكريم احذف الكود السابق واكتب هذا فقط =Count(*) واليك ملفك بعد تعديل AAA.rar

اتفضل =NZ(DCount("[vizites]";"visit";"[vizites]='خارجية' and [gustid]=" & [gustid]);0)

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

كلا اخي شوف الجدول

تمام اخی غدا راح اشرح لک بالصور ان شاء الله لكن ذكرني غدا

عفوا انت اختارت شهر مرتين اي انت خذت الايام شهر وبعدين خذت مرة اخرى بنفس الشهر وهذا ما يقبل لان في جدول ئيكس دَي به حقل باسم ئيكس داتا وما يقبل التكرار غير خاصيته الى التكرار مقبول راح يعمل لك كما تريد واذا تريد ما يقبل التكرار وعند ضغط ما يظهر رسالة الخطأ في اول الكود اكتب ON ERROR RESUME NEXT وجربه هل سيشتغل تمام ام ماذا سيجري

اخي @اسلام سيد هو استعلام تجميعي ما يظهر كنماذج الاخرى بل بيظهر ك كود سكويليتي شوف افتح قسم استعلامات واضغط على علامة استعلام تجميعي راح يفتح لك نافذة ما بها شي اكتب فيها SELECT [الفواتير اصناف].المكاتب FROM [الفواتير اصناف]; UNION ALL SELECT [رصيد المخازن].الاسم FROM [رصيد المخازن]; سيجمع لك الحقل مكاتب و الحقل الاسم في حقل واحد وهنا الشي المهم هو UNION ALL وتكدر تجمع بين جدول واحد كما عملت انا و اكثر تحياتي

مشاركة مع السيد @محمد ابوعبد الله اتفضل اخي اضفت حقل اي دي في النموذج والتقرير واضفت من الكود شرط اي دي يساوي اي دي "[id]=" & Me.ID اي الكود سيكون كالتالي Dim stDocName As String stDocName = "R_mouamalat" DoCmd.OpenReport stDocName, acPreview, , "[id]=" & Me.ID obeidi input1.rar

اليك ملف برنامج دريم للملابس (1).rar اللي عملت هو استعلام توحيد لنفس الاستعلام مرتين اي عملت توحيد استعلام رصيد المخزون مرتين اتفضل هذا هو الاستعلام SELECT [الفواتير اصناف].المكاتب, [الفواتير اصناف].التاريخ, [الفواتير اصناف].[رقم الفاتورة], [الفواتير اصناف].التوجيه, [الفواتير اصناف].الموديل, [الفواتير اصناف].السعر, [الفواتير اصناف].العدد, [الفواتير اصناف].[وقت التسجيل], [الفواتير اصناف].[اسم الصنف], [الفواتير اصناف].[اسم المورد], [الفواتير اصناف].التصنيف, IIf([التوجيه]="شراء",[العدد],IIf([التوجيه]="بيع",[العدد]*-1,IIf([التوجيه]="مرتجع شراء",[العدد]*-1,IIf([التوجيه]="مرتجع بيع",[العدد]*-1,IIf([التوجيه]="تحويل",[العدد],0))))) AS الرصيد1 FROM [الفواتير اصناف]; UNION ALL SELECT [رصيد المخازن].الاسم, [رصيد المخازن].التاريخ, [رصيد المخازن].[رقم الفاتورة], [رصيد المخازن].التوجيه, [رصيد المخازن].الموديل, [رصيد المخازن].السعر, [رصيد المخازن].العدد, [رصيد المخازن].[وقت التسجيل], [رصيد المخازن].[اسم الصنف], [رصيد المخازن].[اسم المورد], [رصيد المخازن].التصنيف, [رصيد المخازن].الرصيد2 FROM [رصيد المخازن]; تحياتي

اذا اليك هذا الرابط واليك هذا وايضا

ما الذي تريد بالضبط ؟ لانك ارفقت قاعدة بها نموذج بحث

هل تريد هكذا

يا رب اغفر لنا .. اننا احزنّا قلب واحد طيب اعتذر بشدة

هل تريد ان يكود يربط استعلام مساعد منع التجاوز 1 مع الاستعلام التحويل خارج ان يكون في استعلام واحد هكذا ام ماذا

شوف هذا الرابط لعل تفيدك

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

عند تغير التاريخ للعميل !! لماذا تتغير التاريخ للعميل المنتهي العقد ؟ عند انتهاء العقد راح تكتب اليوم اللي فيه المنتهي العقد معه وحينئذ راح يكون هو اكبر تاريخ على ذلك الرقم وعلى هذا الاساس انا جربت مثلا عند انتهينا العقد مع شخص و نقلنا اسمه الى جدول المنتهي العقود اي تم انتهاء العقد للسيد ( محمد السيد ) وكتبنا اي عملنا تعاقد مع شخص اخر اي عملنا عقد مع السيد ( ياسين انور ) وفتحنا استعلام من جديد شفت ان الصور سيكمل الحكي ما اعرف عدا هذا ما تريد