ابوخليل

اعمل في حاسوبي على الاصدار 2003 ولتحقيق طلبك في الاطلاع على المرفق اضطررت لنقله الى حاسوب آخر من النظرة الاولى لبرنامجك انت بحاجة لتقسيم البيانات على اكثر من جدول جدول لبيانات المريض الثابتة جدول للتحاليل المخبرية والتحاليل الاشعاعية والتشخيص والعلاج ويشتمل على رقم قيد لكل زيارة تربط بين الجدولين بعلاقة واحد لكثير السبب ان المريض قد يتردد على المشفى اكثر من مرة في ازمنة متفاوتة واعراض مختلفة

نعم يمكن وهو الافضل بلا شك والطريقة انك تصمم الخطاب على التقرير كما تصممه على وورد ويختلف الاكسس في كون البيانات الثابتة تكتب داخل مربعات التسمية بينما البيانات المتغيرة تكون مربعات نصوص

بل على تقرير اكسس للعلم : بعضها يشبه بعض عند التصميم

الحمد لله على انقضاء الحوائج ، وشكرا على مشاعرك الطيبة الرقيقة تمت الاجابة ،،

قم بتصميم الاستمارة ( القالب ) على تقرير فارغ ، وسنقوم بالاكمال وتحقيق رغبتك

تم التعديل كالتالي : المربعات الصغيرة تم تحويلها من تسميات الى مربعات نصوص استخدمنا الدالة Dcount لتجميع الوضع حسب انوع في خمس حقول ( هي الموجودة في جدول الموظفين ) وعليك اكمال البقية ملحوظة : التسميات بحروف عربية تسبب ارباك عند كتابة الجملة البرمجية حيث تنقلب رأسا على عقب انظر الى هذا السطر الخاص بمجموع م.يومي =DCount("[الوضع]";"الموظفين";"[الوضع]='" & "م.يومي" & "'") وانظر اليه حينما نستبدل م.يومي بحروف انجليزية كـــ xxxx =DCount("[الوضع]";"الموظفين";"[الوضع]='" & "xxxx" & "'") الى ترى ان الثاني واضح تماما يكتب هذا السطر في مربع عنصر تحكم الحقل ، استبدل فقط الـــ xxxx بالقيمة الموجودة في حقل الوضع db4.rar

اكتب هذا السطر في حدث عند فتح النموذج DoCmd.GoToRecord , , acNewRec ملحوظة : اجعل احد الحقول في خصائص الجدول ( مطلوب ) حتى تتلافى تكرار السجلات الفارغة اقساط العرس.rar

وعليكم السلام يمكنك الاستعانة بالاستعلام لتجميع ما ترغب من حقول حاول ان ترفق مثالا يشبه لبرنامجك ( يشتمل على الجدولين والتقرير فقط وأسماء وهمية )

الفارق : ان البيانات موزعة على ثلاث جداول ما المشكلة ؟ فانت اولا قبل التوزيع في الاستعلام الجدولي بحاجة الى ضم و تجميع هذه الجداول سواء كان جدولا او استعلام تحديد او توحيد

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

وعليكم السىلام الوورد افضل للمرونة وامكانية التجديد في اختيار قوالب الشهادات

انظر هنا http://www.officena.net/ib/index.php?showtopic=23076

الحل Function strpath() strpath = CurrentProject.Path End Function

تصحيح اكتب الجملة هكذا Public Const strpath As String = "CurrentProject.Path"

يظهر انك وضعته في المحرر الخاص بالنموذج جرب : اكتب هذا السطر في Module

السلام عليكم هذا للطباعة فقط DoCmd.OpenReport "report1", acViewNormal تستطيع ان تضع اكثر من سطر لاكثر من تقرير

أهلا بك أخا عزيزا بين اخوانك ويطيب لنا دعوتك الى هنا http://www.officena.net/ib/index.php?showannouncement=21&f=89

تفضل ملحوظة : في صورة 2 جعلت الحقول التي تشتمل على معايير ( وهي المطلوبة في البحث) بجانب بعضها لتوضيح المستويات

الطريقة جعلت مصدر النموذج الاساسي main استعلاما داخليا بدلا من الجدول وللوصول اليه افتح خصائص النموذج / بيانات / مصدر عنصر التحكم . انقر النقاط الثلاث الموجودة الى يسار الحقل ليظهر لك الاستعلام . ( انظر الى المعايير في الاستعلام ، وانظر الى اماكنها حيث استخدمنا الخاصية "أو" ) الخطوة الثانية عند حدث التحديث لمربع البحث كتبت me.Requery لتحديث النموذج حسب المعيار المكتوب هذا كل شيء ،،، آمل ان يكون هذا الشرح مفيد

نسأل الله تعالى ان يعز دينه ويجمع امة الاسلام على الحق والهدى ويعيذها من الفتن ما ظهر منها وما بطن ،

تفضل تم عمل المطلوب اكتب في مربع البحث رقم الموظف او اسمه او هاتفه ثم انقر Enter db4.rar

لتحقيق المطلوب لا بد ان تكون الحماية على مستوى الحقول لا على مستوى النموذج ثم اكتب خلف الزر السطر التالي Classifications.Form!NumberOfModel.Locked = False Database2.rar

يرجى التقيد بقواعد المشاركة وتخصيص سؤال واحد لكل موضوع يغلق ،،،

من الافضل ان تضع مثالا وتبين فيه الشرط المطلوب فيمكن ان يتبين الحل بطريقة ما .

اللهم اغفر له وارحمه واكرم نزله وادخله الجنة احسن الله عزاءكم واعظم اجركم