أبو عبدالله الحلوانى

السلام عليكم جرب هذا ووافنا بالنائج رسالة بتعدي الخصم.accdb

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

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

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

للرفع

نعم يمكن ولكن ما الحاجة الى ذلك؟! طالما يمكننا الاختصار بحجم النماذج فلما نكثر منها لعدم تضخيم حجم قاعدة البيانات بلا طائل.

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

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

up

تفضل جرب هذا ووافنا بالنتائج test30 أصل.rar

أرجو أن يكون هذا التعديل مناسبا لما أردت تفضل ووافنا بالنتائج test301.rar

السلام عليكم ورحمة الله وبركاته الفكرة كما بعنوان الموضوع أحتاج للمرور على سجلات الجدول كلها لمقارنة فترة بتاريخ محدد الاشكالية الآن معى فى امكانية طرح السجل السابق والذى تم المرور عليه قريبا من السجل الحالى داخل الدوارة مثال: البيانات بالسجل هى: (والتى سنقارنها بتاريخ اليوم مثلا) 1- 13/5/2015 2- 25/6/2016 3- 1/7/2018 مهمة الدوارة الآن هى مقارنة تاريخ اليوم بكل تاريخ من سجلات التاريخ مع طرح قيمة المقارنة الحالية من قيمة المقارنة السابقة هل من فكرة للمساعدة وجزاكم الله خيرا دا الموديل اللى بحاول انشاءه وبحاجة للعديل Public Function Clcisthlk(EndToreedDate As Date) As Double Set sql = CurrentDb.OpenRecordset("EsthlakPricesTbl", dbOpenDynaset) sql.MoveLast: sql.MoveFirst Do Until sql.EOF If sql!UntlMnth = Null Then enddt = DateSerial(Year(Date), Month(Date) + 1, 0) pris = sql!Price srf = sql!srf Else enddt = sql!UntlMnth pris = sql!Price srf = sql!srf End If ' If EndToreedDate < enddt Then mnss = DateDiff("m", EndToreedDate, enddt) -mnss Clcisthlk = (mnss * pris) End Function

وفيكم بارك الله وجزاك الله خيرا ولا ننسى أن ندعو أيضا لصاحب الموضوع الأصلى - هداه الله للاسلام , وجزاه بصنيعه خيرا -

السلام عليكم أولا أعتذر عن كتابة الكلمة بالانكليزية ولكن فعلا لا أدرى ما ترجمتها ولكن وصفها: هى رسالة صيرة مؤقتة تظهر للنبيه ثم تختفى كما بالصورة وللأمانة الموضوع ليس موضوعى ولا يمت لى بصلة ولكنى وجدته أثناء بحثى عن هذه الرسالة المؤقتة فوجدته قيم جدا وبه ما أردت وزيادة أضعاف أضعاف لذى أحببت مشاركته مع الأحبة لن أطيل سأترك لكم المرفق للفحص والمحص والتنقيب عن الدرر هذا المرفق وهاكم رابط الموضوع الأصلى https://stackoverflow.com/questions/39224308/non-blocking-toast-like-notifications-for-microsoft-access-vba ورابط التحديث https://github.com/krishKM/Modern-UI-Components-for-VBA ملاحظة بعد فك الضط يجب وضع ملف ال Dll فى نفس الفولدر الحاوى للبرنامج ومرفق نسختين من الملف للاصدارين 32 و 64 بت أرجو الالزام بشروط صاحب المرفق التى اشترطها لاستخدام مرفقه كما بالموضوع المشار اليه. تمنياتى بالتوفيق. ToastDllKrach.rar

السلام عليكم لحل المشكلة الى ظهر معك اضف لك جملة Ptrsafeبعد كل كلمة Declare ليصبح السطر مكملا هكذا Public Declare PtrSafe Function وان ارد الزبادة بأن تترك الكود ليعمل على النظامين 32 و 64 بت فضع الكود بهذا الشكل #If VBA7 Then ' this for 64 bit sstem Public Declare PtrSafe Function () #Else ' this for 32 bit sstem Public Declare Function () #End If بالوفيق

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

وبارك لنا فى علمكم وأمدكم بالصحة والعافية حاك بصدرى شىء لموقف مر بى بأحد الموضوعات - ولكن كلامكم أثلج صدورنا وجزاكم الله خيرا

السلام عليكم أرجو الاطلاع على هذه الموضوعات لعلك تفد منها شيئا ان شاء الله. https://www.google.com/url?q=https://www.officena.net/ib/topic/61106-%D9%87%D8%AF%D9%8A%D8%A9-%D9%85%D9%86-%D8%A7%D9%84%D9%8A%D9%85%D9%8A%D9%86-%D8%A7%D9%84%D9%89-%D8%A7%D9%84%D9%8A%D8%B3%D8%A7%D8%B1%D8%8C-%D9%85%D8%B1%D8%A8%D8%B9-%D8%A7%D9%84%D9%82%D8%A7%D8%A6%D9%85%D8%A9-listbox-%D9%88%D8%A7%D9%84%D8%B4%D8%AC%D8%B1%D8%A9-treeview/&sa=U&ved=0ahUKEwjXr87fxs7aAhWohqYKHUryCxUQFggEMAA&client=internal-uds-cse&cx=partner-pub-4958585055085854:7791406915&usg=AOvVaw2wiVLbwG6UYHvqUmV0y8hY 2- https://www.google.com/url?q=https://www.officena.net/ib/topic/60781-%D8%AA%D8%B9%D8%AF%D9%8A%D9%84-%D8%B9%D9%84%D9%89-%D8%A7%D9%84%D8%B4%D8%AC%D8%B1%D8%A9-treeview/%3Fpage%3D2&sa=U&ved=0ahUKEwjXr87fxs7aAhWohqYKHUryCxUQFggGMAE&client=internal-uds-cse&cx=partner-pub-4958585055085854:7791406915&usg=AOvVaw0xGwvCiLW25LCHGIUTzQW_ 3- https://www.google.com/url?q=https://www.officena.net/ib/topic/62038-%D9%86%D9%82%D9%84-%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA-%D9%85%D9%86-treeview-%D8%A5%D9%84%D9%89-text-box/&sa=U&ved=0ahUKEwjXr87fxs7aAhWohqYKHUryCxUQFggJMAI&client=internal-uds-cse&cx=partner-pub-4958585055085854:7791406915&usg=AOvVaw22v4ZDnk1-QB6EnF3QILfr 4- https://www.google.com/url?q=https://officena.net/ib/topic/62314-%D9%87%D9%84-%D9%8A%D9%85%D9%83%D9%86-%D8%AA%D8%B9%D8%AF%D9%8A%D9%84-%D9%86%D9%88%D8%B9-%D8%A7%D9%84%D8%AE%D8%B7-%D9%81%D9%8A-%D8%A7%D9%84%D8%B4%D8%AC%D8%B1%D8%A9-tree-view/&sa=U&ved=0ahUKEwjXr87fxs7aAhWohqYKHUryCxUQFggUMAc&client=internal-uds-cse&cx=partner-pub-4958585055085854:7791406915&usg=AOvVaw3i5I-PXKXm6OkxVRuxJQkj 5- http://arabteam2000-forum.com/index.php?/topic/296371-مشكلة-عند-فتح-النموذج-واجهة-مستخدم-على-شكل-شجرة/&do=findComment&comment=1408796 و لكنها لا تعمل مع افيس 2007 و تؤدي إلى تعطيل الماكرو الموجود يبدو أن المشكلة لديك باضافة المكتبة الخاصة بالتعامل مع الترى فيو - وان أردت ارفاق مثالا يحوى المشكلة للتعديل عليه فلا بأس

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

وعليكم السلام ورحمة الله وبركاته لم يعمل المرفق لدى ولكن ان كنت تعنى عدد العلامات فبامكانك استخدام دالة العد "Dcount" *أو حاول أن ترفق لنا المثال بعد ضغطه بصيغة أخرى

هذا صحيح وجزاك اله خيرا الان الجدول حقوله غير مرتبة وفقا لترتيب التقرير وكذلك يحتوى على حقول غير واجب اظهارها بالتقرير سنقوم مبدأيا بعمل استعلام , أو سنكتفى بالاستعلام الموجود بمصدر بيانات التقرير ولكن مع اعادة الترتيب لحقول الاستعلام سأجرب هذا وأوافيكم بالنتائج ولكن نحن بانتظار الفكرة الأصعب - بل أقصد الأروع -

وعليكم السلام أستاذنا ومعلمنا بالتأكيد سننتظر وانى لأستشرف عملا رائعا من روائعكم سيكتب له ميلادا قريبا ولكن وأعتذر من هذا الاستعجال , هلا لمحتم لنا بفكرة الحل البسيط مبدأيا لأشتغل عليها (حتى لا ننتظر وأيدينا فارغة)

أرجو أن يوافق هذا مرادك if a = 1 then b = 2 elseif a = 2 then b = 3 elseif a = 3 then b = 4 end if

السلام عليكم هذا تطبيق بسيط لفكرة أستاذنا أبو آدم أرجو أن تجد مرادك هنالك Task For One Time.rar

السلام عليكم طبعا الكود سنجعله فى الفورم المرتبط بالجدول وسنكتب هذه الجملة بمحرر الأكواد فى حدث بعد التحديث للحقل الأول ولنفرض أن الحقل الأول اسمه a وأن الحقل الثانى اسمه B فيصبح الكود هكذا B = iif(a = 1, 3, 0)