Shivan Kurdi - شڤان کوردی

نعم اليك هذا الكود Private Sub SENSOR_NotInList(NewData As String, Response As Integer) MsgBox "القيمة الذي ادخلته ليس من ضمن القائمة", vbMsgBoxRight + vbInformation, "تنبيه" Response = acDataErrContinue Me.SENSOR = "" Exit Sub End Sub تحياتي

هل قصدكم ب سويج بورد شوف هذه القاعدة Database11.rar

اتفضل القي نظرتا الى هذا الرابط احتمال ان يكون هو فيها مطلبك

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

وينكم يا شباب عدنا ما تريد فقط شوفون رابط استاذنا @صالح حمادي وبعدين اعمل ماتريد تحياتي

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

ما مشكلة اتأكد عليه واتفضل اليك نسخة من اصدار 2003 arshif2003.rar

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

في البداية الكود عملنا متغير نصس باسم ( sql ) Dim sql As String بعدين بيننا ما هو ( sql ) وقلنا ( sql ) يساوي حذف كل البيانات من جدول (tblMealomat) . sql = "DELETE tblMealomat.* FROM tblMealomat;" بعدين كتبنا شرط ئيف مع رسالة بها زرين وهما ( yes ) و ( no ) و اضفنا ( vbMsgBoxRight ) لكي يبدأ الرسالة من اليمين وكتبنا (تنبيه) كعنوان الرسالة بعدين قلنا اذا الرسالة يساوي زر ( yes ) اي اذا ضغطنا على زر نعم شو بيعمل لنا ... If MsgBox("هل تريد الحذف كافة السجلات", vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then اولا : قلنا ايقاف تحذيرات اكسس DoCmd.SetWarnings (warningsoff) ثانيا : تشغيل جملة سكويليتي وهو حذف كافة سجلات من جدول (tblMealomat) وهو متغير باسم ( sql ) DoCmd.RunSQL (sql) ثالثا : تشغيل تحذيرات اكسس DoCmd.SetWarnings (warningson) رابعا : اعادة استعلام لكي عند عمل حذف لا يعطيني في مربعات النصية كلمةم محذوف او بالانكليزية ديليت Me.Requery خامسا : اظهار رسالة اخرى و بيخبرنات ان تم الحذف كافة السجلات بنجاح MsgBox "تم حذف كافة السجلات" لكن اذا ما ضغطنا على زر ( yes ) وضغطنا على زر ( no ) شو بيعمل Else بيعظهر رسالة ويخبرنا ان تم الغاء العملية الحذف MsgBox "تم الغاء العملية الحذف" واخيرا انتهينا بشرطنا ئيف End If تحياتي

فرضنا عندك جدول باسم tblMealomat سنستخدم هذا الكود Dim sql As String sql = "DELETE tblMealomat.* FROM tblMealomat;" If MsgBox("هل تريد الحذف كافة السجلات", vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then DoCmd.SetWarnings (warningsoff) DoCmd.RunSQL (sql) DoCmd.SetWarnings (warningson) Me.Requery MsgBox "تم حذف كافة السجلات" Else MsgBox "تم الغاء العملية الحذف" End If اولا سنعطينا رسالة تأكيدية اذا ضغطنا على نعم سيحذف كافة السجلات ويعطينا رسالة تم حذف واذا ضغطنا على لا سيعطينا رسالة تم الغاء العملية تحياتي

اتفضل ايقاف حساب عميل.rar

اليك هذا DateSerial(Format([tar];"yyyy")+2;Format([tar];"mm")+6;Format([tar];"d")) tar هو حقل التاريخ اللي تريد ان تظيف الى ذلك التاريخ سنتان ونصف تحياتي

تريد حذف كل سجلا ت الجدول بدفعة واحدة ام ما هو شرط لكي يحذف السجل

وجزاك الله كل خير استاذي

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

كان فيه كود لذا اضفت كود اخر يعني في النهاية كود سيكون كالتالي Private Sub رقم_العميل_AfterUpdate() If DCount("[NaEMP]", "[Empp]", "[NoEmp]=" & Me.رقم_العميل) < 1 Then MsgBox "ما عدنا اي عميل بهذا الرقم" Me.Undo ElseIf Me.رقم_العميل = DLookup("NoEmp", "empp", "[Aikafhsab]=" & -1) Then MsgBox "حساب هذا العميل موقوف" Me.Undo Else Me.[اسم المستخدم] = Me.user1 End If End Sub تحياتي ايقاف حساب عميل.rar

السلام عليكم ورحمة الله وبركاته تم التجربة عملت فورمات للجهاز ولحسن الحظ لا يتغير اي رقم منهما لا للمزربور ولا للمعالج تحياتي

اجمعين

على الرغم ما عطيتني جواب سؤالي لذا انا عملت لك هذا جرب حد الرسوب stu.rar

قبل اعمل تحديث لكل المواد عندك 2 طلاب واحد اسمه جعفر وعنده درجات مادة اكسس فقط والاخر هو عبدالله وعنده درجات للمادة اكسس و اكسل عند تحديث على اسم جعفر ماتريد ان يصير هل تريد تحديث للمادة اكسس فقط ام تريد تحديث كل المواد اذا تريد تحديث كل المواد وين نأخذ قيمة تحديث للمادة اللي ليس موجودة لذلك الطالب واذا تريد ان يحدث حد رسوب المادة اكسس فقط ما هو سبب تتغير في حد رسوب عند كل طالب من الافضل : حين تختار مادة يظهر حد رسوب وحد النجاح للمادة وبعدين تكتب درجة الطالب واذا تريد ان تتغير حد الرسوب او حد النجاح يكون عندك نموذج اخر لذلك وليس في النموذج ادخال الدرجات للطالب هذا حسب فهمي وانت تعرف اكثر مني حسب شغلك والله يعلم بانتظار ردك تحياتي

اتفضل للعلم انا غيرت اسماء النماذج xxx.rar

اتفضل اختيار متعدد.rar

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

حسب فهمي لطلبك اتفضل عملت لحد الرسوب فقط هل تريد هذا اذا نعم راح اكمل ان شاء الله stu.rar

اخ ابو عبدالله والله عم اخجل منك لكثرة سؤالي لكن بعد انا ما فهمت من مطلبك ما اعرف اشتغل على اي جدول تريد اي جدول