ابوبسمله

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

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

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

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

او اضف السطر التالى Application.RefreshDatabaseWindow قبل End Function ليعمل ريفرش للقاعده ويظهر معك الجدول مباشره دون الاغلاق بالتوفيق

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

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

الخطا بيقول ان الكائن موجود اغلق القاعده وافتحها هتلاقى الجدول الجديد الذى تم اضافته link_to_Settings_tbl بالتوفيق

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

مشاركه معا اخى واستاذى ووالدى العزيز خالد جزاه الله عنا كل خير ارى ان هذه المشاركه هى الصحيحه من واقع البيانات والناتج مظبوط ولا يوجد تكرار والرصيد 3000 لزمرد لان هناك عمليتان وارد بتاريخ 24 و 27 /9 بنفس المبلغ 1500 هذا والله اعلى واعلم

وعليكم السلام ورحمه الله وبركاته مشتركه مع اخى @سامي الحداد جزاه الله عنا كل خير وانا ايضا تظهر عندى من غير ريفرش ومرفق تعديل ع تعديل اخى سامى لعله يكون ما يريد @ابو عبد الله العراقي بالتوفيق Dcount(1).accdb

وهذا ما اريده جزاك الله خيرا على طيب دعائك ولك مثله وزياده وربنا يسعد ايامك وفيك بارك الله اخى والشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير اتفضل تعديل بسيط باستخدام الشرط داخل داله اللوب لانى لما عدلت كان الوقت متاخر فعدلت التعديل على السريع Sub Create_Record_For_Every_Item3() ' تكرار السجلات لقاعدة البيانات المقسمة Const RTableName As String = "ItemsCopy_Qr" ' الاستعلام الذي يتم الحاق منه السجلات Const ALLItemsTableName As String = "BarcodeItems_T" ' الجدول الذي الية يتم نسخ السجلات وتكرارها Dim stmailList As String Dim MyDB As Database Dim r As Recordset Dim SqlSt As String Dim ItemCounter As Integer Set MyDB = CurrentDb Set r = MyDB.OpenRecordset(RTableName) DoCmd.SetWarnings False SqlSt = " DELETE " & ALLItemsTableName & ".* FROM " & ALLItemsTableName & " ; " DoCmd.RunSQL (SqlSt) Do If r.Fields("InvoiceNum") = [Forms]![Run]![K1] And r.Fields("sisl") = True Then For ItemCounter = 1 To r.Fields("QuantityS") ' تكرار السجلات حسب الرقم الذي يوجد في الحقل QuantityS SqlSt = "INSERT INTO " & ALLItemsTableName & " (BarCodeNumber,PriceS,ItemName,curName,CuCodn,CodeCounter) VALUES ( """ & r.Fields("BarcodeReader") & """,""" & r.Fields("PriceS") & """,""" & r.Fields("ItemName") & """,""" & r.Fields("currNames") & """,""" & r.Fields("CuCode") & """," & ItemCounter & " );" DoCmd.RunSQL (SqlSt) Next ItemCounter End If r.MoveNext Loop Until r.EOF DoCmd.SetWarnings True If ItemCounter > 0 Then MsgBox "تم ترحيل السجلات بنجاح" Else MsgBox "لا يوجد سجلات لترحيلها" End If r.Close Set r = Nothing Set MyDB = Nothing End Sub مرفق الملف به ملفان واجه كل واحد بتعديل بالتوفيق mm.rar

وعليكم السلام ورحمه الله وبركاته اتفضل اخى @qathi تم التعديل ان شاء الله يكون ما تريد Set r = MyDB.OpenRecordset("SELECT InvoiceTT.InvoiceNum, InvoiceTT.ItemId, ItemsT.ItemName, ItemsT.BarcodeReader, InvoiceTT.priceu, ItemsT.PriceS, InvoiceTT.QuantityS, InvoiceTT.sisl, tbl_curr.currNames, tbl_curr.CuCode " & _ "FROM (ItemsT INNER JOIN InvoiceTT ON ItemsT.[ItemID] = InvoiceTT.[ItemId]) LEFT JOIN tbl_curr ON InvoiceTT.CuryID = tbl_curr.currID " & _ "WHERE (((InvoiceTT.InvoiceNum)='" & [Forms]![Run]![K1] & "') AND ((InvoiceTT.sisl)=True));") بالتوفيق mm.rar

اهلا بك اخى ومعلمى العزيز خالد تسلم ايدك معلمى العزيز وجزاك الله خيرا على مشاركتك معنا 💐🌹

وعليكم السلام ورحمه الله وبركاته اتفضل تم تعديل حقل zday فالجدول لنص ليقبل اسم اليوم Me.Zday = Format(Me.Zdate, "dddd") بالتوفيق تاريخ.accdb

اها ها هو الموضوع الذى اشرت عليه بردكم اخى ومعلمى العزيز

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

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

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

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

تم

بالتوفيق

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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير الحمد لله الذى بنعمته تتم الصالحات بس هو مين @مدحت توفيق و @اسلام محمد22 هل الحسبان لنفس الشخص ام انتم زملاء تعملون مع بعض ع نفس البرنامج نعم يوجد اكثر من طريقه واخترت منها تعريف متغير عام بالمديول Module2 Public strName As String ياخد قيمته من الكمبو معرفه الكود بالنموذج accountcuss فى حدث بعد التحديث بمعنى لازم تختار الاسم من هذا الكمبو ليتم تعبئه المتغير بالاسم ويتم اسناد الاسم لمربع النص مع فتح التقرير بالتوفيق 29_2.accdb

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