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

[bumb]

السلام عليكم

 

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

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

 

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

 

تحياتي لكم

[amir_adam83]

  في 5‏/7‏/2021 at 13:39, bumb said:

السلام عليكم

 

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

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

 

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

 

تحياتي لكم

Expand  

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

[bumb]

  في 5‏/7‏/2021 at 16:33, amir_adam83 said:

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

Expand  

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

 

تحياتي لك

[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‏/7‏/2021 at 13:39, bumb said:

السلام عليكم

 

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

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

 

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

 

تحياتي لكم

Expand  

السلام عليكم

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

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

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

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

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

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

 

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

 

[bumb]

  في 5‏/7‏/2021 at 18:55, 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

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

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

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

 

Expand  

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

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

  في 5‏/7‏/2021 at 19:38, bumb said:

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

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

Expand  

 

  في 5‏/7‏/2021 at 18:55, عبد اللطيف سلوم said:

السلام عليكم

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

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

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

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

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

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

 

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

 

Expand  

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

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

[bumb]

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

Database1.zipFetching info...

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

[Eng.Qassim]

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

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

[bumb]

  في 5‏/7‏/2021 at 21:14, Eng.Qassim said:

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

Expand  

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

[Barna]

  في 5‏/7‏/2021 at 21:42, bumb said:

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

Expand  

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

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.accdbFetching info...

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

[bumb]

  في 5‏/7‏/2021 at 22:09, 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

Expand  

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