jjafferr

تفضل اخي كريمو :) هذه آخر محاولة لي ، أسأل الله سبحانه وتعالى ان يكون طلبك :) إتضح بأن الكثير من الخطوات التي تم استخدامها سابقا كانت خطأ :( هذه النتائج: جعفر 282.2.Obsérvation2014_2014-09-28.mdb.zip

وعليكم السلام :) اليك الروابط التالية: http://msdn.microsoft.com/en-us/library/dd548010%28v=office.12%29.aspx http://msdn.microsoft.com/en-us/library/dd548011%28v=office.12%29.aspx وهذا مثال من اختنا الفاضلة الدكتورة أم عهود حفظها الله :) /index.php/topic/2884…

وعليكم السلام اخي وائل :) في نظري ، هناك طريقتين لحل الموضوع: 1. تعمل جدول بالمنطقة والسيارة ، وتحط السعر ، هكذا: وبالطريقة هذه هذه نأخذ القيمة مباشرة من الجدول ، حسب السيارة والمنطقة :) 2. نعمل جدول مستقل للسيارات وسعرها: وجدول آخر للمنطقة وسعرها: وحسب السيار…

وعليكم السلام اخي :) هذا الجواب كان ردا على سؤال الاخ السيد الجوهري ، وانت ماشاء الله عليك ضليع في البرمجة :) ، فعدل في الكود بما يناسب طلبك :) ، المهم في الموضوع كله ، ان الكود يوجهك بالاتجاه الصحيح :) جعفر

وعليكم السلام اخي :) حسب معطياتك ، اعطيتك الحل ، اذا عندك معطيات اخرى ، فكيف اعرف عنها!!!! لوسمحت ترفق برنامجك ، ثم تخبرنا اي نموذج ننظر فيه ، ثم ماهو الزر الذي تريدنا ان ننظر فيه ، وماهي النتيجة اللي تريدها ، يعني تعطينا بالتفصيل الممل (كما قالت أختنا الدكتور…

السلام عليكم أخي رمهان :) فكرة ممتازة :) ، تسلم ايدك :) نعم هذا صحيح ، وقد قمت بإنزال البرنامج وتجربته :) ، ولكن الظاهر ان اخينا أوس من شدة حبه للكود ، اخذ الكود ولم يلاحظ الباقي :P جعفر

وعليكم السلام اخي :) للتأكد (مع اني قد تأكدت سابقا :) ) ، قمت بإنزال البرنامج ، ثم نسخ الكائنات 12 و 13 من البرنامج: الى قاعدة بيانات اخرى ، فوجدته شغال تمام :) لوسمحت توضح ماهي المشكلة التي صادفتك ، وبالتفصيل لوسمحت ، حتى استطيع مساعدتك ان شاء الله :) جعفر

وعليكم السلام اخي :) الرابط التالي به نفس المطلوب ، والحل: /index.php/topic/293432-%D9%85%D9%86%D8%B9-%D8%A7%D9%84%D9%85%D8%B3%D8%AA%D8%AE%D8%AF%D9%85-%D9%85%D9%86-%D8%AA%D8%B3%D8%AC%D9%8A%D9%84-%D8%A7%D9%84%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA-%D8%AE%D9%84%D8%…

السلام عليكم اخي كريمو :) رجاء مراجعة المرفق ، فلقد الغيت استعمال جميع الاستعلامات تقريبا ، وبدأت من جديد ، حيث استعملت مصادر النماذج (التي ذكرتها انت في احد مشاركاتك) ، حيث قلت انت بأن نتائج النماذج صحيحة :) هذه النتيجة النهائية: جعفر 282.1.Obsérvation2014_20…

وعليكم السلام :) اعمل نموذج ولنسميه frm_Main مثلا ، اعمل فيه حقل Month_From ، وحقل Month_To ، ثم في الاستعلام ، بدل: Between [Enter Beginnig Serial Month] And [Enter Ending Serial Month] اكتب Between Forms!frm_Main!Month_From And Forms!frm_Main!Month_To اذا ار…

وعليكم السلام :) غير هذا السطر: DoCmd.OpenReport stDocName, acNormal ' طباعة الى A=Inputbox "How Many copies of the Report do you want" for i= 1 to A DoCmd.OpenReport stDocName, acNormal ' طباعة next i جعفر

:)

السلام عليك احتي الفاضلة :) اعتذر عن التأخر في الرد ، فانا كثير السفر وقد رجعت البارحة :) في مشاركتي الاخيرة طلبت منك: وانتي قلتي في مشاركتك قبل الاخيرة ، والتي بها مرفق: ولكني قبل قليل بدأت العمل على طلبك ، فلم اجد اي تغيير في معلومات الاستعلام uq :( حيث انك …

آه عذرا ، ولكن ذلك لن ينطبق عليك ، لأن الكود الذي عندك على الحدث "بعد التحديث" اي انه يكون قد ترك الحقل :( لذا عليك: إما ان تضع الكود (كل الكود) على الحدث "قبل التحديث" ، او انك تضع سطر قبل السطر اعلاه ، للذهاب الى حقل آخر ، ثم العودة الى هذا الحقل :) هكذا: Me…

حياك الله :) الطريقة الصحيحة للذهاب الى الحقل هو: me.text38.setfocus جعفر

السلام عليكم اخي :) اعتذر عن التأخر في الرد عليك ، فانا كثير السفر :) انا آسف ، ولكني لم افهم طلبك :( هل تريد المستخدم ان يتذكر جميع ارقام الاصناف ، وعلى اساسها يدخل رقم الصنف ؟ هل رقم الصنف اهم ، او اسم الصنف ، لأنك في الحقيقة لا تحتاج من المستخدم الى ادخال ا…

تفضل اطال الله في عمرك :) كودك لفتح النموذج الآخر هو: DoCmd.OpenForm "frm_View_ONLY", , , , , acDialog اي بمعنى: افتح النموذج بكافة سجلات الاستعلام Q1 (طبعا انت لاحقا تذهب الى السجل المطلوب) ، وهذا يعمل لك المشكلة ، فانت تريد السجل الذي انت عليه فقط. لحل هذه ا…

السلام عليكم :) غير استعلام التحديث الى: UPDATE tbl1 SET tbl1.L_Date = IIf(Len(Nz([Text_Stamp],0) & "")=1,Null,CDate(Mid([Text_Stamp],2,4) & "/" & Mid([Text_Stamp],6,2) & "/" & Mid([Text_Stamp],8,2))); واللي عملناه هو ، اننا نطلب من الكود حساب طول البيانات في …

السلام عليكم اخي :) جرب ان تعمل النموذج Popup وليس Modal واذا لم يفلح ، رجاء ارفاق النموذج وبه بيانات قليلة :) جعفر كذلك جرب الكود في هذا الرابط: http://allenbrowne.com/ser-46.html

تفضل :) الكود الجديد: Private Sub Ctl1_AfterUpdate() Select Case Me.Ctl1 Case "ÇáÕäÝ" Me.a.Visible = True Me.b.Visible = True Me.c.Visible = False Case "ÇáãæÑÏ" Me.a.Visible = False Me.b.Visible = False Me.c.Visible = True Case Else Me.a.Visible = False Me.b.V…