kanory

انظر .... 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

بالعكس أخي الهدف من المنتدى تعليمي ...... نستفيد ...... ونفيد ..... بارك الله فيك

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

المشكلة أنك لم تقم بنسخ مربع النص الموجود باسم txtRecordBar موجود تحت مربعات النص لديك .... وانتبه لمصدر بياناته

كلام الاستاذ . @Shivan Rekany صحيح ..... والهدف من المنتدى تعليمي .... ان لم تصل الى نتيجة كرر السؤال حتى تجد الاجابة في المنتدى

هذه طريقة لاخفاء الاسم بعد اختياره من القائمة ..... جربها ComboBox (1).accdb

01.accdb