kanory

طيب .. ابشر : 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

انظر .... New Microsoft Access قاعدة بيانات (2) (1).accdb

يصبح الكود بهذه الصورة : On Error GoTo Err: DoCmd.RunCommand acCmdSaveRecord [Forms]![SandExpense_F]![ExpenseDate_Sub].[Form]![notes] = Me.notes2 Me.ExpenseDate_Sub.SetFocus DoCmd.GoToRecord , , acNewRec [ExpenseDate_Sub]![Amount2].SetFocus Exit Sub Err: MsgBox Error$ kan2.accdb

بعد اذنك أخي عبداللطيف ضع هذا الكود قبل كود الحدث لديك DoCmd.RunCommand acCmdSaveRecord

وعليكم السلام ورحمة الله ...... أرفق مثالك ليتم التعديل عليه ؟؟؟

تفضل .... kanory.accdb

بالتوفيق ..........

وعليكم السلام ورحمة الله ..... لم نستطع تحميل المرفق .... لكن ضع هذا الكود في حدث عند تشغيل النموذج الاول .... DoCmd.DeleteObject acForm, "نموذج2"

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

فكرة ممتازة أخي رمهان ..... تضاف كمعلومة جميلة

انظر المرفق .... Forum.mdb افتح التقرير في وضع التصميم ولاحظ التغيرات ....

تابع الصورة وعدل عدد الاعمدة كما تريد ظهورها في التقرير .....

ممكن تستفيد من هذا الموضوع ...

هل هذا ما تقصدة .....

أشكرك أخي الفاضل لكن هي ليست عبقرية ولكن استخدام قاعدة IF في الاستعلام فقط ...... فبل كل شيئ لفهم ذلك انصحك بعدم استخدام المسميات العربية في تسمية حقول الجداول أو اسماء الجداول قدر الامكان : ببساطة استخدمنا هذا في الاستعلام : D: IIf([1]="2";[المبلغ]-[النسبة];"0") شرح الرموز لأني حولتا رموز وارقام حتى نفهمها لأني لو كتبتها بالعربية تتغير مواقعها ولا نستطيع تخيلها بالشكل المطلوب : D هو اسم الحقل ( صاقي الارباح ) 1 هو حقل الحدث 2 العبارة الموجودة في حقل الحدث ( ذاهب ) إذن قاعدة IF تقول عند وجود عبارة ذاهب في حقل الحدث اجري عملية طرح النسبة من المبلغ وفي حال عدم وجود العبارة ذاهب في حقل الحدث ارجعها صفرا ارجو ا، اكون وفقت في الشرح كلنا شوق لطرقك الجميلة ..... ( حياك استاذي رمهان .... في انتظارك )

انت جعلت الفرز حسب التاريخ .... انظر الصورة انظر المرفق بعد حذف الفرز .... Forum.mdb