mrnooo2000

اخى الكريم الخطأ ناتج عن عدم تسجيل اداة الocx عموما سأسهل عليك المسألة ضع الكود التالى قبل السطر الموجود به الخطأ ليقوم هو بتسجيل الاداة If Dir("c:\WINDOWS\system32\mscomm32.ocx", vbNormal) = "" Then FileCopy CurrentProject.Path & "\mscomm32.ocx", "c:\WINDOWS\…

اخى الكود فى مصدر مربع التص يمنكنك ارفاق الملف

اخى الكريم ياريت شرح لم تريد بشىء من التفصيل

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

اشكركم جميعا اخوانى على هذه الكلمات الجميلة و هذه الروح الرائعة و اليكم المثال بعد التعديل لاخفاء كلمة السر MrNo_shift_check.rar

اخى الكود يعمل كما تريد على ما اعتقد الان غير التاريخ فى النموذج الفرعى الى 11/10/2010 و غير المبلغ فى النموذج الرئيسى و اغلق النموذج و افتح النموذج مره اخرى و لاحظ التغيير الذى يحدث

لماذا لم تنجح

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

ضع هذا الكود فى حدث عند الفتح للنموذج الرئيسى CurrentDb.Execute "UPDATE 1 INNER JOIN b ON [1].a = b.b1 SET [1].a3 = b.b2, b.b3 = [1].a2 WHERE (((b.b2)=Date()));"

اعمل التقارير و ارسل المرفق ليتم التعديل عليه

افهم من كلامك ان الميزان موصول عبر ال comm port لا تنسى تسجيل الاداة اولا جرب و اخبرنى Desktop.rar

المطلوب غير واضح

ضع مثال لم تريد

تفضل اخى CurrentDb.Execute "UPDATE a1 SET a1.amount = a1.amount + " & Me.a2 & " WHERE (((a1.n)=" & Me.n & "));"

تفضل اخى لاحظ العلاقة بين الجدولين و الكود بالنموذج النماذج الفرعية.rar

اولا استخدم هذا الكود فى مصدر الحقل =[نهاية الصيانة]-Date() ثانيا ستجد بالمرفق استعلامين in داخل الصيانة out خارج الصيانة ابنى عليهما التقريرين المطلوبين amr.rar

ضعه فى حدث بعد التحديث لحقل المدة اكتب المدة كما تريد 30 يوم او 10 ايام فى حقل المدة

اليك اخى ما تريد ضع التقارير التى تريدها و غير الاسماء فى الكود EmpTest.rar

كيف يرتبط هذا الجهاز بالكمبيوتر

يمكن اضافة هذا الشرط بهذا الشكل MsgBox "عدد مرات الدخول " & DCount("*", "AccessLog", "[EmployeeID] = '" & Me![Combo4] & "' and inout=0")