kkhalifa1960

تفضل أخي . تجريبي-2.accdb

مشاركة مع أخي @Eng.Qassim تفضل هذا المرفق . عدم فتح النموذج طالما هناك نموذج مغلق.accdb

أخي بدون أكواد يمكنك بعد البحث التعدبل بأي حقل .

تفضل أخي . اذا كان هذا طلبك اضغط على أفضل اجابة . base2024-1.accdb

استأذنك أخي @abouelhassan فتح موضوع جديد بطلبك موضح بالمرفق طلبك .

جزاك الله خيراً على ردكم الجميل

تفضل أخي @abouelhassan جرب ووافني بالرد . Out-Get_Table_Excel.rar

لأن حضرتك تبحث فى جدول واحد وليس به اسم المخازن أما الأن خليت البحث بالجداول الثلاثة باستعلام ...... تفضل جرب ووافي بالرد . تجربة-2.accdb

يعتمد على كود الفتح وماكتبت به أو خصائص المستعرض .... ارسل مرفق وانشاء الله نشوف الحل. وجرب المرفق وما فيه مشاكل ووافني بالرد . فتح مستندPDFمباشرة.rar

استاذنا @abouelhassan تفضل . تجربة-1.accdb

أي دورات أخي لا يوجد بالجدول أي دورات ؟؟؟ ممكن توضح .

تفضل أخي ووافني بالرد . MDBCONTROLE-3.rar

تفضل أخي ووافني بالرد باكر انشاء الله . MDBCONTROLE-2.rar

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

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

تفضل أخي . واذا كان هذا طلبك اضغط على أفضل اجابة . تجريبي-1.accdb

حسب مافهمت هل هذا ماتقصد أو وضح أكثر ووافني بالرد . MDBCONTROLE-1.rar

أستاذ جمال ممكن المرفق موضح عليه طلبك .

تفضل أخي برنامج حصلته عندي من أعمال منتدانا أفسينا الاستبيان---2003.rar

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

أستاذ @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