jjafferr

وعليكم السلام 🙂 الاكسس يحتفظ بخصوصية جميع المتغيرات داخل الكائن ، ولا يسمح لبقية الكائنات ان تراه ، وذلك بإستعمالنا 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 كود ، تخبره اسم الحقل ولون الخلفية الذي تريد تغييره ، ثم تعطيه لون ابيض ، ونعم ، لجميع الحقول 🙂 جعفر

وعليكم السلام 🙂 هذا من: ، وعليك ان تكمل الباقي : . جعفر

وعليكم السلام 🙂 الامر هو docmd.MoveSize Right, Down, Width, Height جعفر

وعليكم السلام 🙂 هذه امكانيات الاكسس ، في آخر نقطة للنماذج تجد الجواب مواصفات Access - Access (microsoft.com) جعفر

من تجربتي ، يجب ان يكون لهذا القرض رقم ايضا ، فقد يأخذ قرض للمواد الكهربائية ووو مثل عند اخونا @كريمو2 ، وحتى قروض النقد ، فإذا استوفى قيمة القرض ، قد يأخذ قرض آخر في الشهر التالي !! جعفر

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 للإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى : https://www.officena.net/Tips/Questions.htm المنتدى مليء بمواضيع الحماية ، فقط قم بالبحث. يُغلق جعفر

نعم اعرف ، وقد اخبرتك بهذا مسبقا ، فقط قم بعمل Compile حتى ترى الخطأ ، ولما تصلحه سترى الخطأ الذي بعده ، وهكذا !! وهي ليست اخطاء ، ولكن لأنك مكرر التصريح بهذه المتغيرات مرتين ، في الوحدتين النمطيتين ( basBrowsefiles ) ( Module11 ) !! وبسبب ان عندي عيد اليوم (كلّ يومٍ لا يُعصى الله فيه فهو عيد) ، بعطيك فرصة لليل ، وبعدها بغوص في برنامجك واشوف الحل ، ان شاء الله 🙂 جعفر

السلام عليكم 🙂 اخي الفاضل ، رجاء قراءة قوانين المنتدى ، وفي المرات القادمة ، بوضع عنوان صحيح للموضوع ، يدل على مضمون الموضوع 🙂 هذا الكود لا يحفظ قيم ، وانما يُحدّث قيم : وليس لسجل واحد ، وانما لجميع قيم (سجلات) الحقل st_no في الجدول ENTER_SAFF . جعفر

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

كان المفروض اقول : . المهم في هذه الخطوة هي فهمك للبرنامج ، و رؤيتك له كبرنامج واحد يحتوي على بيانات جميع المواقع ، وانك تستطيع تمييز بيانات كل موقع في كل جدول ، . 1. نعم قد تحتاج لهذا ، ولكن كل هذا يعتمد على بيانات كل جدول (رجاء قرءة ملاحظتي اعلاه) ، 2. اذا كان نوع حقل تسلسل البيانات "تسلسل تلقائي" ، فيجب عليك ان تعمل حقل جديد من نوع رقم ، ثم تنقل بيانات الحقل السابق الى الحقل الجديد ، واذا كان الحقل القديم "لا يقبل التكرار" فيجب تغييره ليقبل التكرار ، وهكذا ، 3. هناك عدة طرق ، ولكن خلينا بعيد عن التقنية ، فالامر يحتاج الى تدقيق مع كوب قهوة ، لذا : ضبّط جدول واحد في قاعدة بيانات واحدة ، القاعدة رقم 1 ، ثم اعمل ربط لقاعدة البيانات رقم 2 ، واعمل ربط لهذا الجدول من قاعدة البيانات رقم 2 ، وسيعطي اكسس الجدول المربوط ، نفس اسم الجدول القديم متبوعا بالرقم 1 (مثلا tbl_Names1) ، فيكون عندك في قاعدة البيانات رقم 1 ، الجدول المُعدل ، وربط بجدول من قاعدة البيانات 2 ، اعمل استعلام إلحاق ، لتلحق بيانات جدول قاعدة البيانات 2 ، في قاعدة البيانات 1 . السبب في استعمال هذه الطريقة ، لأنك معتاد على هذا النوع من الربط والاستعلام 🙂 جعفر

في الكود الذي خلف زر "حفظ" ، انت قلت له بأن يحفظ الملف بإسم StrName : جعفر

تفضل 🙂 بس انت المكتبة في وحدتين نمطيتين ، ليش ؟ يحتاج ان تنظف الكود من احدهما ، وتشير الى الثانية في كل البرنامج 🙂 جعفر ‏‏‏‏StuData4.zip