jjafferr

وعليكم السلام في نموذج ادخال البيانات ، وتكون قد ادخلت رقم ID ، ضع الكود التالي على حدث "قبل التحديث" للحقل Speciality : Private Sub specialty_BeforeUpdate(Cancel As Integer) a = DCount("*", "Waiting list", "[id]=" & Me.id & " And [specialty]='" & Me.specialty & "'") If a > 0 Then MsgBox "عفوا ، لا يمكن المواصلة ، رقم ملف وحقل التخصص متكرر" Cancel = true Me.Undo End If End Sub جعفر

تفضل استخدمت الوحدة النمطية ، ومناداتها من الاستعلام ، التي عملها اخونا العود ابو خليل: Public Function qsplit(FullName As String, i As Integer) On Error Resume Next qsplit = Split(trim(FullName), " ")(i) End Function فصار الاستعلام: . والنتيجة: . جعفر 312.Database1.accdb.zip

السلام عليكم طريقتي: جعفر

السلام عليكم أخي سلمان انزلت المرفق ولم ارى الاختلاف الشئ الوحيد الذي رأيته بين الصور هو ان اسم النموذج على اليمين وآخر على اليسار ، فهل هذا هو السؤال ؟ جعفر

وعليكم السلام أخي سعيد . السؤال الصحيح هو ، هل من سبب لإستخدام النماذج المنبثقة؟ اذا اردت فتح البرنامج بحجم الشاشة ، جميل ان تقرأ الرابط التالي من اوله لآخره ، وتنزل المرفق من الرابط: http://www.officena.net/ib/topic/65914-قفل-نموذج-او-كبسة-command-برقم-سري/?do=findComment&comment=429339 نعم هناك عدة مشاكل ، وهذه احد المواضيع اللي فيها مشكلة ، وبدون سبب: http://www.officena.net/ib/topic/67430-تغيير-تسمية-الازرار-في-رسالة-msgbox/?do=findComment&comment=440539 بالاضافة الى ان النموذج المنبثق فيه زيادة شغل ، افتح هذا النموذج وفي نفس الوقت اغلق ذاك ، وتعال في التصميم ، ووو ونفس الشئ بالنسبة الى التقرير المنبثق جعفر

السلام عليكم . اذا شغال عندك تمام ، فتوكل على الله ، وواصل الطريق ونعم ، الطريقة اللي عملتها تمام البرمجة مثل الطبخ ، فيه 50 طريقة لعمل اي طبخة ، وياويلك لو قلت لي ان بيض العيون اللي اعمله مو لذيذ شفت كيف اقنعتك ها ، اذا تريد الطبخة بطريقة او اخرى ، فهذا راجع لمزاجك وذوقك وخبرتك ، والمواد المتوفرة لك ان شاء الله تعجبك طبخاتي في المنتدى جعفر

السلام عليكم اخي هيثم حفظ المرفقات في البرنامج سيجعل حجم البرنامج كبير جدا ، وله عواقب وخيمة لهذا السبب ، فالنصيحة ان تحفظ المرفقات في مجلدات الوندوز ، ولكن تربط المرفق برقم ID السجل مثلا المنتدى مليئ بهذا النوع من الامثلة ، وهنا مجموعة امثلة أخونا الكبير ابو خليل: http://www.officena.net/ib/topic/60554-ادراج-صورة-من-الماسح-_-سحب-الصور/?do=findComment&comment=390508 http://www.officena.net/ib/topic/60554-ادراج-صورة-من-الماسح-_-سحب-الصور/ http://www.officena.net/ib/topic/55050-ادراج-صورة-_-اضافة-وحذف/ http://www.officena.net/ib/topic/62131-جلب-الصور-دفعة-واحدة-الى-مجلد-البرنامج-حسب-الاسم-المعرف/ وهنا مثال موسع لي: http://www.officena.net/ib/topic/62143-هدية-سحب-اكثر-من-صورة-من-الاسكنر-وتحويلها-الي-pdf-او-صور-مسلسلة/ وهذا مثال ، ولكن حيث يتم فتح المرفق بالبرنامج الافتراضي للكمبيوتر: http://www.officena.net/ib/topic/55053-فتح-صورة-بـ-مستعرض-الصور/ جعفر

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

اما انا ، فنادرا استعمل النماذج المنبثقة جعفر

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

1. سيبك من ده دلوقتي 2. ميزة الاكسس هو مصمم الاستعلامات ، استفيد منه ، لأنه جدا قوي ، و أحد اسرار الاستعلام ، ما تعمل كل شئ في استعلام واحد ، وانما تهيئ استعلام لإستعلام آخر (كما في مثالك اعلاه ، وكما في المثال التالي): http://www.officena.net/ib/topic/67637-جمع-حقول/?do=findComment&comment=440543 هي قاعدة البيانات ايه؟ 1. ادخال بيانات ، 2. بحث وتصفية البيانات (استعلام) ، 3. إظهار النتائج. فالاستعلام هو اهم شئ تقدر تستفيد منه في الاكسس ، وحتى لما نستعمل الكود ، نستخدم الاستعلام للسجلات اللي نريدها (يعني نجهز السجلات اولا بالاستعلام) ، ثم نكمل الباقي بالكود ، والذي هو أبطأ بكثير في عمله من الاستعلام جعفر

كأن شكلك مو راضي ميه الميه ، قول اللي في خاطرك يا ريس جعفر

تفضل يا باش مهندس الاستعلام: . والنتيجة: . جعفر 308.Tire operation System.mdb.zip

تفضل الاستعلام: . والنتيجة: . جعفر 308.Tire operation System.mdb.zip

وعليكم السلام اعمل استعلام اجمالي ، واضف الحقل sn مرتين ، مرة استعمله كمجموعة ، والثانية تعداد (واعمل فيها معيار <1 ، واجعله تنازليا) جعفر

السلام عليكم انا لا خبرة لي في هذا الموضوع ، ولكنه احد المواضيع المتداولة كثيرا ، Form Resizer انت في الواقع تريد: https://www.fmsinc.com/microsoftaccess/controls/components/form-resizer/index.html الاكسس 2010 له طريقة تستطيع ان تكبر/تصغر احجام حقول معينة في حال تكبير/تصغير الشاشة ، عن طريقة Anchoring ، مثل حقل Notes في الرابط التالي: http://www.appliedoffice.net/news/2009-may/access.html وهنا امثلة يمكن انزالها لتكبير/تصغير النموذج كاملا: http://jamiessoftware.esy.es/resizeform/afr.zip http://jamiessoftware.esy.es/articles/resolution.html http://www.databasejournal.com/features/msaccess/article.php/3689226/Auto-Resize-Access-Subforms.htm جعفر

شكرا اختي الفاضلة

يا استاذ عبدالعزيز لوسمحت المرة القادمة تعطي معلومات كاملة عن الشئ اللي تريد ان تعمله ، وبالتفصيل ، يعني مثل ما عملت في المشاركة الاخيرة ، بس علشان استطيع ان افهم الموضوع السبب انك لا تستطيع ان تعمل تصفية للحقل natygh مثلا في الاستعلام ، لأن الحقل جاري احتسابه في الاستعلام وانت تريد تصفيته ، فما يصير ، يصير ان نعمل تصفية للمعلومات الجاهزة فقط!! لذلك ، اعمل استعلام جديد ولنسميه qry_Data_Entry2 ، واجعل مصدره الاستعلام qry_Data_Entry (هنا يكون الاستعلام qry_Data_Entry قد قام بالحساب والجمع) ، ثم اعمل التصفية على الحقلين natygh و mostwa في الاستعلام qry_Data_Entry2 طبعا لا تنسى ان تغير مصدر بيانات النموذج الى qry_Data_Entry2 جعفر 307.1.المعلم اليمني المجموع والمحصله.mdb.zip

اعطني اسم النموذج ، وكيف استطيع ان ارى هذه الرسائل؟

وعليكم السلام مافي اشكال ابدا كأنك تعمل استعلام كمصدر لنموذج ، فانك تستطيع استعمال اي عدد من حقول الجدول في هذا الاستعلام جعفر

عفوا ، عندك مسافة اضافية بين [ mostwa1] جرب IIf(Len([Forms]![frm_Data_Entry]![mostwa1] & "")<>0;[Forms]![frm_Data_Entry]![mostwa1];[mostwa]) . واذا ما صار ، فرجاء اخباري اين اجد المشكلة جعفر

عندك قوس زائد الكود الصحيح: IIf(Len([Forms]![frm_Data_Entry]![ mostwa1] & "")<>0;[Forms]![frm_Data_Entry]![mostwa1];[mostwa]) جعفر

ايش رأيك في مثال موسع أكثر نستطيع ان نعمل قاعدة التحقق من الصحة في كود ، مثلا: اعمل حقل اسمه int_No ، وعلى حدث "الحالي" للنموذج ، استعمل كود مثل هذا: Private Sub Form_Current() If Day(Date) <= 5 Then Me.int_No.ValidationRule = "is null or <=5" ElseIf Day(Date) <= 10 Then Me.int_No.ValidationRule = "<=10" ElseIf Day(Date) <= 15 Then Me.int_No.ValidationRule = "isnumeric([int_No])=true" ElseIf Day(Date) <= 20 Then Me.int_No.ValidationRule = "isnumeric([int_No])=false" ElseIf Day(Date) <= 25 Then Me.int_No.ValidationRule = "between 15 and 30" Else Me.int_No.ValidationRule = "between 1 and 14" End If End Sub . فحسب يوم الشهر ، تتغير قاعدة التحقق من الصحة مرونة تامّه ، مو مثل الجدول جعفر

الله يطول في عمرك أخوي ، مو انا قلت لك هالكلام من البداية ، قلت لك : اذا عملت هذا ، فكأنك جعلت الجدول tbl_Prescription مثل الجدول tbl_Drugs خليني اخبرك ايش هي المشكلة: المشكلة تكمن في التصميم ، فالمعطيات اللي انا فهمتها منك وكتبتها لك في اول مشاركة لي في الموضوع ، هي المشكلة ، لأني على اساسها عملت البرنامج ، وربطت الحقول وعملت الكود على اساسها الطريقة الصحيحة للعمل هي ان تشرح كل اللي تريده بالتفصيل الكامل ، وباسماء الحقول ، وترفق كل برنامجك ، وعلى اساسه يمكن الوصول للذي تريده ان شاء الله وإلا ، فللأسف العمل يصير عملين لك ولنا ، وبقية الشعر اللي على راسي يتنتّف جعفر