ابوحمود

الذي فهمته من سؤالك أنك ترغب في اختيار أحد الأصناف من القائمة ولكن دون أن يتم إدراج سجل جديد في الحقول الباقية والمرتبطة بجدول الأصناف . أزل ارتباط القائمة بجدول الأصناف عن طريق مسح مصدر عنصر التحكم لها ولسعر الوحدة إذا كان له حقل آخر . ولك تحياتي

هل تقصد إخفاء إطار قاعدة البيانات ؟ ولك تحياتي

الأخ القيصر كما قال الأخ 5060 لايمكن حفظ السجلات في الاستعلام . سؤالك إذا كنت فهمته أنك ترغب في عدم حفظ السجلات مباشرة في الجدول فإن كان فهمي صحيح فلماذا ترغب في ذلك ؟ وهل النموذج مبني على الجدول مباشرة أم على استعلام . ولك تحياتي

هذا كود يقوم بالبحث في نموذج توجد فيه الحقول لأنني حقيقة لم أفهم الطريقة التي عملت بها نموذج البحث . المهم في هذا الكود أن الحقول الاسم الأول والاسم الثاني واسم العائلة تكون موجودة على نفس النموذج مع ملاحظة أنني سميت مربع النص الذي يكتب فيه الاسم المراد البحث …

هذا كود بـ DAO يقوم بإعادة ترتيب الرقم إبتداء من رقم واحد : Dim db As Database Dim rst As Recordset Dim Num As Long Set db = Application.CurrentDb Set rst = db.OpenRecordset("اسم الجدول", dbOpenTable) Num = 1 Do Until rst.EOF rst.Edit rst![اسم الحقل] = Num rst…

ملاحظة طيبة ... وفي ظني -ولا أدري عن صحة ذلك لأنني لم أجرب- أنه لايحتاج إلا إذا اختلف الاصدار أو المسار . حاول التجربة مع أحد الأخوة وأفدنا بالنتيجة . بالنسبة للدخول التطويرات مستمرة وسترون في الأيام القادمة إن شاء الله -كلمة إن شاء الله استفدت من طريقة كتابته…

هذا كود لإضافة كافة الأرقام الناقصة مع مقياس للتقدم : Dim عدد_السجلات, I Dim القيمة_المعادة Dim VarReturn As Variant, str As String عدد_السجلات = DMax("[حقل الترقيم التلقائي]", "اسم الجدول") str = "تقدم عملية الإضافة ....." VarReturn = SysCmd(acSysCmdInitMeter…

يمكن بواسطة هذا الكود إضافة الأرقام الناقصة من حقل الترقيم التلقائي بكل سهولة ، مثال : 1 2 4 5 بالكود ضع REC![اسم حقل الترقيم التلقائي]= 3 الأخ فتى الوادي الكود يوضع في حدث عند نقر زر أمر مثلا مع حذف السطر الأول والأخير منه أو عمل استدعاء للدالة . سأحاول معرفة…

الأخ مفرج كود ممتاز والله يعطيك العافية . يجب ملاحظة : 1- أن الكود يحتاج مرجع Micosoft DAO 2- تغيير الحقل المسمى per_id باسم الحقل التلقائي لديك . 3- بإمكانك جعل الترقيم يبدأ من أي رقم فقط غير الرقم بعد : REC!per_id = 0 اجعل بدل الصفر أي رقم آخر . 4- إذا جعلت …

إذا كنت تقصدين في استعلام واحد فهذا غير ممكن أما إذا أردت تشغيلهما بالكود فكالتالي : DoCmd.RunSQL ("عبارة SQL") أنسخي عبارة SQL من الاستعلام ثم الصقيها بين الفاصلتين المزدوجتين . ملاحظة الطريقة السابقة لاتنفع الا مع استعلامات الفعل او ما تسمى استعلامات الحركة …

الأخ الشبح انظر هذا الرابط : http://www.arabteam2000.com/vb/showthread....ht=%D4%D1%D8%ED ولك تحياتي

الأخ عامر مشكور وزادك الله علما علىهذه المعلومات الجديدة . ولك تحياتي

الخطأ الأول : حذفت الدالة ولم تعدها كما قلت لك . الخطأ الثاني : حذفت الأقواس المربعة من أسماء الحقول التي تحوي فراغات مثال : الاسم الاول والصحيح [الاسم الاول] أي اسم لأي كائن يحوي فراغ وتحب أن تستخدمه في VBA لآبد من وضعه بين القوسين المربعين . الخطأ الثالث : ج…

الأخ sari5582 وعليكم السلام ورحمة الله وبركاته اهلا وسهلا بك ومرحبا . بخصوص سؤالك مافهمته أن لديك نموذج يعرض السجلات بطريقة نماذج مستمرة وأن الحقول في هذا النموذج لايعرضها كلها بسبب الكثرة وتريد "اريد عند النقر على احد السجلات عرض بيانات السجل كامله " ماذا تقص…

لم تذكر ماهي المبيعات وماهي المشتريات ولم تقترح أي حقول وجدول حتى نعطيك الرأي . ولك تحياتي

أهلا وسهلا بالأخ تميم وحياك الله . ولك تحياتي

يبدو لي أنك حذفت الدالة المسماة NeatSplit التي ذكرته لك سابقا ، إذا كنت حذفتها فأعدها لأنها ماتزال مطلوبة في الكود . وكلمة جملة متغير من نوع Variant وهي تأخذ السلسلة النصية بعد حذف بن الأولى . ولك تحياتي

1- في حدث نقر زر الأمر المسمى مشاهدة وتعديل في نموذج Q_Formضع الكود التالي بدلا من الموجود حتى لايفتح الاستعلام مع عدم وجود بيانات خلال الفترة المحددة : stDocName = "بيان بمرضى لم تصل تذاكرهم" If DCount("[تاريخ الخروج]", stDocName) <> 0 Then DoCmd.OpenQuery st…

الأخ benga أرسلت الملف على بريدك بعد التعديل . ولك تحياتي

الأخ mohedss الله يعطيك العافية على هذا الشرح الوافي . ولك تحياتي