حسين العربى

تفضل اخي انشاء الله يكون المطلوب DBbaravan2.rar

الف شكر لك اخي محد سلامة وبالتوفيق انشاء الله

الف شكر لك اخي الفاضل jjafferr هذا هو المطلوب ولك مني الف شكر وللاخ الفاضل kamel2711 علي اهتمامة

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام عندي برنامج صممته للعمل عندي وهو خاص. IP ADRECC لان في العمل عندي شبكة داخليه ويعمل عليها اكثر من 130 موظف. فطبعا سجلت IP جهاز كل موظف في البرنامج وطبعا نظام IP عندي يكون كاشكل الي 128.122.3طبعا هكذا الي اخر رقم وهو 128.122.1.255 طبعا انا بسجل اخر رقم في ال IP سواء 3 او15 او اي رقم طبعا اخري255. طبعا فلو امكن استعلام او كود لمعرفة الارقم الغير مسجله في الجدول ما بين 1. و 255 ارجو ان تكون الفكره واضحه واسف علي الاطاله

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

بارك الله فيك اخي الفاضل jandbi طريقة ممتازة

حملة مرفق اخر مشاركة ولم يعمل عندي الي هو main1 لم يعمل عندي

الف شكر اخي الفاضل محمد سلامة علي اهتمامك ولك مني جزيل الشكر بس المرفق لايعمل عندي الاني اعمل علي اكسس 2007

ممكن اخي sayed132 ارفاق النسخة هذي بصيغة 2007 او 2003

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي وزوار المنتدي الكرام هذا السؤال كان في مشاركة لاحد الاعضاء واجاب عنه الاخ الفاضل عبدالله وهذا رابط المشاركة وهذا هو الكود الذي يقوم بالنسخ وهو يعمل مع اكسس 2003 اما مع اكسس 2007 فانه النسخة الاحتياطية التي ياخذها تكون علي شكل Text On Error Resume Next '------- by caboon ----- Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB OldFile = [StrOld] DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) If [BKUP] = True Then NewFile = Me.StrNew & "\" & DBwithoutEXT & "-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & Right(DBwithEXT, 4) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Exit Sub End If ارجو التعديل علي الكود لكي يعمل علي 2007

السلام عليكم ورحمة الله وبركاته اخواني ممكن تعديل الكود لكي يعمل علي 2007

الف مبروك للاستاذ جعفر

الف شكر اخي ابو عبدالله الحلواني

تسلم ابو عبدالله الحلوني وربنا مايحرمنا منك ومن حلولك الجميله اسعد الله ايامك هذا هو المطلوب وجزاك الله خيرا بس ممكن لو تكرمت علينا شرح مبسط لسبب المشكلة ان امكن ولك جزيل الشكر

up

السلام عليكم ورحمة الله وبركاته اخواني واحبائي اعضاء ومشرفي وزوار المنتدي الكرم ليكم وحشه والله لاني من فتره لم اطرح اسأله فاليوم وبالصدفه اكتشفت شىْ في بعض البرامج التي صممتها من فتره طويله وهو برنامج حجز لصالة افراح ( عندي فورم تحديث تاريخ حجز عميل ) به عدد اثنين تكست بوكس وزر امر للتحديث وزر امر تنظيف التكست من البيانات لادخال بيانات جديده طبعا عند الضغط علي زر امر تحديث اذا كان تكست التاريخ الحالي خالي يظهر رسالة ( ادخال التاريخ الحالي ) (وهكذا في تكست التاريخ الجديد اذا كان خالي يظهر رسالة ) (واذا كان التاريخ الاول نف التاريخ الثاني يظهر رسالة) ( واذا كان التاريخ موجود لعميل اخر يظهر رسالة ) المشكلة في رسائل اذا كان التكست بوكس خالي في اول مره افتح الفورم فيها واضغط تحديث يظهر الرسائل وبعد عمل عمل عملية تحديث لعميل وعمل تنظيف للشاشة وتركت مربع نص خالي لاتظهر رسائل فما حل هذه المشكله ولكم جزيل الشكر ( واسف علي لاطالة ) واليكم مرفق للتجربه حجز الصالة.rar

تفضل اخي انشاء الله يكون المطلوب ادخال نسبة الحافز.rar

اخي الفاضل سلمان الشهراني شغيل موجه الاوامر (كمسؤول) ادخل الكود هكذا regsvr32 msinet.ocx

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

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

تفضل اخي التعديل كما شرح استاذي الفاضل ابوخليل on.rar

انشاء نكمل باقي الموضوع لاني محتاج اطبق عليه برنامجي