Shivan Rekany

استأذن من السيد @محمد ابوعبد الله على المداخلة و مشاركة معه اخي ابو زاهر احذف سطر الاخير اي احذف Docmd.Close واضف Me.NoEmp = "" Me.NaEMP = "" Me.SAL = "" Me.Alhdalmsmh = "" اي في النهاية الكود سيكون كالتالي Private Sub S_Click() Dim db As DAO.Database Dim Rs As DAO.Recordset Dim Rss As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT Alamla.*FROM Alamla;") Rs.AddNew Rs("NoEmp") = Me.NoEmp Rs("NaEMP") = Me.NaEMP Rs("SAL") = Me.SAL Rs("Alhdalmsmh") = Me.Alhdalmsmh Rs.Update Rs.close MsgBox "تم الاضافه بنجاح" Me.NoEmp = "" Me.NaEMP = "" Me.SAL = "" Me.Alhdalmsmh = "" End Sub لكي عند الحفظ الريكورد ان يفرغ المربعات النصية ولكي تكدر تعمل سجل جديد وفي النموذج التعديل وفي مربع نصي رقم العميل Noepm شوف الكود بعد تحديث كان هكذ Private Sub NoEmp_AfterUpdate() Set Rs = CurrentDb.OpenRecordset("select * from Alamla where NoEmp = " & NoEmp & "") If Rs.RecordCount > 0 Then NaEMP = Rs!NaEMP SAL = Rs!SAL Alhdalmsmh = Rs!Alhdalmsmh Else MsgBox "هذا الاسم غير موجود في ملف العملاء" NaEMP.SetFocus NoEmp.SetFocus NoEmp = Null Alhdalmsmh = Null End If End Sub اضف اليها هذا ( ' ) مرتين لكي يشتغل بشكل جيد لان الحقل رقم العميل هو نصي اي سيكون الكود كالتالي Private Sub NoEmp_AfterUpdate() Set Rs = CurrentDb.OpenRecordset("select * from Alamla where NoEmp = '" & NoEmp & "'") If Rs.RecordCount > 0 Then NaEMP = Rs!NaEMP SAL = Rs!SAL Alhdalmsmh = Rs!Alhdalmsmh Else MsgBox "هذا الاسم غير موجود في ملف العملاء" NaEMP.SetFocus NoEmp.SetFocus NoEmp = Null Alhdalmsmh = Null End If End Sub واخيرا اتفضل مع قاعدة البيانات تقبل تحياتي حفظ رقم العميل_2.rar

اليك هذا الرابظ لعل يفيدك

بارک الله فیک وفینا اجمعین

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

بارك الله فيك وفينا اجمعين شكرا لك نعم ممكن اتفضل تم ارفاق القاعدة باصدار 2003 ايضا تقبل تحياتي

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

شكرا لك صديقي وايضا شكرا لك صديقي

شکرا لک صدیقی الحمد لله الان اللی ترید بین یدیک تحیاتی

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

شوف هذا هل هذا هو مطلبك Database3.rar

اسف على كثرة الاسئلة لكن بعد مش واضحة مطلبك قلت في وقت محدد ما قصدك بالوقت المحدد ممكن توضح لي اكثر

اتفضل استخدمت هذا الكود Private Sub طلب_التوريد_BeforeUpdate(Cancel As Integer) If DLookup("[الحالة]", "[طلب توريد]", "[رقم طلب التوريد]=" & Me.طلب_التوريد) = True Then MsgBox "رقم طلب التوريد مقفل" Cancel = -1 End If End Sub الفاتورة (1).rar

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

بأي شرط في اي وقت محدد اي نوع من البيانات تريد

كيف نعرف ان الرقم التوريد مقفل ؟ هل في جدول طلب التوريد في حقل حالة من امامه علامة صح هو مقفول ام كيف نعرفه ؟

هل تريد ان يظهر لك هكذا ام بأي شكل تريد

اضافتا الى ما قال استاذ @sandanet سؤال : هل تعمل استراد لقاعدة بيانات جديدة اذا نعم هل ممكن ترفق لنا القاعدة لاننا نريد ان يحدث معنا ذلك فقط للتجربة على حلول المشكلة تحياتي

جرب هذا استخدمت هذا الكود Private Sub أمر150_Click() On Error Resume Next If DLookup("الرصيد", "asd", "[NoEmp]=" & Forms![اسماء العملاء]![Text155]) <> 0 Then MsgBox ("لا يتم الحذف لان عنده " & " ( " & Forms![اسماء العملاء]![Text157] & " ) " & "باقي من الرصيد") Exit Sub End If If MsgBox("هل انت متأكد من حذف بيانات العميل", vbYesNo) = vbYes Then Forms![اسماء العملاء]![تابع132]![NaEMP] = "" Forms![اسماء العملاء]![تابع132]![SAL] = "" Forms![اسماء العملاء]![تابع132]![Alhdalmsmh] = "" Me.Refresh MsgBox "تم الحذف" End If End Sub تقبل تحياتي حذف بيانات اعميل بدون رقمه.rar

حاولت كثير لكن بدون جدوى لكن تكدر تعمل تصدير الى بي دي ايف

الان جربه اذا حد الرسوب بيكون ما بها اي رقم لا يبدله stu.rar

هذا الكود بيمسك السجل الحالي لكي تتم DoCmd.RunCommand acCmdSelectRecord وهذا الكود بيحذف اللي حدد من قبل DoCmd.RunCommand acCmdDeleteRecord

معناته "غير موجود بالقائمة"

اذا ماتريد ان يكون نموذجك منبثقة استخدم هذا الكود لكن اعرف هذا ليس لاخفاء خلفية اكسس بل هو للاخفاء الشريط القوائم اكسس جربه لعل يفيدك DoCmd.ShowToolbar "Ribbon", acToolbarNo

اختار كومبوبوكس التي تختار منه القمية واكتب ذلك الكود في حدث ON Not In List تحياتي

اهـــــــلا بك في منتـــــتداك منـــــتدى اوفـيـــســـــــــــــنا انت اجيت على مكان صح لكي تطرح سؤالك ونحن بخدمتك بقدر مستطاعنا اتفضل مع جواب سؤالك اي اتفضل مع مطلبك ما عملت شي لقاعدة بياناتك فقط اضفت هذا الكود Private Sub اسم_الانتاج_التام_AfterUpdate() Me.رقم_العميل = Forms![فاتورة انتاج تام]![رقم العميل].Value Me.التاريخ = Forms![فاتورة انتاج تام]![تاريخ الفاتورة].Value Me.رقم_المواد = Me.اسم_الانتاج_التام.Column(1) Me.سعر = Me.اسم_الانتاج_التام.Column(2) End Sub اليك قاعدة بياناتك بعد تعديل الفاتورة.rar