kanory

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

ارفق النموذج حتى نستطيع معرفة المشكلة ... لن تحل المشكلة نظريا ....

عند تعديل المسميات عدل ايضا المسميات في الكود ؟؟ Me.txtCurrentRecord = Me.ID Me.ID.BackColor = Me.txtCurrentRecord.BackColor Me.Name_i.BackColor = Me.txtCurrentRecord.BackColor Me.Tel.BackColor = Me.txtCurrentRecord.BackColor ليس للامتداد علاقة في ذلك ....

ماشاء الله تبارك الله ...... انتظرنا وحصلنا على ما نريد .... بارك الله فيك ....

ما شاء الله تبارك الله ...... اسمح لي أن أقف لك احتراما ..... نعم الخير اتى .....