jjafferr

وعليكم السلام 🙂 استعمل مساعد برنامج الاكسس في VBE ، وابحث فيه ، وستحصل على معظم اجاباتك : Form.BorderStyle Property None 0 The form has no border or related border elements. The form isn't resizable. Thin 1 The form has a thin border and can include any of the border elements. The form isn't resizable (the Size command on the Control menu isn't available). You often use this setting for pop-up forms. (If you want a form to remain on top of all Microsoft Access windows, you must also set its PopUp property to Yes.) Sizable 2 (Default) The form has the default border for Microsoft Access forms, can include any of the border elements, and can be resized. You often use this setting for normal Microsoft Access forms. Dialog 3 The form has a thick (double) border and can include only a title bar, Close button, and Control menu. The form can't be maximized, minimized, or resized (the Maximize, Minimize, and Size commands aren't available on the Control menu). You often use this setting for custom dialog boxes. (If you want a form to be modal (modal: A window or dialog box that requires the user to take some action before the focus can switch to another form or dialog box. Dialog boxes and messages are usually modal.), however, you must also set its Modal property to Yes. If you want it to be a modal pop-up form, like most dialog boxes, you must set both its PopUp and Modal properties to Yes.) . فيصبح الكود : me.borderstyle=0 جعفر

اعتذر منك اخوي حسام ، لم انتبه انك عملت فرز تنازلي ، فعليه ، كلامي اعلاه في غير محله 🙂 جعفر

الظاهر في حد جاب طاريي 😁 بخبرك بالطريقة الاسهل (الطريقة الاصعب يحتاج لها بخور ، فنخليها لوقت الحاجة 🙂 ) اعمل تقرير جديد بنفس الاسم TMPCLP284581ّ~ ، وبعد ان تحفظه ، ينحذف تلقائيا ، بس قبل شهر رمضان المبارك 🙂 جعفر

السلام عليكم 🙂 انا متأكد بأن الاستاذ احمد لم يلاحظ هذه العلاقة 🙂 لهذا السبب ، طريقته سوف تخل بطريقة عمل البرنامج ، يعني اذا كانت قيمة iPage_ID (في الجدول tbl_Pages) = iPage (في الجدول tbl_Items) = 3 فقمت بتغيير الرقم 3 الى الرقم 5 في iPage (في الجدول tbl_Items) ، فتظل قيمة iPage_ID (في الجدول tbl_Pages) 3 ، كما كانت ، وهذا يجعل القيمة 5 يتيمة في الجدول tbl_Items ، وبدون ربط مع الجدول tbl_Pages !! كلامك صحيح ، ولكن يحتاج الى تعديل بسيط ، . اذا بدأت الـ Loop من 1 الى آخر قيمة (من الاصغر الى الاكبر) : - فلما تغير الرقم 1 فيصبح 1+1 = 2 ، فمعناه ان جميع قيم الجدول tbl_Items بدلا عن 1 اصبحت 2 ، فهنا يتم خلط القيم هناك ، قيم 1 و 2 تصبح 2 ، - ولما تغير الرقم 2 فيصبح 2+1 = 3 ، فمعناه ان جميع قيم الجدول tbl_Items بدلا عن 2 اصبحت 3 ، فهنا يتم خلط القيم هناك ، قيم 1 و 2 و 3 تصبح 3 ، يعني في نهاية الـ Loop ، جميع القيم هناك ستكون بالرقم الاخير 😁 ولكن ، iPage_ID (في الجدول tbl_Pages) لا يقبل التكرار 😁 لذا ولحل الموضوع بالطريقة الصحيحة ، يجب ان تبدأ الـ Loop من آخر قيمة الى 1 (من الاكبر الى الاصغر). جعفر

اخوي احمد ساعدني بوضع جميع الحقول المحسوبة في وحدة نمطية واحدة ، معادلة تحت الاخرى ، بالمسميات الموجودة في الجدول ، لأنك عملت تغيير على معادلات المعادلات اللي كانت موجودة في اول مشاركة 🙂 جعفر

يمكن انك غيّرت نوع الخط ، فاصبح لا يتسع له الحقل ، وإلا ، المفروض ما يتأثر بتغيير نسخة الاكسس 🙂 جعفر وانا شايف من الصورة اللي ارفقتها ، جزء من الصفر مختفي ، مما يدعم قولي 🙂

همممم شكرا على الرد والتوضيخ اخوي العزيز sandanet 🙂 اخي يحي عبد الله رجاء قراءة قوانين المنتدى حتى تستفيد الفائدة القصوى من المنتدى 🙂 رجاء فتح موضوع جديد ، بعنوان يدل على مضمون السؤال ، و الاخذ بنصيحة اخي sandanet 🙂 يُغلق جعفر

مع اني اعرف ان الزر لا يقوم بالعمل ، بل الكود ، ولكن ننتظر نتيجة تجربتك 🙂 جعفر

وعليكم السلام 🙂 واهلا وسهلا بك في المنتدى 🙂 للاستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى 🙂 وجوابا على سؤالك: الحقل صغير/ضيق ، والرقم كبير ، او الارقام العشرية اللي فيه كثيرة اكبر من حجم الحقل 🙂 جعفر

همممم بس اعرف ان هذا الحل هو لجلب محبة و ود الحبيب ❤ جعفر

وعليكم السلام 🙂 الاكسس يحتفظ بخصوصية جميع المتغيرات داخل الكائن ، ولا يسمح لبقية الكائنات ان تراه ، وذلك بإستعمالنا Dim او Private ، ولكن اذا اردنا بقية الكائنات ترى المتغير ، فيجب ان يكون الكائن مفتوح و نصرح له بـ Global او Public : جعفر 1365.Run another Form Event.accdb.zip

يا عيني عليك ، ميه الميه 🙂 جعفر

هنا يأتي قول الولد الصغير: انا لو قدرت اخلص دفع قرض سيكلي (يعني دراجتي الهوائية) ، بقدر اسوي واجد اشياء 😁 وترجمتها بلغة الكبار: بخليه على قائمة الاشياء اللي اريد اعملها يوم من الايام ، ان شاء الله 🙂 جعفر

لا يا رجال ، هاي الاكسس يكون وسيط فقط ، وش لي بدوخة البال !! وانما كنت افكر في حفظ عنوان الموضوع url في قاعدة البيانات ، ثم اخذ كلمات الموضوع (وبدون تكرار) وكذلك حفظها في حقل آخر ، طبعا هذا كله برمجيا 🙂 وبعدين ابحث في قاعدة البيانات ، واروح للموضوع مباشرة 😁 جعفر

ليش كل هذا العمل ، كل اللي عليك عمله هو انك تغير هذه الاعدادات: ولما تستخدم طريقة اخوي ابومحمد ، ففي الواقع اسهل لك ان تغير اعدادات النموذج والسلام 🙂 انا اعطيتك الامر ، ويجب ان تدُخل الارقام لكي يعمل الامر ، وهذا مثال من برامجي (لا عليك من كل الكود ، فقط انظر للسطرين الاخيرين) ، والافضل لك ان تبحث قليلا في مساعد الاكسس حتى تعرف الارقام التي يجب استعمالها ، والارقام هي بالـ Twips ، فاذا نظام الكمبيوتر عندك بالسنتيمتر ، تضرب الرقم في 567 ، واذا النظام بالبوصة فتضربه في 1440 : Right = المسافة من طرف شاشة الاكسس ، من اليسار ، Down =المسافة من طرف شاشة الاكسس ، من فوق ، Width = عرض النموذج ، Height = ارتفاع النموذج 'get the Form size H = Me.WindowHeight W = Me.WindowWidth '0 = metric t = 567 ' Open the Form DoCmd.OpenForm "frm_Items_DS", acFormDS Forms!frm_Items_DS.SetFocus DoCmd.GoToRecord , , acNewRec DoCmd.GoToControl "Receipt_Date" 'select the Form DoCmd.SelectObject acForm, "frm_Items_DS", False DoCmd.Restore 'DoCmd.MoveSize right, Down, Width, Height 'DoCmd.MoveSize (t * 0.1), (t * 0.1), 18000, 13500 DoCmd.MoveSize 1, 1, W - (W * 0.02), H - (H * 0.05) جعفر

ما رحنا بعيد ، انا كذلك 🙂 شكرا لك 🙂 مع اني كنت افكر اعمل لي قاعدة بيانات ، ومنها ابحث 😁 جعفر

هذه الطريقة لجعل النظام يعمل على النواتين: جعفر

ما ادري اذا كان هذا سؤالك : نص x رقم y DoCmd.OpenForm "FreaderL", , , "[x]='" & Cstr([y]) & "'" x رقم y رقم ولكن في حقل نص DoCmd.OpenForm "FreaderL", , , "[x]=" & Val([y]) x رقم طويل y رقم ولكن في حقل نص DoCmd.OpenForm "FreaderL", , , "[x]=" & Clng([y]) . اسألك على سالفة الرجوع الى مواضيع سابقة ، كيف توصل لها ؟ جعفر

لا ما نسيت ، ولكني صرت متعود على ان IntelliSense يدلعني وامشي على خطواته 🙂

هذه السالفة ولا حتى تيجي على بالي 😁 الى هنا والكل كان يعرف ، بس انت افشيت السر واشرت بالـ emoji على اصحابنا 😁 جعفر

يا سلام عليّ ، جاوبت في الماضي على سؤال المستقبل 😁 يالله بسرعة اعمل بخور وابخّر عمري قبل ما تجيني عين 🙂 جعفر

فكرة جميلة 🙂 جعفر

القي نظرة على هذا الموضوع ، والجدول بالذات ، فهاي آخر موديل من بنات افكاري لنفس طلبك🙂 جعفر

وعليكم السلام 🙂 اسهل لك ان تطبع على طابعة بـ 16 لون 🙂 او انك تعمل على حدث On Print كود ، تخبره اسم الحقل ولون الخلفية الذي تريد تغييره ، ثم تعطيه لون ابيض ، ونعم ، لجميع الحقول 🙂 جعفر