Shivan Rekany

حسب فهمي الخطأ هو في اسم الكائن اكتب اسم الكائن بشكل صحيح بل انت كتبت الاسم هكذا "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 مع الاستعلام التحويل خارج ان يكون في استعلام واحد هكذا ام ماذا

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

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

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

السلام عليكم ورحمة الله وبركاته اخي العزيز عمر انا ما عملت لك بنفس الكود بل عملت لك بطريقة اخرى اولا اضفت جدول جديد باسماء الموظفين وبعدين عملت علاقات واحد لمتعدد ثالثا عملت نموذجين نموذج الرئيسي ومصدره جدول اسماء الموظفين ونموذج الفرعي لكي يسجل ايام الغياب و في نموذج الرئيسي اضفت مرعين نصيين باسماء تاريخ الاول والتاريخ الثاني و للتاريخ الاول مصدره هو التاريخ الاول للموظف اي كتبت هذا الكود لكي يأخذ التاريخ الاول للموظف =IIf([ID]>0;DFirst("[StartDate]";"[times]";" [times]![ID]=" & [ID])) وللتاريخ الثاني كتبت هذا الكود لكي يأخذ التاريخ الاخير للموظف =IIf([ID]>0;DLast("[StartDate]";"[times]";" [times]![ID]=" & [ID])) وبعدين اضفت زر ابدأ العملية وكتبت هذا الكود عند الضغط على كليك عليه في محرر فيجوال Option Compare Database Private Sub Command15_Click() Dim i As Integer Dim i1 As Integer Dim sCount As Integer Dim F1Count As Integer F1Count = DCount("*", "TBLMYMOAZIFIN") DoCmd.GoToRecord , , acFirst For i1 = 0 To F1Count - 1 sCount = DateDiff("d", Me.startd, Me.endd) - 2 Forms!form1!formLost_Serial.SetFocus DoCmd.GoToRecord , , acNewRec For i = 0 To sCount Forms!form1!formLost_Serial!missing = Format(DateAdd("d", i, Me.startd + 1), "d") DoCmd.GoToRecord , , acNext Next i Forms!form1.SetFocus DoCmd.GoToRecord , "FORM1", acNext Next i1 DoCmd.Requery End Sub واتفضل مع القاعدة db2.rar اتمنى ان يكون هو مطلبك تحياتي

اتفضل اخي محمد استخدمت هذا الكود Dim i As Integer Dim sCount As Integer sCount = DateDiff("d", Me.StartDate, Me.enddate) DoCmd.GoToRecord , , acNewRec For i = 0 To sCount Me.XDate = DateAdd("d", i, Me.StartDate) Me.IdMonth = Format(Me.XDate, "mm") DoCmd.GoToRecord , , acNext Next DoCmd.Requery db11.rar