kkhalifa1960

نحن بإنتظارك .

أستاذ @jamal2080 أحب مشاركاتك لأن بها الجديد ... فقط بعد اذنك طبق الكود وأرسل المرفق كي يستفيد الجميع . في انتظارك ..

بالنسبة لطلبك الأول تفضل عدم تفعيل السطر الأول كما بالكود . Private Sub uuo_Click() 'DoCmd.RunCommand acCmdSaveReco DoCmd.OpenForm "for_class", acNormal, "", "", , acNormal End Sub لم أفهم وين !! ممكن توضح .

تفضل أخي . 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")))))))