kkhalifa1960

تفضل أخي . Application Quit.mdb

تفضل استاذ @محمد احمد لطفى هذا زر أمر لتأكيد الحذف أو التراجع . Private Sub cmd_delet_Click() If MsgBox("((هل تريد حذف السجل )) " & " " & DLookup("Building_Name", "OwnerBuildingName_AddNew", "[Building_Name]=sr99"), vbYesNo) = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL "Delete OwnerBuildingName_AddNew.[Building_Name] FROM OwnerBuildingName_AddNew WHERE ([Building_Name]=sr99)" DoCmd.SetWarnings True Me.Requery MsgBox "تم حذف السجل بنجاح" Else Undo MsgBox "تم التراجع عن حذف السجل" Me.m1.SetFocus End If End Sub

تفضل أخي . واذا كان هذا طلبك لاتنسى الضغط على أقضل اجابة . DDTest.mdb

ازريل لوفهمت المثل مارديت هذا الرد أنا بفهمك ......... انا ارسلت برنامج للتعليم ( تعليم الصيد ) أما الرد على البرنامج عاوز برامج جاهز بدون تعب ( السمكة ). بإختصار أما أنت لست طرف ولا موجه إليك ماكتبت . وعلى فكرة أنا مو من عادتي أرد . لكن وجب التنويه . لاترد ... لأني مابتابع

الأن فهمت انت عاوز السمكة مش عاوز تتعلم الصيد .

تفضل أخي هذا مثال لأستاذنا @ابو جودي . عدد السجلات للنموذج المستمر v.2.mdb

تفضل أستاذ @SAEED M المرفق الجديد وبه طلبك . mus1 (5).rar

استاذنا @gamal gamal إليك مرفق كنت محصله وبدأت أنقح به لصالح محامي صديق أفتحه وأقرأه جيداً وشوف انت محتاج تزود أو تزيل ونحن معك .تحياتي لك . user : admin , pass : 12345 Or user : mahdi , pass : 1960 Or user : nashaat , pass : 123 معلومات الدخول Mr_Nashaat.accdb

أخي @abouelhassan يعمل عادي جرب (a) وشوف العداد تحت ولابد تحصل بحقول السجل عن ماكتبته ..........ثم اضف (b) وشوف العداد تحت ولابد تحصل بحقول السجل عن ماكتبته ..........ثم اضف (e) وشوف العداد تحت ولابد تحصل بحقول السجل عن ماكتبته .......... حتى تصل للكلمة أو الرقم الذي البحث عنه . الكود به نفس ما بالبحث بطريقة الاستعلام . تحياتي لك وأنا مهتم جداً بهذه المشاركات النافعة والفعالة خصوصاً من حضرتك .

تفضل أخي ووافني بالرد . جمعية_3.rar

هاك برنامج مفتوع المصدر من منتدانا أوفيسنا أقرأه جيداً وانشاء الله يفيدك ووافني بالرد . SchoolTest.accdb

تفضل بأكثر من شرط . BB=DLookup("FieldName" , "TableName" , "Criteria = n And Criteria2 = n2") أو bb = DLookup("xx", "Table1", "ID=ID And DateStart=Date()")

ارسلت لك مرفق mdb بالمشاركة السابقة . DD143-1.mdb

من فضلك املأ الجدول لأكثر من 10 سجلات وارسل المرفق وانشاء الله نسوي المطلوب .

تفضل مثال . bb = DLookup("xx", "Table1", "ID=ID And DateStart=Date()")

تفضل بتنسق 2003 . DD143-1.mdb

أستاذنا @Mohameddd200300 اذا كان هذا طلبك اضغط على أفضل اجابة .

تفضل أخي محاولتي حسب مافهمت ووافي بالرد . DD143.accdb

تفضل أخي . SendKeys"^+{f}",True

مشاركة مع أخي @متقاعد نموذجين بطريقتين مختلفتين والشرح على النماذج ........... تفضل أخي . عند الضط على الزر يكتب رقمه بالتكستبوكس.accdb

أستاذنا @محمد احمد لطفى طيب مفيش إطراء للعبد لله أو شكراً ................... مالك ناشف ليه ومفيش حل مني لك بيعجبك !!!!!!!!!!!!!!!!!!

أولاً : اذا كان هذا طلبك اضغط على أفضل اجابة . ثانياً: iif لأكثر من شرط . ExamResult = Nz(IIf([Average] >= 90, "Excellent", _ IIf([Average] >= 80, "Very Good", _ IIf([Average] >= 70, "Good", _ IIf([Average] >= 60, "Acceptable", _ IIf([Average] >= 50, "Weak", _ IIf([Average] < 50, "Failed")))))))

تفضل أخي . اذا كان هذا طلبك اضغط على أفضل اجابة . تفضل المرفق . DD142.accdb

lنا صارت معي كثيراً ..........................................والحل هو من الكنترول بانل شيل الأوفيس نهائياً ( مافي اصلاح بل حذف ) ثم أعد تشغيل الكميوتر وأعد تسطيب الأوفيس من جديد .

تفضل استاذ @محمد احمد لطفى اضغط علي الزر نقل وغير القيمة بالفورم واضغط على الزر مرةً أخرى وكرر ........ انشاء الله طلبك . test2023-1 (5).mdb