Foksh

تمام .. سأجربه حال وصولي الى البيت . لأن النسخة التي ارفقت صورتها لجهازي في البيت

الأفضل في هذه الحالة ولضمان عدم تبعثر نسخة مولد أكواد التفعيل ، أن تكون جميعها في نموذج واحد بحيث يتم تمرير مفتاح التشفير وتوليد كود التفعيل حسب مفتاح التشفير ، وهذا مثال للفكرة :- حيث في الجزء 1 :- يتم اختيار اسم المشروع فقط . في الجزء 2 :- اختيار مدة التفعيل . في الجزء 3 :- بصمة أو معرف العميل . في الجزء 4 :- رمز التفعيل الخاص بالبرنامج وبرمز العميل . * طبعاً هذا على افتراض أن اسلوب التشفير ثابت عند المبرمج ، ولكن كلمة أو مفتاح التشفير في المختلف .

النسخة 64 وعند تعديل قيمة الجداول ، تظهر الرسالة

ما لقيت يافطة ممنوع مؤكد لا شك في أن الكثير من الحمايات بالنسخة الغير مفعلة لا تعتمد على الوقت ، فتعتبره غير موجود بغض النظر عن وقت تشغيل البرنامج .

النتيجة عندما تم فتح النموذج لأول مرة ، كان التاريخ 10-12-2025 وبعد النقر على الزر ، تحدث الليبل إلى تاريخ اليوم كما في الصورة :-

بعد الاطلاع على الملف المرفق المفتوح ، اعتقد أن اعتماد التاريخ والوقت كقيمة نصية هو ما يسبب هذه المشكلة .. فعند تعديل الدالة في المديول بهذا الشكل للتجربة .. Public Function vNow() As Date Dim currentTime As Date, currentdate As Date currentTime = Time() currentdate = Date vNow = currentdate + TimeValue(Format(currentTime, "hh:nn:ss")) End Function كانت النتيجة في النموذج :- السبب هو أن هذا الناتج سيكون عبارة عن نص كقيمة = 12/01/2025 14:33:20 اقصد انه ناتج عن الجزء التالي :- i = Format(currentTime, "HH:mm:ss") ii = Format(currentdate, "dd/mm/yyyy") vNow = ii & " " & i

اعتذر عن التأخر بالرد ، ولكن بسبب المباراة انشغلت مع بعض الزبائن في المحل على العموم ، أخشى أن اعطي نفسي كرت أصفر من التجارب حالياً ، لأن النتيجة غير سارة 😅 .. انظر

عندي نسختين أوفيس على كمبيوتري ، واحدة 2010 = 32 والثانية 2019 = 64

مستحي أعلّق 😇

لا اعلم صدقاً ..

للأسف انا لا استخدم أي برنامج باللغة العربية 😅 أكيد عندي النسخة المثبتة على أجهزتي ، وهذا الرابط .

عند فتح الملف على اوفيس 2010 = 32 بت ، تظهر الرسالة التالية :-

وعليكم السلام ورحمة الله وبركاته .. في الحقل نفسه داخل الجدول اجعل :- حجم الحقل = Double التنسيق = Fixed

كلام سليم أستاذ قاسم ، فمن الناحية المنطقية السؤال غير كافي كمعطيات إذا كان هناك جدول يمثل الحركات ( الصادرة و الواردة للأصناف ) . ولكني افترضت من سؤاله دون أن يوضح لنا أي تفاصيل ، أن لديه في جدول المستودع تحديث لأي صنف يتم بيعه أو شراءه ... إلخ . ولذا لم أتطرق إلى الحصر بين تاريخين . لذا إذا كان لديه حقل Balance محدّث دائماً كما تصورت في إجابتي (حقل يمثل الرصيد اللحظي لكل صنف في كل مخزن) فالجملة كافية ، بحيث تستعلم عن ذلك الحقل بشرط ItemID و StoreID . أما إذا لم يكن هناك حقل جاهز للرصيد وبدلاً من ذلك يتم حساب الرصيد من حركات (وارد / صادر ) ، فالجملة غير كافية منطقياً كما تفضلتم ، لأن الرصيد سيعتمد على زمن (حتى أي تاريخ تريد الحساب ؟ الآن أو الحالي ؟ بعد يوم معين مثلاً؟ ... إلخ ) .

وعليكم السلام ورحمة الله وبركاته .. الأصل في طلبك أن تقوم بتحديد اسم الجدول ، وأسماء الحقول فيه ونوعها ( رقمية أم نصية ) . وذكر اسماء مربعات النص في النموذج أيضاً . وستجد الحل الذي تريده . أو استخدم هذا التطبيق للأستاذ @Moosak في هذا الموضوع هنا :- الكاتب الذكي لدوال المجال وأيضاً تستطيع تعديل هذا السطر لما يتناسب مع مسميات حقولك وجدولك ومربعات النص :- =DLookup("Balance","Tbl_Stock","ItemID=" & Nz([ItemID],0) & " AND StoreID=" & Nz([StoreID],0))

بسيطة أخر الكريم .. في حدث بعد التحديث لمربع النص Payment الموجود في النموذج الفرعي Credit_Paper_Payments ، اجعل الحدث = Forms!credit_paper.CheckPaymentState جربه وأخبرني

وعليكم السلام ورحمة الله وبركاته .. من تجاربي لا يمكن عبر التنسيق الشرطي تغيير قيمة الكومبوبوكس فعلاً إلى (مدفوعة) ، ولذا توجهت إلى استخدام الفكرة التالية . استخدمت كود بسيط يقوم بمقام التنسيق الشرطي ، نضعه في النموذج الرئيسي :- Public Sub CheckPaymentState() If Nz(Me.Text63, "") = Nz(Me.Credit_Paper_Payments.Form.Text12, "") Then Me.Credit_Paper_Sub.Form!State = "مدفوعة" Else Me.Credit_Paper_Sub.Form!State = Null End If End Sub ونستدعيه أيضاً من النموذج الرئيسي في حدث في الحالي ، بهذا الشكل :- Private Sub Form_Current() Call CheckPaymentState End Sub طبعاً بما انني اعتمدت على قيمة مربع النص Text63 في النموذج الرئيسي مع قيمة مربع النص Text12 للمجموع في النموذج الفرعي Credit_Paper_Payments ، فاضطررت الى تعيين القيمة 0 له من خلال اضافة الدالة NZ له ليصبح مصدر بياناته = =Nz([Credit_Paper_Payments].[Form]![Text12],0) بدلاً من السابق :- =[Credit_Paper_Payments].[Form]![Text12] وبالتالي ملفك بعد التعديل :- server.zip

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

وعليكم السلام ورحمة الله وبركاته .. استخدم خاصية البحث في المنتدى أخي الكريم ، وستجد مواضيع تحدثت عن هذه الفكرة .. وأحدثها للأستاذ @منتصر الانسي في هذا الموضوع :-

🤨 لم تظهر المشكلة لدي أيضاً ، كما في الصورة المرفقة أعلاه . مع العلم أنه تم تجربة الرفق على إصدارين 2019 و 2010

لم يظهر أي خطأ عند اغلاق النماذج . تم فتحها مراراً وتكراراً واغلاقها ولم يظهر أي خطأ بالنسبة لي .

ومنكم نتعلم ونستفيد 🤗 .. وخطر ببالي أيضاً نقطة صغيرة تتعلق بعدم صلاحية كود التفعيل بعد استخدامه . حاله حال رقم بطاقة التفعيل للجوال مثلاً ، يستعمل لمرة واحدة فقط (One-Time Use) .