ابو ياسين المشولي

السلام عليكم اخواني الكرام اليوم اتفاجات بحاجات كثيرة عندما استوردت نماذج من 2003 الى 2010 اولا البحث ما ييشتغل عندي وعملت موضوع بهذا الان اتفاجاء الالحاق ما يشتغل يعطيني خطاء وكمان في بحث تحرير وسرد كنت اكتب اول كلمه ويكمل الباقي والان اتوقف من لديه خبرة لا يبخل علينا هذا كود الالحاق Dim strSQL1 As String strSQL1 = "insert INTO حركات (user,دائن, [تاريخ الحركة], البيان, الاسم,[نوع السند]) VALUES ([Forms].[login]![a],[نص259], snddate ,""دخل""&[supplier], ""الخزينه"",""دخـل"")" DoCmd.RunSQL strSQL1

للرفع

Database17.accdb

اخواني الاعزاء كان لدي نموذج مصمم 2003 اكسس وعند نقله الى 2010 لم يعمل الكود وكان الكود هكذا DoCmd.ApplyFilter "", "left([rakm],10)+Left(Nz([goal],0),10)+Left([name],50) Like '*' & [Forms]![selectCustomer]![which2] & '*'" DoCmd.GoToControl ("SupplierName") If txtCount = 0 Then Dim rs ' As DAO.Recordset Dim Xsearch As String 'الاسم يجب وضعه If IsNull(which2) = True Then Exit Sub 'بحث لسجل قي الجدول Set rs = CurrentDb.OpenRecordset("data1", dbOpenDynaset) 'البحث بالاسم المدخل في مربع النص Xsearch = "[name] = '" & Me![which2] & "'" rs.FindFirst (Xsearch) If rs.NoMatch Then Beep MsgBox " المـعـذرة يـرجـاء الـتـأكـد .... لا يـو جـد عـمـيـل بـهـذا الإسـم : " & Me.which2, , DLookup(" [الاسم_التجاري] ", "بيانات_الشركه") & Space(5) & " : خـطـاء " cancel = True 'Else ' فتح النموذج اذا وجد الاسم 'DoCmd.OpenForm "data", , , "[name] = '" & Me.which2 & "'" End If Set rs = Nothing End If

راجع هذا لعله كما طلبك https://www.officena.net/ib/topic/85516-مؤشر-تحميل-لاستخدمه-بفتح-التقارير/

بارك الله فيك

بالتوفيق

الحمدلله رب العالمين

تسلم اخي استاذ صالح حمادي بارك الله فيك وجعله في ميزان حسناتك نعم هو المطلوب بعينه الف الف شكر

ممتاز جدا بارك الله فيك

هذا ما اقصده اعطاني قماش في رقم 7 يختلف الاسم عن المطلوب شوف الصور

قريب جدا لطلبي المطلوب MsgBox Me.[نوع القماش], vbExclamation, "رسالة" يعطيتي ما هو مطابق بالترتيب اي نوع القماش

هذا مثال استاذ صالح حمادي Database81.accdb

تسلم اخي صالح ولكن هذا يعطيني نفس الرسالة انا اريده يعطيني الرساله بالترتيب اي كل من هو مطابق لهذا komash

اخواني الاعزاد كيف اجعل الرسالة تتكرر من بدايه السجل حتى النهايه مثلا هذة الرسالةMsgBox DLookup("[name]", "data", "komash=" & Me.[نوع القماش]) MsgBox DLookup("[name]", "data", "komash=" & Me.[نوع القماش])

اخي بارك الله فيك المشكلة انا جربتها اعمل استيراد للتقرير وشوف النتيجه او انسخ الرساله اللي في التقرير واستبدلها في تقرير برنامج الرسالة في التقرير في حدث عند عدم وجود بيانات

كي يرد عليك لازم ترفق مثال مصغر

اتفضل mm u1 (1).rar

تسلمي اخي بارك الله فيك

الف مبروك اخي @kanory  تستاهل كل خير

اخر حل توصلته هذا وكان ودي اول ما يفتح يعطيني المجموع الكلي الان عندما تضغط على رقم الفاتورة او الاسم او المبلغ يطلع التفاصيل شوف المرفق Database161_(1).accdb

تسلم ماقصرت ولكن لو حاولت تركز انه لم يجيب اي نتيجه على العموم ما بتعبك معي بحاول اخيه بتاريخين وهو الافضل انا كنت عايز اشيل هذه الفكرة لكن بعد محاولتي ومحولاتك تبين انه لا استغنا عنها

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

اتفضل Database161_(1).accdb

اتعبتك معي وللاسف شكلها مالها حل انا تفكيري غير وانت لم تفهمني على العموم ليس مهم واسف جدا جدا على تعبك معي لو انك حملت المرفق الاخير كان فهمتني