Bluemind

اخوي في حدث On Got Focus للكمبو بوكس pay_doc_cust_code ضع الكود التالي: DoCmd.Requery "pay_doc_cust_code" و مافيه داعي لعمل التحديث

اقراء التعديلات في المشاركه السابقه

اخوي عند ظهور خطا في vb قم بعمل التالي: اذهب الى الكود و اعمل عل ايقافه من زر ايقاف ثم اذهب الى ادوات ثم References و ابحث عن عنصر يبدا بكلمه missing ثم قم بازاله علامه الصح ثم اوكي اقفل صفحه vb وقم بتشغيل النموذج

تفضل الموجود هو زر في نموذج المبيعات عند الضغط عليه يظهر نموذج التجار وليس كما قلت انت العكس. S.N_Leather.rar

اخوي كان عندك مشكله في Refrence و انحلت و الكود اشتغل بس انت ايش تبغى تسوي لان التحديث مو هو الحل!!

ياليت توضح اسماء النماذج باي نموذج تبتدأ و اي واحد تنهي؟؟ هل عند اضافه عميل الى نموذج المبيعات و الضغط على زر اضافه عميل يفتح نموذج اسمه التجار!! او ماذا

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

اخوي انسخ الكود كما هو و ضعه هنا

مشكور اخوي Dream _Work بس حبيت الفت نظرك في الجدول المسمى التسديدات ان التاريخ الموجود هل هو تاريخ استحقاق الدفع او تاريخ الدفع!! لو اخذنا التاريخ على سبيل ان الزبون دفع فان جميع الدفعات سوف تظهر قبل تاريخ اليوم. و اذا اخذنا التاريخ على اساس انه تاريخ استحقاق الدفع فان النتيجه تكون "صفر" بحيث ان جميع سجلات الدفع تحتوي على قيم. لكن اذا كان التاريخ تاريخ استحقاق و لايوجد اي تسديد او دفع فان الاستعلام سوف يظهر السجلات التي لا تحتوي على دفعات او سداد و قبل تاريخ هذا اليوم . في المرفق حل حسب ما فهمته(حسب تاريخ الاستحقاق) مع عرض اخر تاريخ تم السداد فيه. _____.rar

اخوي في حدث on Timer ضع الكود التالي: Me.Refresh وبعده في خانه Timer Interval اكتب الرقم 10000 بنسبه لعرض بيانات جديده ممكن تستخدم me.requery

اخوي ياليت توضح وترفق قاعد البيانات الصراحه مو مفهوم اي شي في الاسئله!!!!

اختي اذا عندك new code موجود فيها ID ياليت ترفقينها حتى لو كانت اكسل شيت هذي ضروريه لعمل unmatched query

اخوي طارق في حدث un load ضع الكود التالي: If Len(Trim$(Me![Code] & vbNullString)) = 0 Then MsgBox (" لا يمكنك غلق النموذج الا عند ادخالك الكود الخاص بالالة ") Me.Code.SetFocus Cancel = True ElseIf IsNull(Me.MachName) Then MsgBox (" لا يمكنك غلق النموذج الا عند ادخالك الاسم الخاص بالالة ") Me.MachName.SetFocus Cancel = True End If طبعا هو اسم مربع نص "كود الاله" و [MachName] هو اسم مربع نص "اسم الاله" غيرها حسب اسماء مربعات النص الي عندك.

اختي اذا عندك جدول ال new codes بحقل ID ياليت ترفقينه. لان فيه كثير حقول متكرره في الجدولين ونفس البيانات والحل الوحيد هو ربط الجدولين با ID وعلى فكره البيانات في الجدولين ناقصه!! لو تشوفين ملفات الاكسل الموجوده في المشاركه الاولى رايحه تحصلين في ملف Sheet1 11000 سجل و في ملف الاكسس 10999 وكذالك في ملف new codes

تفضلي شوفي الاستعلامات، فيه استعلام اسمه unmatched problem.rar

اختي هل الملف اكسس 2007??? لان مو راضي يشتغل!!!!!!!!! الفكره واضحه الحين

اخوي ارفق قاعده البيانات

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

اخوي مافيه احد يقدر يلعب بالمرفقات!! و ما فيه اي ملفات ارفقت في المشاركتين.

جزاك الله خير

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

اخوي سؤالك غير مفهوم !!! هل تقصد كيفيه حساب الرصيد؟؟؟ اذا نعم ، هذا عن طريق الاستعلام. ارجو التوضيح مع ارفاق قاعده البيانات.

تفضل db1.rar

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

اخوي هذا ملف اكسل انت تبي تعملها بالكسل او اكسس???