bumb

السلام عليكم

ممكن كود اختفاء النص بالتدريج من الليبل (Fade Out)

تحياتي لكم

40 دقائق مضت, SEMO.Pa3x said:

شاهد الهوك في ردي السابق

شاهدته ولكن كيف استخدمه؟

وجدت هذا الموضوع وهو يتكلم عن طرق عديدة لتعطيل ازرار الويندوز

https://www.techrepublic.com/article/how-to-disable-the-windows-key-on-your-keyboard/

هل من الممكن عمل كود يقوم بهذه المهام

اين انتم

معقول مافيه طريقه

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

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

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

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

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

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

Database1.zip

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:

السلام عليكم

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

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

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

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

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

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

 

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

 

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

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

منذ ساعه, amir_adam83 said:

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

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

تحياتي لك

19 دقائق مضت, SEMO.Pa3x said:

عليكم السلام، هل تقصد هذا الزر في الكيبورد

نعم طال عمرك

19 دقائق مضت, Barna said:

ممكن لو عرفنا هدفك من تعطيل هذا الزر ..... ممكن نجد حل اخر ؟؟؟

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

انا انتظر الرد من ذوي الخبرة ومن لديه طريقة لحل المشكلة

السلام عليكم

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

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

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

تحياتي لكم

26 دقائق مضت, محمد علي الطيب said:

السلام عليكم

اخي العزيز هذا ملف إلغاء الشفت ، وتمكينه 

مع التقدير

Shift.rar 26.96 kB · 0 downloads

اشكرك على جهدك

ولكن سؤالي عن مفتاح الويندوز

هل من مجيب

السلام عليكم

هل هناك طريقة لتعطيل مفاتيح الويندوز الايمن والايسر في لوحة المفاتيح

تحياتي لكم

الاوفيس اصلي والقاعدة ليست للقراءة فقط

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

السلام عليكم

لدي استعلام مضمن في نموذج كلما عدلت فيه وحفظت التعديلات اجده لم يحفظ التعديلات في المرة التالية 

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

6 ساعات مضت, صالح حمادي said:

السلام عليكم

الكود التالي يمكنك من تغيير التسمية الظاهرية للأزرار في نموذج آخر اسمه frm1

Dim frm As Form
Dim fc As Control
Set frm = Form_frm1

For Each fc In frm.Controls
    If fc.ControlType = 104 Then
       fc.Caption = "officena"
    End If
Next fc
Set frm = Nothing

 

التحكم في الأزرار.accdb 1.04 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 4 downloads

الكود مكتوب فيه 104 الى ماذا هذا الرقم

    If fc.ControlType = 104 Then

مافيه نسخة 64 بت

السلام عليكم

كيف اتحكم بأدوات النموذج من خلال نموذج اخر

انت تقصد الحفظ التلقائي في الجدول ولا في قاعدة البيانات ككل

Me.txtFullNameAR = DLookup("[FullNameAR]", "qryPersons", "[txtEmployeeNumber]=" & Me.txtEmpNumber)

الكود بهذا الشكل 

كيف اضيف طريقتك؟

50 دقائق مضت, jjafferr said:

='" & me.txtEmpNumber & "'")

تظهر لي رسالة خطأ

السلام عليكم

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