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 لذا اقتضى التنويه ، ولو كان ذلك خطأ او تصرف غير مقبول بإمكاني اغلاق احد الحسابات والابقاء على حسابي التالي وانتظر رأيكم وقراركم بما ترونه مناسبا

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

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