حالة السجل مفتوح

[bumb]

السلام عليكم

 

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

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

 

المطلوب كود يتأكد هل للموظف طلب مفتوح ام لا عندما يقوم الموظف بإدخال الرقم السري لطلب سيارة اخرى

 

تحياتي لكم

[amir_adam83]

2 hours ago, bumb said:

السلام عليكم

 

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

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

 

المطلوب كود يتأكد هل للموظف طلب مفتوح ام لا عندما يقوم الموظف بإدخال الرقم السري لطلب سيارة اخرى

 

تحياتي لكم

اين قاعدة البيانات للتعديل عليه 

[bumb]

منذ ساعه, amir_adam83 said:

اين قاعدة البيانات للتعديل عليه 

علمني ولا تحل لي

 

تحياتي لك

[omarahmed1424]

حضرتك محتاج حاجة زي دي مثلا عندي فورم بدخل منه المواقف على الطلاب ( سلبي - إيجابي - غياب - تاخر ... ) ولابد من إغلاق الموقف وإنهاء التصرف مع الطالب و طبعا لابد من التذكير بوجود مواقف مفتوحة وده إللي بيعمله الكود ده 

Dim intStore As Integer
intStore = DCount("[student_ser]", "[moqef_off]", "[moqef_off] =0 ")
    If intStore = 0 Then
Exit Sub
Else
If MsgBox(" لديك " & intStore & " مواقف طلاب غير مغلقة " & _
          "" & vbCrLf & vbCrLf & _
          " " & _
          "هل تود رؤيتهم الآن ؟ " & _
          " ", vbYesNo Or vbExclamation Or vbDefaultButton1, _
          "تنبيه مواقف طلاب مفتوحة") = vbYes Then

DoCmd.Close acForm, "frmstudent", acSaveYes
DoCmd.OpenForm "moqef_off", acNormal
 Else
 Exit Sub
 End If
End If
لأن الكود ده بيعد الرقم الكودي و المواقف المفتوحة الموازية للرقم الكودي للطلاب لما بيكون "[moqef_off] =0 " وبعدين بيديني رسالة بعدد المواقف المفتوحة زي ما هو واضح في الرسالة لإذا عاوز أكمل وأشوفهم تضغط نعم وإذا لو مش عايز بتضغط لا فيكمل النموذج الخاص بإدخال الطلاب الفتح وطبعا لو عاوز تشوفهم ده بيفتح نموذج تاني محطوط عليه باص ورود للفتح 

On Error Resume Next
      Dim X As String
X = "1239"
Dim Y As String
Y = InputBoxDK("Enter Password for form")
If X <> Y Then
MsgBox ("Invalid password")
DoCmd.CancelEvent
End If

وده طبعا غرضه حماية المواقف من التعديل إلا لمن له الصلاحية 

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

يارب أكون أفدت حضرتك

 

[عبد اللطيف سلوم]

5 ساعات مضت, bumb said:

السلام عليكم

 

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

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

 

المطلوب كود يتأكد هل للموظف طلب مفتوح ام لا عندما يقوم الموظف بإدخال الرقم السري لطلب سيارة اخرى

 

تحياتي لكم

السلام عليكم

اخي الكريم -- الطريقة السهلة للتعامل حسب ما افهمت من سؤالك

تضع حقل نعم / لا

بحيث تحدد الاجابة طلب مفتوح // تختار مثلا نعم 

الان تعمل استعلام وتضع معيار اسفل الحقل طلب مفتوح / نعم

هنا يظهر لك كافة الطلبات المفتوحة 

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

 

اتمنى ان تكون هذه المعلومات مفيدة لك

 

[bumb]

41 دقائق مضت, omarahmed1424 said:

حضرتك محتاج حاجة زي دي مثلا عندي فورم بدخل منه المواقف على الطلاب ( سلبي - إيجابي - غياب - تاخر ... ) ولابد من إغلاق الموقف وإنهاء التصرف مع الطالب و طبعا لابد من التذكير بوجود مواقف مفتوحة وده إللي بيعمله الكود ده 

Dim intStore As Integer
intStore = DCount("[student_ser]", "[moqef_off]", "[moqef_off] =0 ")
    If intStore = 0 Then
Exit Sub
Else
If MsgBox(" لديك " & intStore & " مواقف طلاب غير مغلقة " & _
          "" & vbCrLf & vbCrLf & _
          " " & _
          "هل تود رؤيتهم الآن ؟ " & _
          " ", vbYesNo Or vbExclamation Or vbDefaultButton1, _
          "تنبيه مواقف طلاب مفتوحة") = vbYes Then

DoCmd.Close acForm, "frmstudent", acSaveYes
DoCmd.OpenForm "moqef_off", acNormal
 Else
 Exit Sub
 End If
End If
لأن الكود ده بيعد الرقم الكودي و المواقف المفتوحة الموازية للرقم الكودي للطلاب لما بيكون "[moqef_off] =0 " وبعدين بيديني رسالة بعدد المواقف المفتوحة زي ما هو واضح في الرسالة لإذا عاوز أكمل وأشوفهم تضغط نعم وإذا لو مش عايز بتضغط لا فيكمل النموذج الخاص بإدخال الطلاب الفتح وطبعا لو عاوز تشوفهم ده بيفتح نموذج تاني محطوط عليه باص ورود للفتح 

On Error Resume Next
      Dim X As String
X = "1239"
Dim Y As String
Y = InputBoxDK("Enter Password for form")
If X <> Y Then
MsgBox ("Invalid password")
DoCmd.CancelEvent
End If

وده طبعا غرضه حماية المواقف من التعديل إلا لمن له الصلاحية 

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

يارب أكون أفدت حضرتك

 

لا اريد عرض الطلبات المفتوحة 

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

1 دقيقه مضت, bumb said:

لا اريد عرض الطلبات المفتوحة 

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

 

44 دقائق مضت, عبد اللطيف سلوم said:

السلام عليكم

اخي الكريم -- الطريقة السهلة للتعامل حسب ما افهمت من سؤالك

تضع حقل نعم / لا

بحيث تحدد الاجابة طلب مفتوح // تختار مثلا نعم 

الان تعمل استعلام وتضع معيار اسفل الحقل طلب مفتوح / نعم

هنا يظهر لك كافة الطلبات المفتوحة 

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

 

اتمنى ان تكون هذه المعلومات مفيدة لك

 

اريد عرض الطلبات المفتوحة 

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

[bumb]

ارجو ان تكون الصورة توضح ما اريده بالضبط

Database1.zip

تم تعديل يوليو 5, 2021 بواسطه bumb
رفع قاعدة البيانات

[Eng.Qassim]

هل جربت في حدث بعد تحديث الباسورد ...اذا كانت الحالة (STATUS)= "OPEN"  فسوف يعطي رسالة بان الطلب مفتوح ...وبعكسه تنفذ بقية الاجراءات

تم تعديل يوليو 5, 2021 بواسطه Eng.Qassim

[bumb]

27 دقائق مضت, Eng.Qassim said:

هل جربت في حدث بعد تحديث الباسورد ...اذا كانت الحالة (STATUS)= "OPEN"  فسوف يعطي رسالة بان الطلب مفتوح ...وبعكسه تنفذ بقية الاجراءات

ممكن تضع الكود

[Barna]

3 ساعات مضت, bumb said:

ممكن تضع الكود

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

If IsNull(Me.txtSS) Or Me.txtSS = "" Then
MsgBox "Enter Passcode", vbCritical, "Movement System"
Exit Sub

Else
    If DCount("sta", "barna", "[txtPassword] = '" & Me.txtSS & "' And [sta]= '" & "Open" & "'") > 0 Then
        
        MsgBox "لديك طلب مفتو ويجب اغلاقة", vbCritical, "عملية خاطئة"
        Exit Sub
    Else
        Me.txtFullNameEN = DLookup("[FullNameEN]", "qryUsers", "[txtPassword]='" & Me.txtSS & "'")
        Me.txtEmployeeNumber = DLookup("[txtEmployeeNumber]", "qryUsers", "[txtPassword]='" & Me.txtSS & "'")
        Me.txtEmpID = DLookup("[txtIntPersonID]", "qryUsers", "[txtPassword]='" & Me.txtSS & "'")
        Me.txtSS = ""
        Me.cmbVehicleNameEN.Enabled = True
    End If
End If

مع اضافة استعلام ...

 

 

Database1.accdb

تم تعديل يوليو 6, 2021 بواسطه Barna

[bumb]

10 ساعات مضت, Barna said:

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

If IsNull(Me.txtSS) Or Me.txtSS = "" Then
MsgBox "Enter Passcode", vbCritical, "Movement System"
Exit Sub

Else
    If DCount("sta", "barna", "[txtPassword] = '" & Me.txtSS & "' And [sta]= '" & "Open" & "'") > 0 Then
        
        MsgBox "لديك طلب مفتو ويجب اغلاقة", vbCritical, "عملية خاطئة"
        Exit Sub
    Else
        Me.txtFullNameEN = DLookup("[FullNameEN]", "qryUsers", "[txtPassword]='" & Me.txtSS & "'")
        Me.txtEmployeeNumber = DLookup("[txtEmployeeNumber]", "qryUsers", "[txtPassword]='" & Me.txtSS & "'")
        Me.txtEmpID = DLookup("[txtIntPersonID]", "qryUsers", "[txtPassword]='" & Me.txtSS & "'")
        Me.txtSS = ""
        Me.cmbVehicleNameEN.Enabled = True
    End If
End If

مع اضافة استعلام ...

 

 

Database1.accdb 1.7 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 download

عشت وكثر الله خيرك