التحقق من المدخلات عند التسجيل واستدعائها

[midomashakel]

السلام عليكم ورجمة الله وبركاته

المرفق برنامج لتسجيل وارد طلبات للموظفين لغرض التنقل من جهة العمل  من خلال جدولين

جدول بيانات الموظف   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

تم تعديل فبراير 9, 2019 بواسطه midomashakel

[jjafferr]

وعليكم السلام اخي 🙂

 

من شروط المنتدى ، وضع سؤال واحد لكل موضوع ، حتى يتمكن الباحث من الحصول على المطلوب بسهوله 🙂

رجاء عمل موضوع مستقل لكل سؤال 🙂

 

ولكن وقبل ان اقفل الموضوع هذا ، اليك الجواب على السؤال الاول 🙂

 

59 دقائق مضت, midomashakel said:

1. المشكلة التى اريدها انه عند كتابة كود الموظف  بالخطا ( لا يوافق اى رقم بجدول الموظفين )

2. كذلك اريد تفريغ الحقول بعد عملية الحفظ

3. في مشكلة تانية في حالة جعل الحقول unbound والضغط على حفظ يقوم بحفظ الحقول فارغة بالكامل

4. طلب اخر عند الضغط على مفتاح العودة   يقوم بحذف الحقول من النموذج وعدم الحفظ

تفضل الطريقة:

جعفر

.