ابو جودي

الاستاذ @ahmedhassan1948 شكله نايم ما شاف الحلول الى الان واستاذى القدير ومعلمى الاستاذ @ناقل يبدو انه زعلان لانى لم انقل عنه كما تعودنا

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

انا اقل طالب علم بدات ابو جودى والان ابو جودى وحتى مماتى سوف اضل ابو جودى

وهذا موضوع أ=آخر

اعتذر للتأخير فى الرد على حضراتكم فى الوقت الراهن انا فى العمل الان

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

اتفضل

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

طبعا لانه غير منضم ده شئ طبيعى

مشاركة مع استاذى الحبيب الاستاذ @ناقل انا ايضا ناقل من استاذى الجليل ومعلمى القدير و والدى الجبيب الاستاذ @jjafferr Dim MyWher As String Dim A As String Dim x() As String A = DLookup("[p1] & '|' & [p2] & '|' & [p3] & '|' & [p4] & '|' & [p5] & '|' & [p6] & '|' & [p7] & '|' & [p7]& '|' & [p9]", "[PlatPrice]") x = Split(A, "|") MyWher = x(0) If ComPlat.Value = "Twitter" And Me.comType = "Click" Then TargetPlas.Value = MyWher * 0.5

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

.

ومشاركة مع اساتذتى الكرام يا استاذ @عبد اللطيف سلوم افتح التصميم ان استطعت واخبرنى ان نجحت My Securty.zip

تم الحل المشكلة كانت بتجميع الازرار ولكن لابد من اعادة النظر فى اماكن الازرار تبعا للصلاحيات وشئ من اتنين 1 تكون قادر تعمل 2 تنتظر @د.كاف يار لان أهل مكة ادرى بشعابها لان انا بصراحة صدعت بقالى يومين اخبط راسى بالحيط وابحث عن مشكلة برمجية بالاكواد وبصراحة فى الوقت الحالى مش قادر افكر تانى الدائن و المدين.zip

اتفضل قم بالاطلاع على المرفق الاتى يتم وضع الروتين العام فى موديول ويتم استدعاءه من خلال اسمه حسب الحاجة كالاتى getMyIP() GetLocalIP.mdb

اتفضل Public Function getMyIP() Dim myWMI As Object, myobj As Object, itm Set myWMI = GetObject("winmgmts:\\.\root\cimv2") Set myobj = myWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each itm In myobj getMyIP = itm.IPAddress(0) Exit Function Next End Function

اتفضل توليد سجلات (3).accdb

اتفضل يا سيدى توليد سجلات(2).accdb

اى طريقة تريد التعديل عليها ؟

اتفضل المرفق بثلاث طرق توليد سجلات.accdb

اتفضل هذا التعديل Public Sub GenrateRecords(ByRef FixedCode As Boolean) Dim rec As Recordset, n As Byte Set rec = CurrentDb.OpenRecordset("CodeGenerator", dbOpenDynaset, dbSeeChanges) With rec For n = txtQTY1 To txtQTY2 .AddNew If Not FixedCode Then !Code = txtCode & n Else !Code = txtCode !DoorType = txtDoorType !Size = txtSize !Handing = txtHanding !HS = txtHS !QTY1 = txtQTY1 !QTY2 = txtQTY2 .Update Next End With End Sub وفى حالة ان الـ Code ثابت استخدم الكود الاتى Call GenrateRecords(True) وفى حالة ان الـ Code متغير ويجمل الرقم التسلسلى استخدم الكود الاتى Call GenrateRecords(False)

تجربة اضافية برجاء فتح نموذج frmReadQR وعمل استعراض لرمز الاستجابة الذى تم انشاءه E-Invoicing.zip

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

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

على كل حال هذه فكرتى ان كنت قد فهمت الموضوع توليد سجلات.accdb