ابو جودي

مبدئيا تجربة توزيع الطلاب على عدد المدرجات فى انتظار ابداء الرأى لنرى ما بعد ذلك split students.accdb

ههههههههههه انا اسف جدا جدا جدا انا نسيت اذكر الجزئية دى انا اسف 🙏 طبعا انا حملت الملفات الهامة التى تخص المكتبات وملف التسجيل والغاء التسجيل للمكتبات من خلال ملفات دفعية فى قاعدة البيانات لعدم حذفها اصلا بأى شكل فبفقدانها تتعطل القاعدة عند تغير نظام التشغيل اذ لابد من اعادة تسجيل المكتبات مرة اخرى وفى كل مرة عند فتح القاعدة تقوم بعمل دونلود للملفات منها الى نفس مسارها وتقوم باستبدال القديم اللى حضرتك غيرت فيه اسم القاعدة وردا على سؤالك هل هذا يرثر على قاعدة البيانات : فى الوقت الراهن او بمعنى ادق ان كان تم تسجيل المكتبات لن يكون هناك اى تأثير ولكن مستقبلا عند الانتقال لجهاز آخر او تغيير نظام التشغيل الملف الدفعى سوف يقوم بعملية التسجيل على اكمل وجه ولكن لن يتم فتح القاعدة بشكل الى كما حدث معكم وشاهدتم عند التجربة لفتح القاعدة فى المرة الاولى لانه فى المرة الاولى فقط تم تشغيل الملف الدفعى لكن بعد ذلك القاعدة تعمل بدون فتح الملف الدفعى طيب الحل ايه شوف يا سيدى حضرتك تقوم بتغيير اسم القاعدة فى الملف الدفعى لاسم القاعدة الجديد بعد ذلك تقوم بفته القاعدة بالضغط على الشيفت لتخطى نموذج البدء الذى وظيفته فى كل مرة تحميل عمل دونلود للملفات من القاعدة بعد فتح القاعدة اظهر الكائنات المخفية وبعد ذلك افتح النموذج باسم : UsysfrmUpload بعد ذلك تجد عمود باسم Blob_comment فيه الملفات المحملة فى القاعدة اختر الصف الذى به اسم الملف الدفعى Register.bat وفى نفس الصف تجد زر أمر باسم upload اضغط على الزر ومنه اقتح مسار القاعدة ومن المجلد Reference قم بتحديد الملف الدفعى Register.bat بذلك انت الان قنت بعمل ابلود للمف الجديد الى القاعدة واتبدلت القديم بهذا الملف الجديد وللتأكد من عملك اغلق القاعدة احذف مجلد Reference افتح القاعدة بشكل طبيعى سوف يتم انشاء المجلد من جديد ويتم تحميل الملفات من القاعدة اليه افتح الملف الدفعى Register.bat فى وضع التعديل وشاهد اسم القاعدة تجده الجديد سوف اقوم بتصوير كل ذلك وارفق الصورة ولكن قمت بكتابة الشرح تقصيلا كمال طلب واشار استاذى الجليل ومعلمى القدير و والدى الجبيب الاستاذ @ابوخليل

اساتذتى الكرام واخوانى واحبابى جزاكم الله خيرا

القاعدة الامامية يتم تشغيلها من خلال قاعدة الفتح Run My App وتقوم من تلقاء نفسها بالارتباط بالقاعدة TablesArchivingDB ان كانت فى نفس المسار وتطلب منك تحديد المسار ان لم تجد قاعدة الجدوال فى مسارها والقاعدتين الامامية والخلفية مشفرتان بكلمة مرور اما قاعدة الفتح مشفر بتحويلها الى accde

الاستاذ @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)