kanory

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

تفضل ..... 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

وعليكم السلام .... انظر المرفق ... New Microsoft Access قاعدة بيانات (6).accdb

هل هذا ما تريد ؟؟؟؟ Forum.mdb

هل هذه بداية الحل حتى نكمل بقية المطلوب ....... Forum.mdb

جرب هذا ..... Private Sub أمر12_Click() On Error GoTo err_أمر12_Click Dim stLinkCriteria As String stLinkCriteria = "[ID] =" & Me![ID] DoCmd.OpenReport "TG", acViewPreview, , stLinkCriteria exit_أمر12_Click: Exit Sub err_أمر12_Click: If Err.Number = 3075 Then MsgBox "ضع رسالتك هنا" Resume exit_أمر12_Click Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub