midomashakel

السلام عليكم هو السؤال مش منطقي ؟! ولا مستحيل ولو كان هناك طريقة اخرى ارجو الافادة شكرا

السلام عليكم ورحمة الله وبركاته ارجو من السادة الاعضاء تقديم يد المساعدة النموذج تسجيل طلبات الوارد WaredTalabatAdd ملحوظة ::::: يتم استدعاء البيانات برقم الحاسب المطلوب 1- اريد في Option Button ( الجهة الفعلية ) عند اختيار القطاع ( OBSec ) يقوم بنسخ محتوي خلية Sector الى الخلية GehaNow عند اختيار المركزية ( OBMark ) يقوم بنسخ محتوي خلية CenAdmin الى الخلية GehaNow عند اختيار العامة ( OBAmaa ) يقوم بنسخ محتوي PupAdmin الى الخلية GehaNow والقيم Option Value بالترتيب كما بالصورة 1 او 2 او 3 2- جعل الاختيار اجباري وعدم الحفظ شكرا مرة اخرى وارجو توجيهي الى مواضيع خاصة بال Option Button , Check Button للاستزادة شكرا لحضراتكم مرة اخرى

اخي محمد التميمي جزاك الله خير الجزاء على كلماتك

الاستاذ / محمد قاسم 12 عفوا لا شكر علي واجب ملحوظة : الخلايا المحسوبة انا عملتها disable لانها خلية محسوبة ممكن تعدل على قاعدة if بالنسبة لكل حقل فارغ مثال في حالة ترك حقل رقم العضو فارغ ==> تظهر رسالة معينة في حالة ترك حقل قسط 1 ==> تظهر رسالة معينة في حالة ترك حقل رقم الايصال==> تظهر رسالة معينة حتى توجه مسجل البيانات لمعرفة اى الحقول الفارغة خاصة عندك حقلين قيمتهم = صفر قسط 1 و رقم الايصال بالتوفيق لحضرتك

السلام عليكم ورحمة الله وبركاته جرب الملف بعد التعديل علي مفتاحي الحفظ والخروج بالتوفيق 005UpDate.rar

السلام عليكم ورحمه الله وبركاته الملف بعد التعديل المشكلة في اسم الحقل First Name تصحيحه First_Name Simply.mdb

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

السلام عليكم ورجمة الله وبركاته المرفق برنامج لتسجيل وارد طلبات للموظفين لغرض التنقل من جهة العمل من خلال جدولين جدول بيانات الموظف TblEmployeeData جدول تسجيل طلبات الوارد TblAppOrders ونموذج لتسجيل الطلبات الخاصة بكل موظف WaredTalabat ولا يوجد علاقة بين الجدولين عند التسجيل مع العلم انه عند ادخال رقم الموظف يقوم بجلب باقي بيانات الموظف من جدول بيانات الموظف المشكلة التى اريدها انه عند كتابة كود الموظف بالخطا ( لا يوافق اى رقم بجدول الموظفين ) يقبل البرنامج التسجيل مع العلم بوجود رسالة تنبية في حالة عدم توافق الرقم المدخل ولا اريد ان يقوم البرنامج بالتخطي قبل كتابة كود يتوافق مع حقل كود الموظف واعادة التركيز الى كود الموظف ( ولا اريد التاكد عند الضغط على مفتاح (حفظ))!!! كذلك اريد تفريغ الحقول بعد عملية الحفظ في مشكلة تانية في حالة جعل الحقول unbound والضغط على حفظ يقوم بحفظ الحقول فارغة بالكامل مسموح بتكرار رقم الوارد مسموح بتكرار رقم الموظف غير مسموح بتكرار ( رقم الوارد + رقم الموظف ) منع الاذدواجية في التسجيل طلب اخر عند الضغط على مفتاح العودة يقوم بحذف الحقول من النموذج وعدم الحفظالتحقق من المدخلات.rar انا عارف ان الطلب تقيل بالنسبة لي ولكن لعمالقة المنتدي بسيط دورت كتير وملاقتشي موضوع يتحدث بهذا الشأن او فشلت في عملية البحث ارجو شرح التعديل وليس فقط اضافة الاكودا لتعم الفائدة للمبتدئين امثالي جزاكم الله خير الجزاء معلومة اخيرة مفتاح البحث السريع يقوم بالبحث في جدول الموظفين من خلال نموذج لمعرفة رقم الحاسب للموظف قبل عملية التسجيل Private Sub tx1_AfterUpdate() If DCount("[CompID]", "TblEmployeeData", "tx1='" & Me.tx1 & "'") = 0 Then If MsgBox("ÚÝæÇ! ÇÏÎá ÑÞã ÇáÍÇÓÈ Çæ ÇáÑÞã ÇáÐì ÇÏÎáÊå ÛíÑ ÕÍíÍ ... ÇÚÏ ÇáãÍÇæáÉ ãÑÉ ÇÎÑì", vbCritical + vbYesNo, "ÊäÈíå") = 0 Then Me.Undo Me.tx1.SetFocus Else Me.w1 = "" Me.ÊÇÑíÎ_ÇáæÇÑÏ = "" Me.tx1 = "" Me.tx2 = "" Me.tx3 = "" Me.tx4 = "" Me.tx5 = "" Me.tx6 = "" Me.tx7 = "" Me.tx8 = "" Me.tx9 = "" End If Else Me.tx2 = DLookup("[EmpName]", "TblEmployeeData", "CompID= " & [tx1]) Me.tx3 = DLookup("[Quali]", "TblEmployeeData", "CompID= " & [tx1]) Me.tx4 = DLookup("[DateOQuali]", "TblEmployeeData", "CompID= " & [tx1]) Me.tx5 = DLookup("[QualGroup]", "TblEmployeeData", "CompID= " & [tx1]) Me.tx6 = DLookup("[Sector]", "TblEmployeeData", "CompID= " & [tx1]) Me.tx7 = DLookup("[CenAdmin]", "TblEmployeeData", "CompID= " & [tx1]) Me.tx8 = DLookup("[PupAdmin]", "TblEmployeeData", "CompID= " & [tx1]) Command40.Enabled = True End If End Sub

السلام عليكم ورحمه الله وبركاته جمعه مباركه للجميع لى بعض الملاحظات يا استاذ / ابو خليلل عند تسجيل نفس رقم القرار مع اختلاف السنة يقةم بتحويل سنة الصدور للسنة السابقة للقرار المسجل من قبل بمعنى عند تسجيل 850/2012/مكتب رئيس الادارة يقبلها تمام المشكلة عند تسجيل 850/2013/مكتب رئيس الادارة يقوم بتحويلها الى 850/2012/مكتب رئيس الادارة وهذا خطأ جسيم ارجو ان اجد لديكم الحل

السلام عليكم ورحمه الله وبركاته كل عام وانتم بخير هذا هو الكود الذى اريد شرحه Private Sub أمر6_Click() On Error GoTo Err_أمر6_Click Dim VBAnswer As String Dim x As String x = order_no DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 VBAnswer = MsgBox(" تم حفظ القرار. هل تريد اضافة البيانات التفصيلية ؟", vbQuestion + vbYesNo) If VBAnswer = vbYes Then Me.tbl_details.Visible = True: Me!tbl_details.SetFocus: Me!tbl_details.Form!order_type.SetFocus Else: VBAnswer = vbNo: أمر62.SetFocus 'Exit_أمر6_Click: ' Exit Sub Err_أمر6_Click: MsgBox ("تم تسجيل هذا القرار من قبل. هل تريد اضافة البيانات التفصيلية للقرار ¿") Undo Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[order_no] = '" & x & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark Me.tbl_details.Visible = True End Sub وخاصة من اول undo ... حتى اخر الكود اريد ان افهم طريقة عمل الكود

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

انا لا اريد ادخال القرار مرتين كل ما اريده طريقة التسجيل تتم علي مرحلتين الاولى لها موظف مستقل ادخال القرارات فقط ( نموذج 1 ) الثانية لها موظف اخر لادخال تفاصيل القرار ( نموذج 2 ) وبالتالي الموظف الثاني يجب ادخال القرار (نموذج 1 ) وفي حالة ما اذا كان القرار مسجل من قبل تظهر له رسالة مفادها " هذا القرار مسجل من قبل ، هل تريد ادخال البيانات التفصيلية للقرار " [ نعم ] يتم اظهار نموذج 2 لادخال تفاصيل القرار ((((( وليس تسجيل القرار مره اخرى ))))) ارجو ان تكون وضحت الصورة

السلام عليكم ورحمه الله وبركاته اللهم اذا كانت هذه ليلة القدر فلا تحرمنا اجرها اللهم دعوناك كما امرتنا ... فاستجب لنا كما وعدتنا ... اللهم امين تسلم ايدك يا ابو خليل بس انا مختلف معاك في هذا الحل المؤقت الذى اعتبره غير نهائي ... لانه ليس من المعقول ان حدود الاكسيس تقف عند هذه المشكلة فهذا الحل يعني اننى عندما اقوم بادخال بيانات قرر سبق ادخاله تظهر رسالة مفادها ان القرار مكرر ثم اقوم بالاستعلام .. فيقبل منى ادخال البيانات التفصيلية لهذا القرار كما انه هناك مشكلة اخرى وهى بعد ادخال عدد من القرارات على سبيل المثال القرار 58 / 2006 / ادارة التخطيط القرار 58 / 2005 / ادارة التخطيط القرار 58 / 2004 / ادارة التخطيط القرار 58 / 2003 / ادارة التخطيط القرار 58 / 2002 / ادارة التخطيط وهكذا ........ ماذا سيكون الحال ما زلت في انتظار حل اخرى لهذه المشكلة ولكن لا ابخس بحققك ومجهودك .. مره اخرى انا شاكر ليك تعبك معايا وفي انتظار التعديل على karar3 في رعاية الله وامنه

تسلم يا ابو خليل وان كنت افضل التعديل يتم عن طريق النموذج (2) وخاصة عشان حذف سجل من البيانات اسمحلي قابلتني مشكلة اخرى حاول تسجل قرار موجود من قبل، واخبرني اين الخطأ ؟ مثال القرار 58 / 2006 / ادارة التخطيط اتمنى انك تجرب الحالتين Yes / No مع العلم انه من الممكن ان يتم تسجيل القرارات ثم بعد ذلك يتم اضافة البيانات الى القرار في اى وقت اشكرك لسعة صدرك ارفقت القاعدة بعد التعديل karar3.zip

تسلم ايدك يا ابو خليل تمت الإجابة وهذا هو المطلوب بالفعل سؤال اخر اذا سمحت هل بالامكان عند الوفوف على سجل بالنموذج (3) تظهر بياناته بالنموذج رقم (2) لاجراء عملية التعديل على هذا السجل وحفظه مره اخرى بدلا من اضافة شاشة للتعديل ؟؟؟

السلام عليكم ورحمه الله وبركاته الاخوة الكرام كل عام وانتم بخير المشكلة كما يتضح من الصورة السؤال الاول عند الضغط على حفظ القرار من النموذج (1) تظهر رسالة في حالة الاجابة بنعم يتم اظهار النموذج (2) لاستقبال بيانات الموظف داخل القرار حتى تمام حفظ السجل في النموذج (2) المفترض ان تظهر بيانات الموظفين الذى يتم اضافتهم تلقائيا داخل النموذج (3) لمعرفة عدد الافراد التى تم اضافتها لنفس القرار (1) ولكن المشكلة لا تظهر البيانات تلقائيا الا بعد اضافة قرار اخر والعودة لنفس القرار فتظهر البيانات ولكننى اريد ظهور البيانات تلقائيا بعد عملية الحفظ السؤال الثاني في نموذج tbl_details منفردا يتم اظهار اسم الموظف بمجرد كتابة الكود ولكن عند اضافة النموج tbl_details الى النموذج الرئيسي لا يظهر اسم الموظف بعد كتابة الكود لا اعلم اين الخطأ مع العلم تم ارفاق قاعدة البيانات ولكم منى جزيل الشكر karar.zip

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

الحمد لله توصلت الى الحل هكذا تصبح شكل العلاقة وللعلم هذه العلاقة من نوع Many-to-Many

الاخ ابو خليل سلام الله عليك بالنسبة للجزء الاول : بالتاكيد من الممكن ان [ يتكرر رقم القرار + سنة الصدور ] مع اختلاف الجهة اختلاف رقم القرار + [ تكرار سنة الصدور + تكرار الجهة ] [ تكرار رقم القرار + تكرار الجهة ] + اختلاف سنة الصدور التباديل السابقة هى التباديل المتاحة وبالفعل يجب انشاء قاعدة التحقق من الصحة بالكود البرمجي اعرف فقط ظهور رسالة منع تكرار ولكن على حقل واحد فقط وهو رقم القرار، ولا اعرف كيف اطبقها على 3 حقول الجزء الثاني من السؤال الاول : ( " الحاجة الى مفتاح رئيسي لربطه مع جدول التفاصيل " )؟؟؟ من وجهة نظري كما رايتها من قبل ولم اجربها ان اجعل الثلاثة حقول [ order_no + order_year + order_geha ] مفاتيح اساسية في جدول tbl_orders وجعل ل[computer_id ] حقل فريد في جدول tbl_empmain وجعل العلاقة many to many بين الثلاثة جداول هل ممكن تطبيق هذا الاجراء ؟؟؟ اعذرني اعرف ان الموضوع معقد قليلاً ولكنه يحتاج الى صبر ومثابرة واشكرك على سعة صدرك

الاخ العزيز / ابو خليل السلام عليكم ورحمه الله وبركاته شاكر لك ردك الجميل واتمنى ان تكون بصحة جيدة قبل الرد ارريد ان اوضح شيئ بسيط يوجد قاعدة التحقق من صحة المدخلات وهي مرتبطة ببعض [ حقل رقم القرار + حقل السنة + جهة الاصدار ] مرتبطين معاً بدون تفرقة Validation Rule بالنسبة للاستعلام : نعم صحيح الاستعلام بكود الموظف ليظهر كافة التفاصيل كذلك الاستعلام برقم وسنة وجهة اصدار القرار [مرتبطين معااً] وما يستجد من استعلامات وتقارير السجل الفريد بالنسبة لجدول القرارات هو [ حقل رقم القرار + حقل سنة صدور القرار + جهة الاصدار ] مجتمعين معاً ( أطمع في كرمك في اضافتها ) وتعليمي اياها وهى التحقق من المدخلات باكثر من حقل ( بحثت ولم اجدها ) وكما اوضحت من قبل ان لكل موظف اكثر من قرار مع اختلاف حقل وتطابق حقلين ( رقم القرار + السنة + جهة الاصدار ) وكذلك في جدول التفاصيل اتمنى ان يقبل البرنامج ادخال معرف الموظف اكثر من مرة كما اوضحت سابقاً واى استفسار انا جاهز وشكرا لسعة صدرك

شكر واعزاز وتقدير لكا من كتب كلمة شكر في حقي اللهم اجعل هذا العمل خالصا لوجهك الكريم وكل عام وانتم بخير ورمضان كريم

بسم الله الرحمن الرحيم السلام عليكم ورحمه الله وبركاته الاخو الافاضل كل عام وانتم بخير ومبارك عليكم الشهر الكريم الهدف من البرنامج *************** أرشيف الكتروني للقرارات معرفه نوعية القرارات التي تصدرها جهة العمل بحيث انه يمكن ان يكون القرار الواحد يحتوي على موظف او اكثر ومن الممكن ان لكل موظف اكثر من قرار (الاختلاف فقط في رقم القرار | سنة الاصدار | الجهة المصدرة للقرار ) وذلك حتى يتسنى للإدارة معرفه حركة التنقلات لكل موظف على حدة المطلوب : فورم ادخال القرارات مصدره جدول tbl_orders وهو نموذج frm_orders وبعد الحفظ تظهر الرسالة بالنموذج وبها اختيار لا و نعم ( يظهر النموذج الفرعي لاضافة البيانات التفصيلية كما هو موضح بالنموذج ) وبعد إضافة كل اسم للموظف تظهر رساله مفادها ( تم الحفظ. هل تريد إضافة بيانات موظف اخر ) لا ( الخروج من النموذج ) نعم ( الوقوف عند النموذج الفرعي لاضافة باقي البيانات ) وفي الأسفل جدول يظهر جميع العمليات المدخلة في جدول tbl_details مشكلتي ****** لدى استفسار في انشاء علاقة بين جدولين او 3 جداول حسب المطلوب والمرفق به جدول يوضح قاعدة البيانات لبرنامج الارشيف للقرارات التى يتم اصدارها للموظفين من جهة عملهم ارجو ان اجد مجيب لاستفساراتي كما قمت بارفاق ملف وورد مع شرح بسيط للهدف من البرنامج ولكم منا جزيل الشكر والعرفان اكسيس 2003 المرفق

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

السلام عليكم ورحمه الله وبركاته بارك الله فيك أخى الكريم وجعل بكل حرف مما تكتبه في موازين حسناتك وندعو من الله ان تكون في صحه جيدة ونتمنى ان تكمل الدورة ... إن شاء السميع القدير لك منى الف سلام

الاخ طارق محمود ( بارك الله فيك ) وجعل كل حرف تكتبه في موازين حسناتك بالقعل قمت بالتجربة ولكن ايضاً حدثت بعض الاختلافات فمثلاً 158.89 * 0.006 = 0.95334 هذا هو الناتج باستخدام الالة الحاسبة للجهاز على العموم ساتحدث مع اختصاصي المرتبات بشأن الطريقة التى يتم الحساب بها يدوياً لاننى تظوعت لعمل البرنامج على الاكسيل وسأعاود الرد عليك انتظر منى عودة اخرى ان شاء الله لاوافيك بالنتيحة النهائية والسلام عليكم ورحمه الله وبركاته