حسين العربى

تفضل اخي الفاضل On Error Resume Next ''''''''''''''''''''''' Me.txt1 = DLookup("[BARCODEحقل]", "TABOL1 جدول", "[BARCODEحقل]='" & Me.SERH حقل البحث & "'") '''''''''''''''''' If Len(Me.TXT1 & "") = 0 Then MsgBox "هذا الباركود غير مسجل" Undo Exit Sub End If انشأ مربع نص غير منضم وسميه TXT1 ضع هذا الكود حذث بعد التحديث في مربع النص الذي تسميه الصندوك الذي تبحث فيه وهتسميه SERH

UP

استاذي الفاضل شكرا علي مرورك الطيب هل هذا الكود يتحق من الاتصال فعلا ام انه msg box فقط وهذا ما يتضح لي من الكود

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام عندي قاعدة بيانات علي جهاز الكاشير طبعا مسويلها مشاركة وربط وفي نهاية اليوم ارحل البيانات من جهاذ الكاشير الي جهازي الرئيسي من خلال زر امر ( ترحيل مبيعات نقاط بيع ) احيانا الواير ليس بيعلق فعند الترحيل تظهر رسالة كما موضح في الصوره معناها انه لايوجد اتصال بالجهاز الاخر هذه الرساله افتراضيه من اوفيس ا طبعا انا اريد كود عند عدم الاتصال يعطي رساله للمستخدم انه غير متصل او توجد مشكله بالاتصال ويلغي الامر وشكرا لكم واسف علي الاطاله ملحوظه : طبعا ممكن حدي يقولي الرساله دي واضحه ارد عليه واقول له خوفا من دخول المستخدم الي محرر الاكواد ولو وضعت هذا الكود On Error Resume Next لاخفاء الرسال هيظهر له ساله وضعتها ( تم الترحيل ) وهو لم يرحل )

اخي ازهر عبد العزيز شكر علي مرورك انا اعرف الباسورد انا اريد ان الغيه وارسل لي المرفق بعد الالغاء لو تكرمت

up

انا محتاج حد بس يكسر لي كلمة السر اولا انا عندي برنامج استرجاع

فالمفترض كسر كلمت السر اولا

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

ما في اي حل حتي ناخذ البيانات

لايوجد لدي نسخة احتياطية من البيانات

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

السلام عليكم ورحمة الله وبركاته اعضاء ومشرفي المنتدي الكرام لدي قاعدة بيانات بها جداول فقط امس كانت تعمل تمام اليوم حاولت افتحها لم تعمل وظهر لي هذه الرساله قاعدة البيانات هذه بها بينات مهمه للشركة وربنا يستر ملحوظه قاعدة البيانات عليها باسورد هو 1982 data_compane.rar

شكرا لكم جميعا علي اهتمامكم موديل الطابعه عندي T20II

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

اخي الفضل هذا الموقع فيه كل ما تريد https://www.mutaz.net/free-programs/

استاذي الفاضل انا اعرف انه بيشتغل تمام بس لم استورد الفورم الي برنامج المصصم علي 2007 تظهر لي هذه الرساله الموضحه في المرفق الملونه بالاصفر

UP

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

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

تم حل المشكله وهي كان في مسافه بين كلمة فايل والقوسين كانت غير موجود المسافه (Program Files (x86 شكر لكم جمعيا علي علي جهودكم العظيمه وعلي سعة صدركم والشكر للاستاذ الكبير جعفر علي ابدعاته العظيمه ذادك الله من علمه

يظهر لي هذا الخطأ

اسم البرنامج عندي test الفايل الموجود فيه في بارتشن D اسم الفايل progrms مسار الاوفيس ده "C:\Program Files(x86)\Microsoft Office\Office12\msaccess.exe لو تكرمت ظبطه لي لاني غلبت والله بعمل فيه كد ولم يظبط معي

انا بعمل علي اوفيس 2007 وهذه غير موجود ه عندي في نفس المسار msaccess.exe موجوده في المسار هذا "C:\Program Files(x86)\Microsoft Office\Office12\msaccess.exe

اعمل ملف txt على سطح المكتب ، وانسخ الكود من الرابط ، والصقه في ملف txt ، في ملف txt ، قم بتغيير مسار برنامج الاكسس ، وتغيير مسار برنامجك ، واحفظ الملف ، قم بتغيير صيغة الملف من txt الى bat ، وانقر عليه مرتين علشان يشتغل. ثم اتبع التعليمات اللي على الرابط 🙂 الف شكر استاذي الفاضل ممكن اعرف احط اسم البرنامج بتاعي فين في ملف التكست هل هذا اسم البرنامج myDataBase_FE وذا اسم الملف الموجود فيه البرنامج Testing