ابوخليل

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

غالبا المشكلات التي تظهر في التقرير ( عند المعاينة ) اسبابها الطابعة نفسها وخواصها

اذا تعددت الحلول ولم يتم الوصول الى نتيجة مرضية فلا بد من ارفاق مشروعك علما اني على يقين ان المسألة سهلة ويسيرة جدا انظر الى المثال الذي قمت انت بارفاقه وذكرت انه شبيه بقاعدة البيانات التي لديك Exam.rar

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

الاستاذ حسين .. السائل يريد نسخ البيانات من جدول الى جدول آخر في قاعدة البيانات نفسها

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 46 Then KeyCode = 0 MsgBox "يمكنك الحذف من النموذج فقط" End If End Sub

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

السلام عليكم Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 46 Then ' your msg exit sub End If End Sub

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

طهور ان شاء الله أسأل الله الكريم أن يجمع لك بين الأجر والعافية

السلام عليكم المرفق تم تحويله الى 2003 وهو لا يعمل حيث يحدث خطأ عند فتح النماذج المهم اني نقلته على جهاز آخر الحل : كررت الكود الخاص بتفحص مربع تحرير الصنف كررته في حدث قبل التحديث لحقل الكمية . واعتذر عن المتابعة مستقبلا لاني على نية سفر ، فاعذرني ان تأخر الرد عليك وشكرا لمداخلتك استاذ عصام ، واتمنى يكون حلا مناسبا BuySal20192.rar

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

تسلم الانامل

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

حبيبي الوزير لله درك .. وينك يابو ابراهيم

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

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

تم الاعلان عنه في وحدة نمطية عامة من اجل يكون معروف في جميع زوايا اكسس .. حلوة زوايا هذه في الاستعلامات والماكروات والنماذج والتقارير وحتى في الوحدات النمطية العامة نفسها وهنا في برنامجنا يتم التعامل معه من داخل جميع النماذج طبعا ستكون قيمته الافتراضية صفر لان نوعه بايت في نموذج frmain : اخبرناه انه اذا تم النقر على حقل الاسم : اذا كان خالي اجعل قيمة المتغير 1 والا اجعلها 2 وعملناه لعيون النموذج frmchang لاننا بحاجة لفتح النموذج في خاصيتين مختلفتين : واحدة نفتحه لاضافة ساكن جديد والثانية لتسجيل خروج ساكن وطبعا تختلف خصائص النموذج حسب هذا النوع من الفتح حيث اخفينا بعض الحقول في احدها وغيرنا في الاخرى حسب الحاجة ولو فتحت النموذج frmchang على التصميم وفي حدث عند التحميل وجدت ان فيه شروط على الحقول تتحقق حسب قيمة هذا المتغير ايضا فيه شرط عند الفتح هو نفسه الموجود عند الغلق في نموذج frmain وهذا الشرط من اجل نمنع فتح النموذج frmchang الا من خلال النموذج frmain التفسير : جعلنا قيمته صفر عند غلق النموذج frmain ، فلما يجي احد يفتح frmchang لوحده يمتنع لاننا وضعنا شرطا عند الفتح : اذا كان صفر اغلق

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

شكرا اخي جعفر عطرت موضوعي بمرورك

اشكر جميع الاخوة الاعزاء على الاطراء والثناء مسفر وحلبي وقاسم وعبداللطيف و ابو آمنة و athal وعلى كل من مر من هنا وواستفاد واشكر ابا جودي حيث سبقني للتوضيح وشكرا للأفكار النيرة بالنسبة للشفرة المكتوبة عند فتح النموذج فهذا قام به المعالج في اكسس 2003 حين اخترت الزر فقد كفاني المشقة وكتب لي ما ترون ولكني احيانا اكتبها بسطر واحد كما تفضلتم تجدون ادناه شرح لاسطر الكود وبعض الملاحظات Private Sub cmdshow_Click() On Error GoTo Err_cmdshow_Click 'عند الخطأ اذهب الى تفاصيل الخطأ Dim stDocName As String ' اعلان عن متغير نصي يمثل اسم الفورم Dim stLinkCriteria As String ' اعلان عن متغير نصي يمثل المعيار او الشرط stDocName = "frmain" DoCmd.OpenForm stDocName, , , stLinkCriteria ' هنا وضعنا المعيار رغم انه لا يحمل قيمة Exit_cmdshow_Click: ' سطر الخروج Exit Sub ' اخرج من الحدث Err_cmdshow_Click: ' تفاصيل الخطأ MsgBox Err.Description ' رسالة تحتوي على تفاصيل الخطأ Resume Exit_cmdshow_Click ' ارجع الى سطر الخروج ' -------------------------------------------- 'DoCmd.OpenForm "frmain", acNormal ' يمكن الاكتفاء بهذا السطر عن كل ما سبق ' ولكن الاخطاء ستظهر في حال وجودها ولكن بدون تفصيل ' End Sub اما السطر : on error resume next فأنصح بعدم استخدامه مطلقا الا في حدود ضيقة للضرورة وهي عند وجود اخطاء منطقية وظيفة هذا السطر انه يقفز ويتخطى الأخطاء ففي مثال الاخ عبد اللطيف لو حدث خطأ فإنه سيقفز الى end sub وينهي الحدث وحينها لن يفتح النموذج ولن تعرف السبب

للربط تفضلوا من هنا عذرا فقد قدمت كل ما عندي واتمنى ان تثروا النقاش هنا بما يستجد من افكار ومقترحات

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

عمل جميل استاذ مسفر شكرا على وقتك وجهدك الآن انا عملت بعض الاضافات على مثالي السابق وحاولت اخراج بريمج صغير متكامل يفي بالحاجة وأرى الآن انه يستحق ان يفرد بعنوان وموضوع يخصه انتظروني ...

قلنا ان التواريخ تنزل آليا في جدول tblbedcase بمجرد الحركة عند النقر على زر تسجيل دخول او تسجيل مغادرة يتم الحاق بيانات الحركة الى الجدول والتي هي : رقم السرير ورقم الموظف وتاريخ الحركة ونوع الحركة الغريب لا ادري ما فائدة عرضك للتواريخ في النموذج ، لو سلمنا بالاستئناس بتاريخ الدخول ، فوجود تاريخ الخروج بغير معنى لانه لا يتصور وجود شخص مغادر ضمن الصفحة . مستقبلا يمكنك الاستعلام عن الحركات من جدول tblbedcase فيمكننا الاستعلام عن حركة سرير معين وما طرأ عليه من الساكنين كما يمكننا الاستعلام عن موظف معين وحركاته داخل الغرف والأسرة كل هذا بالتواريخ التفصيلية نموذج العرض frmain لنطلع فيه على حالة السرير فقط ومن الذي يشغله نأتي للمهم الآن : اعطني الاعداد الحقيقية للطوابق والغرف والاسرة الموجودة في كل غرفة الطوابق = 4 الغرف = 6 غرف في كل دور الآسرة = 6 اسرة في كل غرفة هل هذا صحيح ؟