ابوبسمله

وفيك بارك الله اخى بالتوفيق

السلام عليكم ورحمه الله وبركاته هل هذا ما تريد qry المعرف اسم الاب الرسوم المبلغ 1 محمود 200 50 2 علي 300 100

وعليكم السلام ورحمه الله وبركاته اتفضل اخى @ابو هاله النبلسي ان شاء الله يكون ما تريد بالتوفيق NewUPDate.accdb

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

السلام عليكم ورحمه الله وبركاته مشاركه مع اخى واستاذى ومهندسنا العزيز @Eng.Qassim جزاه الله عنا كل خير ارفق لكم مشاركه لاخى @صلاح جبر جزاه الله عنا كل خير تقبلوا تحياتى ومرورى وكل عام وانتم بخير

واياكم اخى محمد انت نسخت الظاهر فالمعيار اضغط كليك يمين على المعيار واختار انشاء ليفتح لك منشىء التعبير وسوف يظهر لك كامل وها هو ع سطر واحد In (SELECT DISTINCT Table2.id FROM Table2;) بالتوفيق

السلام عليكم اتفضل اخى @محمد احمد لطفى DELETE Table1.id FROM Table1 WHERE (((Table1.id) In (SELECT DISTINCT Table2.id FROM Table2; ))); بالتوفيق Delt_1.mdb

السلام عليكم ورحمه الله وبركاته اخى ومعلمى وشيخنا الجليل @ابوخليل كنت اطلع على الموضوع الذى ارفقته بالسؤال عن اليات التحزيم ووجدت به مشاركه لاخى ومعلمى جعفر جزاه الله عنا كل خير تتحدث عن تحويل القاعده الى accde ع الجهاز مباشره ثم حذف البرنامج الاصل وارفق لك رابطين بخصوص هذا الموضوع بالتوفيق معلمى العزيز

السلام عليكم ورحمه الله وبركاته اتفضل اطلع المشاركه التاليه لاخى واستاذى العزيز @kanory جزاه الله عنا كل خير بالتوفيق

شغال معايا زى الفل بدون مشاكل والحمدلله

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

واياكم اخى محمد بالتوفيق

السلام عليكم ورحمه الله وبركاته اخى ومعلمى وشيخنا الجليل @ابوخليل بالنسبه لهذا الموضوع وما مررت به بانه فى حاله لم يتم تحويل البرنامج الى accde فان الامور كلها تمام ولكن فى حاله التحويل يلزم التحويل على نفس بيئه العمل لضمان التحويل والعمل بشكل سليم وكما ورد بالموضوع التالى لاخى العزيز @ابو جودي والله اعلى واعلم

وعليكم السلام ورحمه الله وبركاته اتفضل اخى واستاذى محمد @أبو عبدالله الحلوانى Dim QryStr As String 'On Error Resume Next QryStr = "INSERT INTO InvoiceDetailTbl ( IDs, OldInvs, jyarID, Movtyp, StorID, DmanSt, VoicDtID, Quentity, price ) " & _ "SELECT MovmentTbl.ID, MovmentTbl.OldInvs, MovmentTbl.jyarID, 2 AS MovTyp, MovmentTbl.StorID, MovmentTbl.AoryntID, " & _ "'" & InvNo & "' AS InvExp, MovmentTbl.QntyOut, MovmentTbl.AmtJyarOut FROM MovmentTbl " & _ "WHERE (((MovmentTbl.BlajID)='" & bljNo & "'));" بالتوفيق

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير وفيك بارك الله ، اللهم آمين واياكم يارب بالتوفيق

وعليكم السلام ورحمه الله وبركاته اللهم آمين واياكم نعم يوجد اخى @qathi فالنموذج الاول هتشيل كلمه برايفت من الحدث Private فالنموذج الثانى تحت زر الامر Call Form_frm1.n1_AfterUpdate بالتوفيق

الحمد لله بسيطه اخى الفاضل اكتب رقم الفاتوره واضغط ع زر الحفظ مباشره بالتوفيق InvoiceSale_10-1_2.accdb

كلك يمين على الملف ومنها بروبرتز هتلاقى خيار قبول العمل بالملف اضغط عليه ثم قم بفتحه وجرب ان شاء الله يشتغل معك

😀 تصدق انك شككتنى فى نفسى فقمت بفتح الملف للتجربه والتاكيد ربما غفلت عن شىء وعند التجربه لم يتم اختار اسم العميل بعد كتابه الفاتوره وقبل الضغط ع زر الحفظ وستجد الامور طيبه ان شاء الله بالتوفيق

بالنسبه للتجارب نعم قمت بها اول مره رايت فيها مثل هذا الاسلوب وكانت النتائج جيده جدا وعن نفسى اثبت هذا الاسلوب ودى تجربه سريعه ان تيسر لى الحصول على رابط الموضوع الذى رائيتها به سوف ارفقه هنا لمزيد من الاستفاده ان شاء الله واهلا بك معنا ابواحمد وجزاك الله عنا كل خير بالتوفيق

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

اللهم آمين واياكم وجميع اخوانى واساتذتى الذين تعلمت ومازلت اتعلم منهم ربنا يسعدك اخى الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير واياكم اخى كيف قمت بالتجربه ؟ حتى يتثنى لنا التوضيح لك اكثر لتصل لمبتغاك وهل قمت بتجربه المثال المرفق ام لا ؟ وضح لنا بتجربتك للملف المرفق وبتجربتك التى قمت بها بالخطوات اخى وان شاء الله خير بالتوفيق

السلام عليكم اخى ابو احمد لم ارى احد يستخدم هذا الاسلوب 👇 الا شخص واحد ، اخ لنا هنا وتركنا بعض الوقت فهل انت هو فان كنت فاهلا ومرحبا بك مره اخرى اخى تقبل تحياتى اخوك احمد

السلام عليكم ورحمه الله وبركاته مشاركه مع اخى واستاذى ومهندسنا العزيز قاسم @Eng.Qassim جزاه الله عنا كل خير اخى الفاضل @qathi ركز معى فالخطوات لكى تتعلم قم بانشاء استعلام مبنى على الجدول InvoiceTT وادرج الحقول التى تريدها وضرورى يكون به الحقل رقم الفاتوره InvoiceNum ثم فى المعيار ضع المعيار التالى وهو رقم الفاتوره بنموذج المرتجعات [Forms]![InvoiceReF]![Num] ثم قم بانشاء استعلام الحاق مبنى على هذا الاستعلام وقم بادراج الحقول ثم فى حقل رقم الفاتوره InvoiceNum ضع رقم فاتوره المرتجعات Expr1: [Forms]![InvoiceReF]![InvoiceNum] ثم فى حقل Movement ضع Expr2: [Forms]![InvoiceReF]![Movement] ثم فى زر الحفظ ضع كود تشغيل الاستعلام Private Sub Save_Click() On Error Resume Next DoCmd.RunCommand acCmdSaveRecord DoCmd.SetWarnings 0 DoCmd.OpenQuery "qryInsert" 'DoCmd.OpenQuery "qryInsert_1" DoCmd.SetWarnings -1 Me.Refresh End Sub ثم افتح النموذج وادخل رقم الفاتوره المراد عمل مرتجع لها واضغط زر الحفظ ويمكنك الاختصار بعمل استعلام الحاق فقط كالتالى واليك المرفق بعد التعديل بالتوفيق اخى InvoiceSale_10-1_1.accdb

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