kanory

استخدم قاعدة IF لاني اكتب على الموبايل تفضل <<<<<<>>>>>> Private Sub السيارة_جاهزة_Click() If Me.السيارة_جاهزة = True Then Me.السيارة_مغادرة = False ElseIf Me.السيارة_مغادرة = True Then Me.السيارة_جاهزة = False End If End Sub Private Sub السيارة_مغادرة_Click() If Me.السيارة_مغادرة = True Then Me.السيارة_جاهزة = False ElseIf Me.السيارة_جاهزة = True Then Me.السيارة_مغادرة = False End If End Sub مثال نعم لا.accdb

تفضل >>>>>> warehouse3.accdb

بارك الله فيك حبيبنا ... وثناءك العاطر ....

وهذه مشاركة مع دكتورنا الغالي ...... ( طريقة أخرى عن طريق الاستعلام ربما اسرع عندما تكون البيانات او السجلات كثيرة ) transport (3).accdb

واياك أخي ابا الحسن ...... بالتوفيق ...

طبعا هذا الكلام في حالة مخزن واحد .... لاتستطيع اخفائها في حالة اكثر من مخزن افتح الاستعلام qry_Items_Dates_2 في حالة التصميم ثم طبق الصورة ,,,,,,

تفضل >>>>> warehouse3.accdb

تفضل جرب >>>>>>>> warehouse31.accdb

الحمد لله رب العالمين ....حياك الله اخي @nabilalibibo بالتوفيق ...

جرب المرفق واعلمنا بالنتيجة ...... nabilemployer_kan2.rar

هذا يفعله الكود تماما ... عند محاولة اسناد المخزن ١ مثلا ل kanory ... وكان هذا المخزن مؤجر لeng.qassim تظهر رسالة تخبرة بانه سبق تاجير المخزن ... والافضل من هذا كله .. عند تاجير المخزن١ مثلا يختفى في الكمبوبكس ولا يظهر ابدا الا بعد الاخلاء ... لكن طلب السائل ذلك واجبته بارك الله فيك وننتظر جواب السائل ...

جرب هذا الكود في حدث بعد التحديث للكمبو بكس Dim a As String a = "renting" If DCount("[Customer_Name]", "Customer", "[warehouse A] ='" & Me![Combo69] & "' AND [status] ='" & a & "'") > 0 Then Cancel = True MsgBox "هذا المخزن تم استأجاره", vbCritical, "عملية خاطئة" ElseIf DCount("[Customer_Name]", "Customer", "[warehouse B] ='" & Me![Combo69] & "' AND [status] ='" & a & "'") > 0 Then Cancel = True MsgBox "هذا المخزن تم استأجاره", vbCritical, "عملية خاطئة" ElseIf DCount("[Customer_Name]", "Customer", "[warehouse C] ='" & Me![Combo69] & "' AND [status] ='" & a & "'") > 0 Then Cancel = True MsgBox "هذا المخزن تم استأجاره", vbCritical, "عملية خاطئة" ElseIf DCount("[Customer_Name]", "Customer", "[warehouse D] ='" & Me![Combo69] & "' AND [status] ='" & a & "'") > 0 Then Cancel = True MsgBox "هذا المخزن تم استأجاره", vbCritical, "عملية خاطئة" ElseIf DCount("[Customer_Name]", "Customer", "[warehouse E] ='" & Me![Combo69] & "' AND [status] ='" & a & "'") > 0 Then Cancel = True MsgBox "هذا المخزن تم استأجاره", vbCritical, "عملية خاطئة" End If

الحمد لله رب العالمين .... بالتوفيق

طيب جرب المرفق التالي ..... YasEnEx2021_Kanory.rar

هل هذا التصور المطلوب حتى يتم العمل عليه ؟؟؟؟؟

وعليكم السلام بس واضح من الجدول ان الموظف 10002 مسجل دخول1 في كل ايام الشهر ............................ هل هذا يعني ان بقية الموظفين غياب .؟؟؟؟؟

هنا تجد شرح مفصل ... باختصار ... مع برنامج الاكسس برنامج لتحويل البيانات الى باركود تتراماكس ثم حفظها على شكل صورة لجميع السجلات في مجلد خاص يتم استدعاء تلك الصورة في مكانها اما في التقرير او النموذج زيها زي اي صورة موظف ... لانها محفوظة برقم I'd

تفضل >>>>>>> add.accdb المثال الثاني والنموذج مفتوح .... هذه كل الاحتمالات .... اختر منها ما شئت >>>>>> add.accdb

هل مطلوب ان يكون النموذج الاول مفتوح طوال فترة ادخال هذه السجلات ؟؟؟

تفضل .... مثالترقيم (1).accdb

عندما يرى رواد المنتدى هذه العلامة تعني انه نم الاجابة والوصول لافضل اجابة ...... وهذه العلامة من حق من يجيب احابة وافية وليس هي للسائل نفسه ؟؟؟؟؟؟

ضع في حدث الكود Add Record هذا الكود .... DoCmd.RunCommand acCmdRecordsGoToNew [Forms]![list].SetFocus [Forms]![list]![names].SetFocus DoCmd.Requery

مثال يوفر علينا الجهد ... بارك الله فيك

التطبيق على مثالك في بداية الموضوع ..... اعلمنا بالنتيجة ..... ka_QR.rar

استخدم هذا الكود .... Dim I As Long Dim txtBuff As String Dim CheckChars As String CheckChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890 " Me.kanory.SetFocus txtBuff = kanory.Text For I = 1 To Len(CheckChars) txtBuff = Replace$(txtBuff, Mid$(CheckChars, I, 1), "") Next I If txtBuff = "" Then Me.kan1.Enabled = False Me.kan2.Enabled = True Else Me.kan2.Enabled = False Me.kan1.Enabled = True End If