jjafferr

حياك الله بلا أمارة عليك ، لوسمحت تختار المشاركة الصحيحة ، واختر تحديد كأفضل إجابة ، علشان يقفل الموضوع ، وطبعا دائما تقدر تفتح سؤال جديد بموضوع جديد جعفر

تفضل انا حذفت الحقل Pic_Path من الجدول والنموذج والكود ، والآن ، لما تغير مكان قاعدة البيانات ، فمجرد غير المكان لـ Image_Location في الوحدة النمطية ، والبرنامج وكل الصور راح يشتغلوا على طول جعفر ربط الصور.zip

نعم ، ومثل ما قال أخي مارد ، ولكن اذا كان اسم الاستعلام صحيح ، فيمكن ان يكون الكود مجرد سطر واحد: فاذا كان اسم القائمة lst_qry ، فالكود يكون: docmd.openquery lst_qry جعفر

أخي الكريم شروط المنتدى لا تسمح بأكثر من سؤال في موضوع واحد ، فرجاء إختيار أفضل إجابة للمشاركة التي ساعدتك في حل سؤالك ، ثم افتح موضوع لكل سؤال تريده جعفر

تفضل ولكن رجاء انظر الى الكود ، ففيه الكثير 1. في النموذج client عندما تضغط على زر "دفع القسط" ، فالحدث لا يفتح النموذج df فقط ، وانما يختار من قائمة Code_Client (ليس يدخل الاسم فقط) ، وذلك من خلال مقارنة رقم العميل ، بتلك الموجودة في القائمة المنسدلة ، والكود الذي يعمل هذا هو: Dim stDocName As String Dim stLinkCriteria As String stDocName = "df" DoCmd.OpenForm stDocName, , , stLinkCriteria 'Now select this name from the Listbox Code_Client of the Form df, 'this is as if we select from the Code_Client listbox itself, 'where we will get the Code_Client and Name_Client columns Dim ctl As Control Set ctl = Forms!df!Code_Client For i = 0 To ctl.ListCount - 1 If Val(ctl.Column(0, i)) = Val(Me.Code_Client) Then ctl.Value = Val(ctl.Column(0, i)) Exit Sub End If Next i 2. في النموذج df ، دائما نجعل التاريخ d1 يكون اول الشهر ، بغض النظر عن اي تاريخ تم اختيارة (وذلك تسهيلا للمستخدم ، بدل ان يفتش عن اول الشهر) ، والكود التالي يعمل هذا: 'make the date always the 1st of the month, 'making it easier for the user to select anydate of the month, and the code corrects it Me.d1 = DateSerial(Year(Me.d1), Month(Me.d1), 1) 3. عند الضغط على زر دفع ، تأتي الخطوات التاليه فيه: أ- التأكد ان المستخدم اختار عدد الاشهر ، والذي يجب ان يكون اكبر من 0 ، وإلا سيتوقف عمل الحدث: 'if No month is selected, get out If Me.f = 0 Then Exit Sub ب- يبحث في الجدول B_Pay ، في انه هل تم الدفع لهذا الزبون في الشهر d1 مسبقا ، فاذا تم الدفع ، واذا تم ، ستحصل على رسالة بذلك ، وسيتوقف عمل الحدث: Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From B_Pay Where [Code_Client]=" & Me.Code_Client) rst.FindFirst "[data_eldfa1]=" & DateFormat(Me.d1) If rst.NoMatch = False Then MsgBox "you already used this date for this client" Exit Sub End If ج- اما اذا كان كل شئ تمام ، فالكود التالي يدخل البيانات في الجدول B_Pay: For i = 0 To Me.f - 1 rst.AddNew rst!Code_Client = Me.Code_Client rst!Code_Elshr = i + Month(Me.d1) 'rst!Dfa= 'rst!mogl= 'rst!data_eldfa = rst!data_eldfa1 = DateAdd("m", i, Me.d1) rst!data_eldfa2 = DateAdd("m", i + 1, Me.d1) 'rst!byen = rst.Update Next i MsgBox "Done" جعفر 89.db1.mdb.zip

اي والله ، الحمدلله على السلامه أخي رضوان جعفر

حياك الله

او هذا الرابط http://www.officena.net/ib/index.php?showtopic=61295 جعفر

عفوا يا شباب ، انا الى الآن ما فاهم شو المطلوب؟ ياريت اخي كريمو توضح المطلوب بمثال واضح اللي نقدر نتتبعه ونوصل لنتيجة ان شاء الله جعفر

تفضل الرابط : http://www.officena.net/ib/index.php?showtopic=60235 جعفر

في هذه الحالة ، قد ينفعك "مسقط التقارير" http://www.officena.net/ib/index.php?showtopic=59415 لأنه مصمم لمثل هذه الحالات شوف التقرير ، بس بدل ما تطبعه ، ارسله لأكسل جعفر

يجب ان يكون برنامجك مقسم الى واجهة وفيها النماذج والاستعلامات والتقارير والماكرو والوحدات النمطيه FE ، وجداول BE ، يجب ان تكون نسخة الواجهة FE منصبه على كل كمبيوتر على حدة ، بينما الجداول BE على على كمبيوتر واحد ، وجميع الكمبيوترات الاخرى عندها حق Read/write/modify للمجلد الذي به BE ، مجلد الصور عادة يكون في نفس مجلد BE ، ولكن ليس شرطا ، وجميع الكمبيوترات الاخرى عندها حق Read للمجلد ، في نسخة FE ، يجب ربط الصور (سواء باستخدام الوحدة النمطية ، او مجرد سطر من كود) ، ومثل ما قلنا ، ان هذه النسخة تكون على كل كمبيوتر ، ويكون الربط مثلا: Images_Location = "\\PC_5\Temp\archive" او تربط الكمبيوتر عن طريق IP Images_Location = "\\192.168.1.100\Temp\archive" جعفر

وعليكم السلام أخي الحل هو في ربط الصور بالمجلد الذي به الصور ، هذا الرابط يعطيك فكرة عن كيف تنادي ذلك المجلد: http://www.officena.net/ib/index.php?showtopic=60591#entry389441 جعفر

ياسلام!! اذا أنا صح فانت المُكافأ ، واذا خطأ فأنا المُعاقب!! بس حلوة طريقة استعلام الـ Crosstab ، يافنان انت جعفر

عفوا ما قصدي لو انك تضع المطلوب كله مكان واحد ، كان بالامكان عمل برنامج واحد بكل الاختيارات المطلوبة ويعود علينا وعليك وعلى شباب المنتدى وشاباته إن شاء الله جعفر

تفضل بس عندي سؤال لوسمحت: شو اللي قاعد يصير؟ كل يوم السؤال شكل ، لنفس الموضوع!! هل هذه الاسئلة لدورة او مادة في مؤسسة؟ جعفر 88.TEST.accdb.zip

هل نظرت الى الاستعلامين التاليين ونتائجهم: 1. الاستعلام qry_Loans_Step1 فيه معيار الشهر والسنه حسب تاريخ النموذج FrmDiscountReport ، 2. بينما الاستعلام qry_Loans_Step_Minus فيه معيار الشهر السابق لتاريخ النموذج FrmDiscountReport. فالنتيجة اللي تريدها هي qry_Loans_Step_Minus جعفر

والسبب انه لا يمكن ، لأن الاستعلام الاول قد تم فيه المعيار ، وستكون نتائج الشهر الحالي فيه فقط ، وعندما تريد ان تستعمل المعيار الثاني ، فلن تظهر لك اي نتائج ، لأنه لا يوجد سجلات للشهر السابق!! إلا اذا قصدك ان ترى الشهرين ، الحالي والسابق معا في نفس التقرير؟ واذا عملنا هذا فسؤالك في المشاركة الاولى لا معنى له!! جعفر

السلام عليكم أخي كريمو 1. الاستعلام qry_Loans_Step1 فيه معيار الشهر والسنه حسب تاريخ النموذج FrmDiscountReport ، 2. بينما الاستعلام qry_Loans_Step_Minus فيه معيار الشهر السابق لتاريخ النموذج FrmDiscountReport. طلبك الاخير لا يمكن عمله!! لآنك عملت المعيار #1 ، ثم تريد ان تعمل عليه المعيار #2 كذلك؟؟ عندك الاستعلامين اعلاه ، فاختر بين المعيارين ، وعليه اختر الاستعلام جعفر

وعليكم السلام اذا اللي فهمته صح ، جدولك فيه حقل التاريخ والقيمة: وانت تريد النتيجة هكذا: والتي عملناها هكذا: جعفر 87.Database1.accdb.zip

وعليكم السلام حيا الله صاحبي انا اتفق معاك في ان صاحب موضوع الاهداء ، ان يوضح ما سبب هذه الهدية ، وكيفية استعمالها ولكني ما اتفق معاك على قضية شرح "طريقة التصميم وبناء الشفرات ووسائل الاحتيال والمراوغة مع الاكسس واكواده وبياناته وغيرها" البرنامج الهدية لازم يكون جاهزة للإستعمال ، وفيه طريقة الاستعمال ، خطوة بخطوة ، ويفضل مع الصور والنتائج ولكن ، مستعملين هذا البرنامج ، منهم المبتدئ ومنهم اللي يحب يتعلم ومنهم المحترف ، اما المبتدئ فلا ناقة له في حيثيات البرنامج ولا جمل ، يريد يستعمله وبس (وهذا المقصود من الهدية) ، وانت تلاحظ الكثير من الاسئلة في المنتدى سهلة الاجابة عليها ، ولو ان صاحب السؤال بحث ، لوجد الكثير من الاجابات ، وحتى اذا اعطيته رابط لحل سؤاله ، برضه بيطلب منك تساعده في الحل ، لأنه ببساطه فهمه للأكسس قليل اما اللي يحب يتعلم فعلى العين والرأس ، قد لا يهمه البرنامج برمته ، ولكنه شاف جزئية عجبته ، فمن حقه ان يسأل عن هذه الجزئية او اي جزئيات ، وصاحب الهدية المفروض ان يشرح له هذه الجزئية فقط ، لأنه غير معقول ان تشرح كل شئ ومن تجربتي ، فالقليل يسأل!! مثلا ، في احد برامجي ، انا قلت بعد شرح البرنامج: "في الواقع البرنامج غني بعدة انواع من الكود ، ويمكن ملاحظة الكود عن طريق عمل البرنامج. اقتراحات / تعديلات ، انا في الخدمة قدر المستطاع " ولكن ، ما احد سأل اما المحترف فاذا انزل البرنامج ، يتصفحه بسرعة ، ولما يشوف شئ عجبه ، على طول يروح الكود ويقول: أها ، هكذا هو الكود إذاً جعفر

الله يطول في عمرك أخوي مثال ، وعملت من عندي ، والحمدلله لكن ، صحيح اني عماني ، لكن سحري بعده مو قوي اللي اقدر اجيب برنامجك: واشغله ، واشوف وين النموذج ، واجرب مربع تحرير وسرد ، وعلى اي حدث تيجي الرسالة ، وكيف مانخلي الصورة تتكرر ، وووو عندك حلين: 1. يا انك تصبر الى ان اقوي سحري ، واقدر اوصل اجيب برنامجك من كمبيوترك لعندي ، وبعدين اشتغل عليه ، 2. او ان ترفق برنامجك. وانت صاحب القرار اما علمي فيقول: على الحدث اللي يبحث فيه مربع_تحرير_وسرد ، وانا بسميه iSearch فاعمل التالي: private sub iSearch_After_Update on error goto err_iSearch_After_Update الكود حقك يكون هنا 'show the new image in the Form Call Form_Current Exit Sub err_iSearch_After_Update: If Err.Number = 2101 Then ' Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub واعتقد سبب الخطأ: هل انت كاتب مسار الصورة في الجدول ؟ الظاهر ان عندك مسار خطأ وهو عامل المشكلة !! جعفر

أعتذر عن هذا الخطأ ، فلقد استخدمت برنامج سابق واضفت عليه ، ولم انتيه ماعليك من شئ ، مجرد جرب المرفق الجديد ، وبعدين نتكلم اذا عندك استفسار لا تعمل اي مجلدات رئيسية او فرعية ، مجرد افتح البرنامج ، اضغط على scan ، وشوف الصورة في النموذج وفي المجلد ، واضغط على scan مرة ثانية ، وشوف الصورة في النموذج وفي المجلد ، وبعدين اسال ، اذا عندك سؤال جعفر Scan.zip

او في حجم الخط

أخي الفاضل رجاء ارفاق برنامجك ، وتوضيح ما تريد بمثال من البرنامج لوسمحت جعفر