أبوبسمله

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

السلام عليكم ورحمه الله وبركاته مشكلتك فى اعدادت لغه النظام فى الويندوز لديك اتبع الشرح التالى للمعرفه قمت بانشاء قاعده بيانات جديده واستيراد جداولك والنموذج ويعمل لدى الان بشكل جيد بالتوفيق البرنامج المحاسبي.accdb

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

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

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

اها ان شاء الله تجد مبتغاك بالتوفيق

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

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

وعليكم السلام ورحمه الله وبركاته جزاك الله خيرا اخى @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

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

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

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