أبوبسمله

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

السلام عليكم اخى @radwan1991 مشاركه مع اخوانى واساتذتى جزاهم الله خيرا جرب الكود التالى جزاها الله خيرا ام عهود اذا كان نموذجك لا يوجد به كومبوبوكس ازل الجزء من الكود Or ctlTextbox.ControlType = acComboBox For Each ctlTextbox In Me.Controls If ctlTextbox.ControlType = acTextBox Or ctlTextbox.ControlType = acComboBox Then If IsNull(ctlTextbox) Then MsgBox "لقد تركت أحد مربعات النص فارغاً" ctlTextbox.SetFocus Exit Sub End If End If Next ctlTextbox MsgBox "جميع مربعات النص بها قيم " On Error GoTo Erra Dim stDocName As String stDocName = "t1" DoCmd.OpenReport stDocName, acNormal Exit_Erra: Exit Sub Erra: MsgBox Err.Description Resume Exit_Erra Database11(2).accdb

واياكم اخى عمران وبالتوفيق ان شاء الله

وعليكم السلام اخى @omran2015 جرب المعادله التاليه FINAl: IIf([result]="راسب";0;IIf([ToTal]>520;520/520;[ToTal]/520)) وان شاء الله احد اخواننا واساتذتنا جزاهم الله خيرا يوافيك بحل افضل بالتوفيق اخى

مشاركه مع اخى @Gamal.Saad التصدير بطريقه اخرى الصف الاول بالملف هو اسم الحقل وتم استخدام الاستعلام مباشره وتم الاستعانه بالرابط التالى لازاله علامات الاقتباس التى تمت فى حين تم ازاله https://access-excel.tips/access-vba-docmd-transfertext-method/ DoCmd.TransferText acExportDelim, "qry", "استعلام4", strPathAndfile & xx & ".txt", True ولعل احد اخواننا واساتذتنا يجد حل للطريقه الاولى فى ازاله الاسطر الفارغه بالتوفيق Trans CD.mdb

مشاركه مع اخوانى واساتذتى جزاهم الله خيرا كذلك يحدث لدى نفس المشكله وارفق لك رابط وشرح فيديو لعلك تنتفع بهم لحل المشكله ان شاء الله https://www.myonlinetraininghub.com/vba-shell بالتوفيق اخى حسين

الفضل كله لله ثم لاخواننا واساتذتنا جزاهم الله خيرا اللهم امين ورحم الله جميع امه سيد الخلق سيدنا محمد صل الله عليه وسلم واياكم اخى يارك الله فيكم اخوانى واساتذتى محمد @Barna واخى @ابو تراب وجزاكم الله خيرا والحمدلله الذى بنعمته تتم الصالحات

هذا الكود تضعه كما هو لوحده انما نقصد كود استدعاء هذا الكود فى الحدثين الحالى وعند عداد الوقت showPic هذا كود استدعاء الكود وهو اللذى تضعه فى الحدثين قبل اكوادك

وعليكم السلام برجاء مراجعه الروابط التاليه لمشاركه البرنامج على الشبكه لاختنا الغاليه ام عهود والاخ الغالى احمد الحربى جزاهم الله خيرا http://arabteam2000-forum.com/index.php?/topic/78439-مشاركة-قواعد-البيانات-اكسيس-على-الشبكة/ http://arabteam2000-forum.com/index.php?/topic/66225-آكسس-على-الشبكة/ بالتوفيق ان شاء الله

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

اخى الفاضل @salimboub24 هنا قسم الاكسس موضوعك يخص الاكسل برجاء ضع موضوعك بقسم الاكسل بالموقع وان شاء الله يتم وضع الحل المناسب لك من قبل اخواننا واساتذتنا جزاهم الله خيرا هناك

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

جزاك الله خيرا اخى واستاذى محمد

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

وعليكم السلام مشاركه مع اخوانى واساتذتى الافاضل جزاهم الله خيرا اطلع على هذه المشاركه لاختنا الغاليه زهره ام عهود جزاها الله خيرا ان شاء الله تفى لحل سؤالك http://arabteam2000-forum.com/index.php?/topic/82843-كود-لجعل-البرنامج-demo-لفترة/&do=findComment&comment=427294 بالتوفيق اخى

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

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

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

جزاك الله خيرا اخى واستاذى العزيز محمد جعله الله فى ميزان حسناتك ان شاء الله

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا اللهم آمين بالتوفيق اخى

السلام عليكم اخى الفاضل @AboBahaa تم اضافه استعلامين qryTABLE2 و qryTblNew واضافه حقلين باسم t فى كل منهما لتجميع حقل الرقم والمركز والسنه والنوع وذلك للمقارنه لعدم اضافتهما مره اخرى للبيانات فى حاله تم الضغط اكثر من مره ع زر الاضافه وتم تعديل استعلام الالحاق بناء عليهما تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق برنامج العقود_1.rar

وعليكم السلام اخى @ازهر عبد العزيز ممكن تعمل خدعه بسيطه تعمل زر وتجعله شفاف فوق الصوره وتجعل الزر عند التحميل غير مفعل ثم بالضغط ع زر اخر يتم ارسال الزر للخلف وتنشيط الصوره وتصير مفعله وجزاها ام عهود لانى صرت ابحث عن الكود ده فى جوجل بالترجمه المقرفه لحد ما ربنا هدانى للبحث بطريقه اخرى ووصلت لطريقه لام عهود جزاها الله خيرا واليك مثال عندما تفتح الفورم عندك صوره للبيت حاول تضغط عليها لن تعمل اضغط عالزر امر 6 ثم اضغط عالبيت مره اخرى جرب ووافنى بالنتيجه New - Copy (2).accdb

مشاركه معكم اخوانى ارفق مثال كان موجود عندى لعله ينفعكم ان شاء الله وجزاه الله خيرا صاحبه -بحث في نص طويل وتضليل النتيجة وعدد الكلمات المكررهSearchByWord.rar

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

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