magdidir

الاخ الرائع @Foksh تسلم ايدك يا النشمي وبارك الله فيك وجزاك الله كل خير ، انا ممنونلك يا اخوي

السلام عليكم ورحمة الله وبركاته في قاعدة البيانات الجديدة المرفقة مع الصورة اتمنى من الله عز وجل ان اكون قد وفقت في توضيح المطلوب ، واعتذر منكم جميعا لضعفي في ايصال فكرتي 31-01-2025- last.accdb

Private Sub ÃãÑ154_Click() Dim MyCriteria As String Dim ArgCount As Integer ArgCount = 0 MyCriteria = "" DoCmd.Hourglass True AddToWhereegal [r1], "[companNO]", MyCriteria, ArgCount AddToWhereegal [M], "[DrivNO]", MyCriteria, ArgCount 'AddToWhereegal [mo], "[SenfNO]", MyCriteria, ArgCount 'AddToWhereegal [cc], "[carno]", MyCriteria, ArgCount If IsNothing(MyCriteria) Then DoCmd.OpenForm "dd12", acNormal, acFormReadOnly Else DoCmd.OpenForm "dd12", acNormal, , MyCriteria If IsNothing(Forms![dd12].RecordsetClone.RecordCount) Then MsgBox "áÇ íæÌÏ ãÚáæãÇÊ ÈÇáãæÇÕÝÇÊ ÇáãÐßæÑÉ" DoCmd.Close acForm, "dd12" End If End If DoCmd.Hourglass False End Sub

اسعد الله صباحك اخي ? Kkhalifa1960 حسب الوضع الحالي في قاعدة البيانات الدالة تبحث في اي من الحقول النصية على الجهة اليسرى والدالة تبحث في حقل واحد او حقلين مجتمعين او مهما كان حدد الحقول بتوسيع البحث او تضيقه المطلوب ان يتم البحث في الحقل الرقمي : رقم الشركة ، رقم السائق

بارك الله فيك اخي @Foksh بعد ان رفعت الموضوع تيقنت اني لم اعبر بالطريقة الصحيحة عن مرادي: الية البحث تتم على حقل النصي وليس حقل رقم الشركة او رقم السائق، فالدالة تقرأ من خانة النص ، والمطلوب هو ان يتم البحث على الحقل الرقم وسأرفق صورا توضح المطلوب بإذن الله:

السادة اعضاء المنتدى العظيم اسعد الله صباحكم , وجمعة مباركة عالجميع المطلوب مساعدتي ان امكن وبعد اذنكم تعديل المودل عدد 2 موجودة في البرنامج بحيث يصبح بامكاني البحث في الحقل الرقمي ، علما بأنها تعمل بشكل ممتاز للبحث في الحقول النصية ، وبامكانها البحث في اكثر من حقل وتضييق البحث او توسيع مدى البحث في اي جدول مهما كان كبر عدد الحقول فيه، مرفق قاعدة البيانات ومشكورين سلفا 31-01-2025.rar

مشكور وجزاك الله كل خير ، قمت بتعديل الكود كالتالي لكي يفتح السجل المكرر Private Sub Command137_Click() On Error GoTo ErrorHandler Dim db As DAO.Database Dim newID As Long Dim oldID As Long Dim newINVNo As Long If IsNull(Me.id) Then Exit Sub Set db = CurrentDb oldID = Me.id newINVNo = Nz(DMax("[INVNo]", "HTable"), 3000) + 1 db.Execute "INSERT INTO HTable " & _ "([INVNo], [Fdate], [compcode], [companyName], [TaxId], [Note]) " & _ "SELECT " & newINVNo & ", Fdate, compcode, companyName, TaxId, Note " & _ "FROM HTable WHERE ID = " & oldID newID = DMax("ID", "HTable") db.Execute "INSERT INTO Irsal " & _ "(IDNO, SenfNO, senfname, NetWight, price, Total) " & _ "SELECT " & newID & ", SenfNO, senfname, NetWight, price, Total " & _ "FROM Irsal " & _ "WHERE IDNO = " & oldID Me.Requery Me.RecordsetClone.FindFirst "ID = " & newID Me.Bookmark = Me.RecordsetClone.Bookmark DoCmd.Close acForm, Me.Name, acSaveYes DoCmd.OpenForm "HTableF" DoCmd.GoToRecord , , acLast ExitHere: Set db = Nothing Exit Sub ErrorHandler: MsgBox Err.Description & vbNewLine & _ "??? ?????: " & Err.Number, vbCritical Resume ExitHere End Sub

تسلم ايديك يا عبقري @Foksh ، وجعله في ميزان حسناتك ، كود اكثر من رائع بس طمعا في عبقريتك لو ما بدي اتعبك معاي ، تضيف لي عالكود جزء يغلق النموذج ويفتح السجل الجديد المكرر ، ولك مني جزيل الشكر

اخي العزيز @Foksh بارك االله فيك ،،،، الكود يكرر سجل واحد من النموذج الفرعي ، وما اريده هو تكرار بيانات النموذج الرئيسي مع بيانات النموذج الفرعي ولتوضيح الفكرة بشكل عام: قيد الرواتب الشهري يتكون من 32 موظف كل موظف بعدد الايام مضروب بسعر اليوم ، لذا احتاج لكود يكرر الراتب للشهر السابق وتغيير عدد الايام فقط تسلم ايدك عالمحاولة

السلام عليكم ورحمة الله وبركاته الاخوة الاعزاء في هذا المنتدى العظيم لدي نموذج رئيسي HTableF مبني على جدول HTable وفيه نموذج فرعي DIrsal يرتبطان بحقل رئيسي Id ( ترقيم تلقائي ) مع حقل IDNO في النموذج الفرعي في النموذج الرئيسي HTableF الحقل (INVNo) مبني على معادلة Me.Text60 = Nz(DMax("[INVNo]", "HTable") + 1, 3000) بحاجة لكود تكرار السجل المكون من الرئيسي والفرعي مع مراعاة الترقيم التلقائي في النموذج الرئيسي بالاضافة للتسلسل برقم INVno ولكم مني فائق التقدير والاحترام 60000.rar

الله الله عليك يا استاذنا @kkhaliffa 1960 شكرا جزيلا لك ولكل القائمين على هذا المنتدى العظيم، وجزاك الله كل خير وجعلها في ميزان حسناتك فعلا هذا ما احتاج اليه : سلمت ايديك وأحسن الله خاتمتنا واياكم يا رب العالمين

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

توضيح هام جدا جدا جدا للاخوة الاعزاء انا لي حسابين في هذا المنتدى ، بدأت في هذا الموضوع بأسمي magdidir ، واكملت اجابتي من حسابي الثاني Medhat92012 لذا اقتضى التنويه ، ولو كان ذلك خطأ او تصرف غير مقبول بإمكاني اغلاق احد الحسابات والابقاء على حسابي التالي وانتظر رأيكم وقراركم بما ترونه مناسبا

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

اخي واستاذي الرائع ابو بسمله : يعطيك الف عافية ولكن يا صديقي عندما اغير سعر صنف لشركة ما يتغير للشركات الاخرى . ويوحد السعر لجميع الشركات وهذا ما لا اريده ، ويجزيك كل خير على كل ما قمت به

الاساتذة والاخوة الافاضل ( @ناقل & @أبوبسمله & Eng.Qassim & @kkhalifa1960@ ) بوركت جهودكم وسلمت اياديكم وجعل عملكم وعلمكم في ميزان حسناتكم ، لقد عمرتوني بسعة صدوركم وتسابقكم في تقديم ما هو مفيد ، وتسارعكم في مساعدة الآخرين. جزاكم الله كل خير ... في يتعلق في موضوعي فإن اكثر طريقة كانت قريبة لحاجتي وطلبي هي طريقة الاستاذ kkhalifa1960 ولكن ظهر لي الخطأ كما في الصورة عندما لم اقم بادخال كل الاسعار لقائمة الاصناف حيث افترضت انه لا داعي لتسجيل كل الاسعار طالما لم يأخذ الزبون الا صنفين والاكتفاء بادخال سعرهم علما بإني فعليا بعد نهاية كل شهر وتجهيز الفواتير ساقوم بتنظيف قائمة الاسعار وابقاءها فارغة لحين الحاجة لإضافة الاسعار. كلمة لا بد منها: لم ارى سرعة وتعاون وتسابق في تقديم المساعدة كما رأيت في هذا المنتدى العظيم وسامحوني لو غلبتكم شوية

اخي واستاذي (ناقل) انا ممنون لك جدا جدا على تعبك معي ، حددت سعر الصنف رقم 103 بمبلغ 10 للزبون رقم 1101 ، ثم حددت سعر الصنف رقم 103 بمبلغ 14 للزبون رقم 1102 ..... رجعت على الزبون رقم 1101 وجدت السعر تغير الى 14 .. وذلك لانه مبني على استعلام. المطلوب هو بعد تحديد السعر للزبون يبقى سعره ثابت حتى لو غيرت السعر لزبون اخر ، ادراج السعر في جدول ( Irsal ) ,وعدم تغييره في حال تغير السعر لزبون اخر او في شهر اخر لن يحل مشكلتي الا كود وليس استعلام ،

استاذي العزيز : اعتذر منك شديد الاعتذار واشعر بالخجل من عدم مقدرتي على توضيح فكرتي ، وسأحاول مرة اخرى بشرحها بطريقة اتمنى من الله ان تكون واضحة. في بداية موضوعي ذكرت ان كل زبون له سعر خاص به . واستخدام الاستعلام في توزيع السعر يعمم على كل الزبائن واتمنى من الله ان يعينني على توضيح طلبي واشكر لك سعة صدرك لنأخذ مثلا الصنف رقم 103: ابيعه للزبون رقم 1101 بسعر 20 دولار وقد اشترى الزبون مني هذا الصنف في شهر 01/2025 وبتواريخ متعدد خمسة مرات وبأوزان مختلفة. احتاج كود يقوم بتوزيع سعر 20 على الخمسة مرات ويدرج هذا السعر في (جدول الارساليات) ويتم تثبيته ولا يتغير في الشهر المقبل ولا يغير من نتيجة الفاتورة التي اصدرها في نهاية الشهر. مبيعات صنف 103 للزبون 1101 تكون 5 اوزان * 20 دولار +++ الاصناف الاخرى بنفس الطريقة. والزبون رقم 1102 بسعر 18 دولار .......... انا جربت كتبت الكود التالي بس لم يعمل معي بشكل صحيح وقد غير البيانات السابقة . If IsNull (Me.price) Then Me.price = Forms!asnaflist!price & "senfno = " & Me.SenfNO Else Undo Exit Sub End If السعر الذي احدده في شهر 1 عند فتح نموذج الاصناف يكون هذا السعر فقط لهذا الشهر ولهذا الزبون فقط . وخليني احكي بلغتي ولهجتي بدي كود يروح يبحث في ارساليات الزبون اكس عن صنف 103 ويحط سعر 20 ، ويبحث عن صنف 104 لنفس الزبون ويحط سعر 15 مثلا, .... وفي الشهر التالي اكيد حقل السعر راح يكون فارغ واعمل معه بنفس الطريقة وبسعر مختلف . وسامحني اذا اتعبتك

استاذنا العظيم ( ناقل )اقدر جهدك ، وان شاء الله يكون في ميزان حسناتك ، ولكن السعر يتغير بشكل شهري ، وعندي تغييري للسعر تغير لكل السجلات ، اقصد فلو كان سعر صنف 103 بشهر يناير على سبيل المثال 15 ، وفي شهر فبراير اصبح 16.5 ، فطريقتك التي اقدرك واقدرها تغيير السعر في الشهر السابق ، وسارفق الملف مرة اخرى بعض اضافة فترة زمنية وتلاحظ ان تغيير السعر يتم للقديم والجديد واقولها وبكل صراحة انا ممنون لك وربنا يزيد من علمك كمان وكمان Test (30).accdb

بداية بارك الله فيك وباهتمامك ، واعتذر اني ربما اخطأت بايصال فكرتي بطريقة غير دقيقة: في قائمة الاصناف انا اقوم بإدخال السعر بشكل يدوي وشهري بما يتطابق مع اتفاقي المرحلي مع الزبون بعد ادخال هذه الاسعار اريد كود يوزع تلك الاسعار على قائمة الاصناف التي سحبها الزبون بما بتوافق مع السعر المتفق عليه ، ادراج الاسعار دفعة واحدة في قائمة الارساليات مرفق صورة توضح طلبي وارجو ان اكون قد وفقت في توضيح المطلوبب

السلام عليكم ورحمة الله وبركاته 1- لدي قائمة اصناف متعددة وبأسعار مختلفة ومتغيرة باستمرار لقائمة متعددة من الزبائن 2- في نهاية كل شهر اقوم بتحديد سعر كل صنف حسب سعر متفق عليه مع كل زبون على حدا 3- بعد تحديد الكميات المسحوبة والاصناف لكل زبون احتاج كود يقوم بتوزيع السعر الذي ادخله لنموذج الاصناف على قائمة مسحوبات كل زبون نموذج (comm) ولكم مني فائق التقدير والاحترام الملف مرفق Test.accdb