sandanet

أخي الكريم حمدي الظابط تحية طيبة وبعد ... انا انتظر منك النسخة الكاملة ان شاء الله بعد الانتهاء منها وانا ان شاء الله احاول المساعدة قدر الامكان بالنسبة للمشكلة المتعلقة بنموذج me-2 فقم بتغيير الجزء الموجود في كود حدث عند الفتح الى هذا الكود Do While tc.EOF = False For L = 3 To 100 Step 2 Select Case tc.Fields(L) = F!الصف فقط غير الرقم 81 الى 100 وان شاء الله تنحل مشكلة يوم الخميس

بصراحة البرنامج جميل واعجبني بشدة واتمنى ان احصل على نسخة كاملة من البرنامج اذا أمكن وتحياتي للمبرمج الذي يبدو انه محترف جداً

هل طرح ذلك السؤال على الاستاذ @منتصر الانسي من قبل؟

طلب عمل ماذا؟؟ عمل سحر ام شعوذة ام ماذا ههههه .. يرجى تعديل العنوان

الله يسلمك ويعافيك

أخي الكريم انت تضع كود غير معروف الوظيفة وبدون اي مثال وكما تعلم ان الاكسل يتعامل مع خلايا مثل h2 و e2 وغيرها لذلك حتى وان تم تحويلها للأكسس فلن تحصل على كود صحيح مالم يكن لدينا قيم لبناء الكود عليها او حتى على الأقل معرفة الوظيفة المطلوبة من الكود لذلك احتمال ضعيف جداً انك تجد حل لما تفضلت به بهذا الشكل على العموم انا قمت بكتابة الكود بهذا الشكل ولا اعلم ما اذا كان صحيحاً ام لا If (d2 = g2 And d2 = 1 And f2 = 1) Then text1 = 0 Else: If (d2 = g2 And d2 = 1 And f2 = 2) Then text1 = h2 * e2 * 25 / 100 Else: If (d2 = g2 And d2 = 1 And f2 = 3) Then text1 = h2 * e2 * 50 / 100 Else: If (d2 = g2 And d2 = 1 And f2 = 4) Then text1 h2 * e2 * 1 Else: If (d2 = g2 And d2 = 1 And f2 >= 5) Then text1 = h2 * e2 * 2 Else: If (d2 = g2 And d2 = 2 And f2 = 1) Then text1 = 0 Else: If (d2 = g2 And d2 = 2 And f2 = 2) Then text1 = h2 * e2 * 75 / 100 Else: If (d2 = g2 And d2 = 2 And f2 >= 3) Then text1 = h2 * e2 * 1 تحياتي

تفضل sa.accdb

يمكنك عمل ذلك لكن عن طريق تخزين قيمة x في الريجستري في الويندوز وفي كل مرة يتم فتح البرنامج على نفس الجهاز يتم قراءة الرجيستري اولاً فإن كانت القيمة صحيحة يكمل فتح البرنامج وهكذا كما يمكنك تخزين قيمة x في جدول البرنامج نفسه وتقوم بتشفيرها حتى لايتم معرفة قيمتها وهذه الطريقة سوف تجعل البرنامج يعمل اينما كان وعلى اي جهاز مادامت قيمة x صحيحة أيهما تفضل؟

اخي الكريم فقط عليك بتغيير مصدر السجلات بهذا الكود Me.RecordSource = "الجدول الجديد"

اخي الكريم حلبي لم أفهم منك عن أي ثغرة تتحدث فالموضوع بسيط جداً "اي صورة مخزنة خارج البرنامج بالتأكيد لاتؤثر على حجم البرنامج"

أخي سلمان ما فائدة جعل المتغير x ثابت على طول حتى وان اغلقنا قاعدة البيانات؟ في الواقع هذا لايخدم البرنامج وذلك لانه لو تم حفظ قيمة x = true بشكل دائم حتى بعد إغلاق البرنامج فهذا يعني ان البرنامج مفعل وسيتم فتحه بشكل دائم حتى لو كان كود التفعيل غير صحيح وهذا لانرغب به نحن هدفنا هو جعل البرنامج يتحقق من كود التفعيل اولاً في كل مرة يتم فتح البرنامج فإن كان صحيحاً يضع x = true والا فإن x = false وان تخزن قيمة x في الذاكرة طالما برنامجنا مفتوح لذلك قمنا بتعرف x كمتغير عام (اي طالما البرنامج شغال) كذلك اراد الاخ كاسر ان لايتم فتح اي نموذج من نماذج البرنامج الا بعد التحقق من صحة تسجيل البرنامج وهذا يتم عن طريق x = true ايضاً فيكفي ان نضع if في حدث عند الفتح لأي نموذج لنتحقق من قيمة x التي في الذاكرة فإذا كانت true افتح النموذج بشكل طبيعي والا قم بإظهار رسالة ان البرنامج غير مسجل ومن ثم افتح نموذج التسجيل تحياتي

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

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

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

ماشاء الله على هذا الابداع .. سؤال: هل توجد نسخة portable من برنامج ImagePrinter Pro ؟

شكراً لك على التوضيح وبارك الله فيك

ابداع جميل جداً.. ياريت تستمروا على هذا المنوال كل مدة نرى شرح لاحدى الدوال الغير معروفة لان ذلك سوف يزيد المنتدى ثراء

تفضل مرفقك بعد التعديل .. ملاحظة: قمت بوضع كود التحديث قبل امر فتح استعلام الحذف وذلك لان التحديث يجب ان يتم على الجدول main بناءاً على تساوي الرقم العام وفي الجدولين بعدذلك يتم تنفيذ استعلام الحذف من الجدول alhaq فلو تم تنفيذ استعلام الحذف اولاً فإن كود التحديث لن يستطيع مطابقة الرقم العام في الجدولين ... لذلك يجب ان ينفذ كود التحديث قبل كود الحذف testg.mdb

رائع جداً وفكرة ممتازة لكن لو تكرمت بشرح بسيط عن كيفية الاستفادة من تلك الفكرة في برامجنا .. ماهي الحالات التي قد نحتاج فيها الى استعمال تلك الفكرة؟

ممكن ترفق لنا مثال استاذ صالح

ممكن ترفق مثال لكيفية الاستفادة من تلك الاكواد

استاذ محمد سلامة اذا وجدت الحل ارجو منك وضعه هنا ليستفيد منه الجميع تحياتي

اجعل تنسيق Avrg رقم عام واجعل المنازل العشرية تلقائي

أخي الكريم استخدم كود update بعد الحذف كالتالي CurrentDb.Execute "update Table1 set Table1.Value1 = 1 WHERE ColumnName = '" & Me!Text1 & "';" الكود السابق معناه حدث الجدول Table1 ضع القيمة 1 في حقل Value1 بشرط ان تكون القيمة الموجودة في الحقل ColumnName تساوي قيمة مربع النص Text1 الموجود في النموذج وهذا مثال مرفق يوضح ذلك.. تحياتي example.mdb

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