ابوبسمله

السلام عليكم مشاركه مع الاستاذ @Ahmed.IQ ع حسب ما فهمت بالمكرو اذا كان الجدول فارغ ينشى سجل واذا كان فيه سجل يتم تحديث التاريخ ان شاء الله تكون مفيده لك بالتوفيق تحديث تاريخ تلقائي_1.accdb

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

السلام عليكم مشاركه مع اخوتى الافاضل يمكنك استخدام استعلام تحديث وتشغيله عن طريق تسميه الماكرو autoexec سيتم تشغيله عند فتح قاعده البيانات او كما اشار عليك اخى موسى بالتوفيق

السلام عليكم احسنت اخى وبشمهندسنا العزيز @Eng.Qassim 🌹 عادى ولا يهمك بس حاول تركز شويه وحاول شرحك يكون مفهوم اكتر وعالعموم اتفضل ع حسب ما فهمت من كلامك واذا لم يكن حاول توضح اكتر بشرح مفهوم حتى تتم مساعدتك رسائل_5.rar

وعليكم السلام معلش اعذرنى مفهمتش شرح حضرتك قد كده وكمان ملقتش نموذج فرعى اللى يتقول عليه المهم اتفضل محاولتى ع قد فهمى ان شاء الله يكون ما تريد بالتوفيق 1_رسائل.rar

اتفضل حل اخر بتحويل الحقول الى كمبو بالتوفيق Car plate_2.accdb

وعليكم السلام ورحمه الله وبركاته احسنت اخى @TQTHAMI جزاك الله خيرا مشاركه معك نفس الحل بس بفنكشن واستدعاء بالتوفيق Car plate_1.accdb

الف مبروك بشمهندس @Eng.Qassim اعانك الله ع مساعده اخوانك ومزيد من العطاء بالتوفيق

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

السلام عليكم ورحمه الله وبركاته بالرغم من انى مش مقتنع بفكره التكرار لان التكرار هو للصف بالكامل ولكن اتفضلاخى @AymenShaban محاوله منى ب 3 طرق الاولى باستخدام dlookup فى استعلام qry مع frm وغير محبب استخدامه مع البيانات الكثيره الثانى frm2 وتم استخدام كود فحدث عند الفتح Private Sub Form_Open(Cancel As Integer) On Error Resume Next Dim Rs As DAO.Recordset Dim dict As Dictionary Set dict = New Dictionary Set Rs = CurrentDb.OpenRecordset("tbl") Rs.MoveLast: Rs.MoveFirst For i = 0 To Rs.RecordCount - 1 dict.Add "'" & Rs!ID & "'", "'" & Rs!sname & "'" Rs.MoveNext Next Dim key As Variant For Each key In dict.Keys ' Debug.Print "Key: " & key, "Value: " & dict.Item(key) Me.cmbName.AddItem key & ";" & dict.Item(key) Next Rs.Close End Sub الثالث frm3 وهو باستخدام حقل اضافى لترقيم السجلات بالتوفيق new6.mdb

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

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

الف مبروك اخى سامى واعانك الله على قضاء حاجه اخوانك بالتوفيق

هل تقصد بان الاستعلام او الجدول يكون مفتوح وتريد عمل رفرش له من خلال الكود ؟

وعليكم السلام ورحمه الله وبركاته مشاركه مع اخى واستاذى محمد @Barna جزاه الله خيرا اتفضل اخى حسين @husseinharby تم انشاء وحده نمطيه واستدعائها بالاستعلام ان شاء الله تروق لك بالتوفيق Database11.accdb

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

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

اتفضل تم اضافه Me.Refresh بالتوفيق taxxxx_1(1).accdb

وعليكم السلام ورحمه الله وبركاته اتفضل اخى @ehab125 بالتوفيق NewSum.accdb

ولا يهمك اخى اتفضل بالتوفيق taxxxx_1.accdb

السلام عليكم ورحمه الله وبركاته مشاركه مع معلمى العزيز جعفر اطلعت ايضا ع المثال وكما ذكر معلمى العزيز جعفر لا يوجد اى من هذه البيانات التاليه 👇 لدينا جدول فيه 1. مبلغ ضريبة 2. وحقلA2 3. عند النقر على امر تحديث 4. يقوم استعلام1 باستفسارك باول مشاركه بالمثال المرفق فالجدول الموجود بالمثال هو tblemp ولا يوجد به حقل A2 ولا حقل مبلغ الضريبه ولا يوجد استعلامات لعلك ارفقت مثال اخر بالتوفيق

اهلا اخى ومعلمى العزيز جعفر وضعت الحل بعد رده 👇 ع ردك بالمواضيع التى تيسر عليه الحل ولكن لم يصل للحل وانا احب البساطه التى تعلمنا اياها جزاك الله عنا كل خير تحياتى معلمى العزيز 🌹

وعليكم السلام ورحمه الله وبركاته مشاركه مع اخوتى واساتذتى جزاهم الله عنا كل خير rs!NewAsmi = DLookup("[R]", "Ratib_Tb", "[D] =" & rs!degree1 & " and [M]=" & rs!step1) بالتوفيق

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

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