kanory

برضو ولا تزعل تفضل ...... Database.mdb

ايش الحكمة بالكود ... ممكن نحل المشكلة ...

تفضل ولا تزعل طريقة أخرى ..... test5005.mdb

بعد إذن صديقي @عبد اللطيف سلوم ضع هذا الكود تحت الحدث الزر ...... Dim c, i c = DCount("[الراتب السابق]", "insedData") DoCmd.GoToRecord , , acFirst For i = 1 To c Me![الراتب السابق] = Me![الراتب الحالي] Me![الراتب الحالي] = "" DoCmd.GoToRecord , , acNext Next i

ما شاء الله تبارك الله اخي @مسفر تستاهل ... ارجو لك التوفيق والاعانة .... الف مبروك 🥀

انظر هذه الحسبة صحيحة ؟؟؟؟؟

وعليكم السلام الخطأ في التقرير ... صحيح ...اذا كانت الاجابة نعم ..... انظر الصور لارى أي خطأ .... هل المطلوب استعلام عن اسم الحساب أو رقم الحساب ؟؟؟؟؟؟؟ النتيجة التي هي أمامك لاسم الحساب !!!!!!

للاسف اجاباتنا كلها اصبحت نظرية ... دون ارفاق ملف من برنامجك .......

انظر هذا وطبق .... عساه يكون المطلوب .... Test.rar

أجل المشكلة في مصدر ذلك النموذج ...ما هو مصدر النموذج ( جدول أو استعلام ) ... وقد يحتاج تحميل النموذج لوقت

انظر للصورة واشرح اين الثواني المطلوب ازالتها ..... هل عند تشغيل الاكسس هل بعد ظهور النموذج الذي يحوي المؤثر هل بعد ظهور النموذج الاخير ؟؟؟؟؟ ليست هناك سوى ثواني بسيطة بين النموذجين ؟؟؟

انظر هذا .... Test.rar

تفضل ... ‫‫امانات - نسخة_2.rar

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

أخي الكريم .... في البرنامج عند ترك خانة التحاليل فاغة .... تسجل تحاليل من تلقاء نفسها فهل هذا طبيعي ... أم هي تحاليل تجرى للجميع

طيب .. ابشر : 1- انت جعلت حقلي الرقم في الجدولين NewLab و NewAllTests ترقيم تلقائي ( لكن المشكلة أنك جعلتها مرتبطة مع بعض ) يعني كل جدول هيرقم بكيفة 2- الحل : كان في جعل حقل الترقيم التلقائي في الجدول NewAllTests رقم فقط أرجو أن يكون الحل مناسبك لك .... تقبل تحياتي .....

جرب هذا لعله المطلوب .... Lab 2019_5.rar

تفضل .... Dim dbs As Database, tdf As TableDef Set dbs = CurrentDb For Each tdf In dbs.TableDefs If Left(tdf.Name, 4) <> "msys" _ And tdf.Attributes = 1 Then tdf.Attributes = tdf.Attributes - dbHiddenObject End If If tdf.Attributes = 1073741825 Then tdf.Attributes = 0 Next tdf Set dbs = Nothing Call ViewTablePage

هل جربت هذا الكود .... Private Sub ViewTablePage() DoCmd.SelectObject acTable, , True SendKeys "{F5}" End Sub Private Sub VisibleTable_Click() Dim db As Database Dim tdf As TableDef Set db = CurrentDb For Each tdf In db.TableDefs If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then tdf.Attributes = tdf.Attributes + dbHiddenObject End If If tdf.Attributes = 1073741824 Then tdf.Attributes = 1 Next db.Close Set tdf = Nothing Set db = Nothing Call ViewTablePage End Sub

حماية الأكواد .... والنماذج و التقارير من العبث أو معرفة الاكواد الموجوده بها

تفضل ..... O.accdb

نعم هذا ما قصدت .... بارك الله فيك أخي أبا جودي

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

وعليكم السلام ورحمة الله ...... مطلوبك غير مفهوم ... وضح اكثر

لعل هذا ما تريد .... يوسف.mdb