jjafferr

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

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

هنا تمت مناقشة هذا الموضوع : تحريك نموذج اكسس بالضغط على الماوس - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

همممم الموضوع ما يستاهل كل هذا الشغل ، اعمله في الاعدادات والسلام 🙂 إلا اذا كان سؤال امتحان او سؤال تحدي 🙂 جعفر وطبعا هذه الطريقة لن تعمل في الاكسس بصيغة mde و accde

السلام عليكم 🙂 حل مثل هذه الامور : 1. ضغط واصلاح لقاعدة البيانات (مثل ما اشار اخوي ابوعبدالله) ، 2. انشىء قاعدة بيانات جديدة ثم استورد اليها جميع الكائنات (مثل ما اشار اخوي ابوعبدالله) ، 3. اعمل تقرير جديد بنفس الاسم TMPCLP284581ّ~ (واذا كانت المشكلة في نموذج ، فاعمل نموذج بنفس الاسم) ، وبعد ان تحفظه ، ينحذف تلقائيا ، 4. استعمل هذا الكود لحذف جميع انواع هذه الكائنات : وهناك موضوع كامل عن كائنات اخرى كذلك قد تكون عالقة في البرنامج : How to remove 'deleted database objects' from the MSysObjects table | Access World Forums (access-programmers.co.uk) Function Delete_TMPCLP_Objects() 'Delete the ~TMPCLP objects Dim rst As DAO.Recordset Dim mySQL As String mySQL = "SELECT Name, Type FROM MSysObjects " mySQL = mySQL & " WHERE Name Like '~TMPCLP*'" Set rst = CurrentDb.OpenRecordset(mySQL) Do Until rst.EOF Select Case rst("Type") Case 1, 4, 6 'Tables DoCmd.DeleteObject acTable, rst("Name") Case 5 'Queries DoCmd.DeleteObject acQuery, rst("Name") Case -32768 'Forms DoCmd.DeleteObject acForm, rst("Name") Case -32764 'Reports DoCmd.DeleteObject acReport, rst("Name") Case -32766 'Macros DoCmd.DeleteObject acMacro, rst("Name") Case -32761 'Modules DoCmd.DeleteObject acModule, rst("Name") Case Else Debug.Print rst("Type"), rst("Name") End Select rst.MoveNext Loop rst.Close: Set rst = Nothing End Function . جعفر

وعليكم السلام 🙂 استعمل مساعد برنامج الاكسس في 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 يدلعني وامشي على خطواته 🙂