رمهان

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

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

عزيزي جرب التالي لديك هذا السطر "Provider=Microsoft.ACE.OLEDB.12.0;Data source=D:\data01.accdb" عدل السورس الى مسار القاعدة على الشبكة والذي يبدا ب \\ ليصبح مثلا "Provider=Microsoft.ACE.OLEDB.12.0;Data source=\\sharedfolder\data01.accdb"

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

وهذي من مخزون المنتدى https://www.officena.net/ib/topic/61357-مساعدة-في-استعلام-حذف-المتكرر-في-جدول-والابقاء-على-سجل-واحد/ وهذه فكرة اخرى Set rs = CurrentDb.OpenRecordset("table1"): rs.MoveFirst Do While Not rs.EOF If DCount("*", "table1", "[first name]='" & rs(1) & "' and [Address 2]='" & rs(2) & "'") > 1 Then rs.Delete rs.MoveNext Loop Me.Requery بالتوفيق

هنا شبيه للمطلوب حاول تطبيق الفكره ياباشا https://www.officena.net/ib/topic/63159-التأكد-والبحث-عن-المكرر-اثناء-الاضافة-او-التعديل/ تحياتي

جرب وبالتوفيق text.mdb

@ام ناصر مشاركة مع اخي وحبيبي @ابو ياسين المشولي ضعي هذا الكود خلف الزر Set rs1 = CurrentDb.OpenRecordset("information") If rs1.RecordCount = 0 Then Exit Sub rs1.MoveFirst Do While Not rs1.EOF Set rs2 = CurrentDb.OpenRecordset("select * from skills where id=" & rs1(0)) If rs2.RecordCount = 0 Then DoCmd.RunSQL "update information set skills=null where id=" & rs1(0): GoTo 10 rs2.MoveFirst Do While Not rs2.EOF xt = xt & rs2(1) & "," rs2.MoveNext Loop DoCmd.RunSQL "update information set skills='" & xt & "' where id=" & rs1(0) xt = "" 10: rs1.MoveNext Loop بالتوفيق

@ابا حفص شوف المرفق وبالتوفيق salary.accdb

عزيزي لو تعمل مرفق بسيط به المطلوب افضل لتقديم المساعده تحياتي

مرحبا استاذ @wael_rafat لوكان مربع النص منضم لحقل بجدول ونوعه رقم او اي نوع غير نصي .. كيف ستكتب العدد العشري اي كيف نكتب الدوت ؟ تحياتي

وهذه طريقة اخرى بالاستعلام 3 vba.accdb

صحيح استاذنا واعتقد من الاصدار 2010 ويمكن استخدامها حتى في فتح النموذج واتقرير docmd.openform docmd.openreport تحياتي

الاخ @Taaiy وبعد اذن الاستاذ ابا خليل هذا لتمرير الباراميتر في امر فتح الاستعلام Private Sub أمر0_Click() DoCmd.SetParameter "[ادخل رقم الشهر]", "1" DoCmd.SetWarnings False DoCmd.OpenQuery "2" DoCmd.SetWarnings True End Sub بالتوفيق

شوف هنا قريب جدا لماتريد

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

مرحبا اخ @حلبي تم عمل الكود خلف زر حفظ وفقط يعدل السجلات التي لم تاخذ رقم لانه ممكن تدخل 10 سجلات بعد تضغط حفظ او حفظ بعد كل سجل تم عمل الترقيم عن طريق الاستعلام وبالاستعلام query1 بالتوفيق الاسبقية لرقم المقابلة.accdb

عزيزي حلبي جرب المرفق وبالكود وعند تاكيد هذا المطلوب نقوم بعمله بالاستعلام وبدون كود وطبعا ان حبيت ولم تكتفي بالكود تحياتي الاسبقية لرقم المقابلة.accdb

تم عمل query1 للاضفة تم عمل query2 لاعادة الاختيار تم وضع كود خلف زر الاضافة به فتح الاستعلامين وهما من نوع اكشن فيتم تشغيلهم ثم اغلاق النافذة ثم عمل رفرش للشاشة السابقة بالتوفيق برنامج المستودع.accdb

مرحبا اخي جمال اعتقد لايحتاج المهم نزول الدرايفر مع مكتبات الدوت نت مثلا اكسس 2003 موجود oledb وكذلك مكتبة dao طبعا لاستخدام كاءناتها اكسس 2013 مثلا وجود ace فاذا موجوده الدرايفرز مايحتاج الاوفيس تحياتي

جرب ياغالي saleh2.accdb

جرب التالي Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) n2 = [نص17] * 50 + 1 n1 = n2 - 50 [نقدي] = DSum("[قيمة القبض]", "gabd", "[type]='نقداً' and [رقم سند القبض]>n1-1 and [رقم سند القبض]<n2") [نص125]=nz([نص125],0)+[نقدي] End Sub

جرب saleh.accdb

حدد ؟ بين فترتين والا لمدة سنة ؟

عزيزي كانوري ممكن تشرح الفكرة استاذنا مشكور