نجوم المشاركات

تفضل .... del_raseb.mdb

لقد قمت انا باغلاق البرنامج ووجدت التعديلات موجودة ..... عموما اصنع زر للحفظ وضع فيه هذا الكود .. me.Requery

عملت تعديل انظر وقبل وحفظ .... عند التعديل انتقل لحقل اخر حتى يتم التحديث في الجدول

لعمل هذا الأمر يجب وضع التصنيف في قائمة التحقق من الصحة حتى لا تختلف الاختيارات ومصدرها الخلايا في العمود G وتم وضع المعادلة التالية في الخلية E4 =IF(A4=G$1,C4/D4,D4/C4) ويمكنك سحبها لاسفل بالتوفيق معدل سيارات.xlsx

طيب جرب المرفق ..... ‏‏test_kanory.accdb

الكود السابق الحقيقة يعيد المؤشر مرة اخرى لمربع النص المسمى a فلا يترك فرصة لعمل مفتاح الاعلى والاسفل ....

تحتاج مراجعة الاكواد في النموذج مثلا هذا الكود عند الخروج يتعارض مع ما تريده ..... Me.sn.SetFocus DoCmd.GoToRecord , , acNewRec Me.a.SetFocus

واياك يا ابا الحسن

ربما تفيدك هذه المواضيع https://www.officena.net/ib/search/?q=الباركود الاكسل&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق

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

عليكم السلام ورحمة الله وبركاته بالنسبه لحل مشكلة تسجيل المكتبات اعطيك الطريقه اللى انا مجربها واعمل عليها بدون مشاكل اولا انقل ملف المكتبه barcodex.ocx في مجلد System32 وانقل نسخة منه اخرى في مجلد syswow64 بعد ذلك افتح برنامج cmd باستخدام التشغيل كمسؤول واكتب الامر التالي : C:\Windows\system32>regsvr32 barcodex.ocx جرب وراح يعمل معك باذن الله

بعد إذن حبيبي @Ali Mohamed Ali هذه مشكلة معروفة مع دالة vlookup أنها لا تجلب نتائج من عمود يسبق عمود البحث ولكن الحل معها استعمال هذا الشرط لعكس اتجاه البحث فتصبح المعادلة =VLOOKUP(J7,IF({1,0},$C$7:$C$11, $B$7:$B$11),2,FALSE) أو =VLOOKUP(J7,IF({0,1},$B$7:$B$11,$C$7:$C$11),2,FALSE) بالتوفيق

لاضافة الكود كلك يمين على اسم الشيت ثم view code ثم لصق هذا الكود بالتوفيق

جرب المرفق مع ملفاتك جميعها .... حتى نكمل بقية البيانات بعد التأكد من عمل البرنامج مع جميع ملفاتك ....... ‏‏test_kanory.accdb

هذه الميزة جميلة لكنها تنطق عند حدوث تغيير في كل مكان وهذا مذعج جدا الكود يحدد الخلايا التي ينطقها البرنامج مثلا إذا أردنا نطق أي تعديل في خلايا العمود A نستعمل الكود التالي في حدث عن التغيير Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Dim v As Object Set v = CreateObject("SAPI.SpVoice") v.Speak Target.Text Set v = Nothing End If End Sub وأعمل حاليا على كود ينطق باللغة العربية ولكنه يحتاج إلى اتصال بالانترنت إن شاء الله أعرضه فيما بعد بالتوفيق

انا الحقيقة سألت لان احد الملفين لم يعمل معي .... ؟؟

😎

ليس هذا رأيهم ....... حاول ... وحاول ..... بطرق اخرى تلبي طلبك .... هي هذه البرمجة ..... اسلك طريق اخر ....... !!!!!! هذا رأيهم اعتقد ذلك ....

حياك الله اخ هاني واياك .....

ارجو التوضيح اكثر انت وضعت الرقم 41 في A2 ما هي الخلايا التي سيتم جمعها؟ وكم سيكون الناتج؟

فيما اعتقد يحتاج كود برمجي لايقاف Private Sub a_Exit عند التنقل بالاسهم للاعلى والاسفل فأن هناك تناقض بين عمل الكودين

قم بعمل استعلام حذف..وهذا سيحذف الصور من القاعدة فقط

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

بفضل الله الكودات موجدودة قبل التعديل ولكن المشكلة انني فقدت تحديث البيانات الذي استغرق مني ا سبوعا من العمل الشاق بارك الله فيك وشكرا لك لمساعدتي

شكرا لجهودك اخي الكريم حاولت كل الطرق لاسترداد الملف دون جدوى عند فتحه يعطي كما في الصورة

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

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

بعد تحميل الملف من ميديا فاير لا توجد أي رسائل تخبر أن الملف تالف

تم رفض الوصول إلى الملف

جرب هذه الدالة ، ضعها في موديول ثم استخدمها في معادلاتك كما تستخدم الدالة الأصل Round Function myRound(Number As Double) As Double If Number - Fix(Number) = 0.5 Then myRound = Number Else myRound = Round(Number, 0) End If End Function

جرب هذا التعديل emp.accdb

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

يوجد في منتدانا الرائع مشاركات كثيرة في هذا المجال هذه بعضها https://www.officena.net/ib/search/?q=تحويل المعادلات كود&updated_after=any&sortby=relevancy&search_and_or=and إن شاء الله تجد ما تريده فيها

عملت لك كشف حساب للعملاء في حالة تكرر اسم العميل يتم تجميع المبالغ له .. والرجاء الانتباه للحقول الفارغة في النموذج الرئيسي وحولها الى رقم صفر البرنامج(1).accdb

يا أخي الكريم كل هذا افتراض منا لأنك لم ترفع ملفا أو تحدد ما تحتاجه تمام التحديد من يعرف أساسيات البرمجة ب vba يعرف أنه يمكنك تحديد أي عدد من الأعمدة بكتابته بدلا من 10 ويعرف أيضا أنه لإخفاء الصفوف نغير كلمة columns إلى rows ويعرف أيضا أن cells تحتاج إلى رقم الصف ثم رقم العمود وتغيير مكان العداد n هو الذي يحدد اتجاه الإخفاء فلو كانت n في الرقم الثاني قهي تمثل العمود وإذا وضعتها في الرقم الأول فهي تمثل الصف وهذا الكود ربما يفيدك Sub hideblank() For n = 1 To 10 If Cells(1, n) = "" Then Columns(n).Hidden = True Next n For n = 1 To 10 If Cells(n, 1) = "" Then Rows(n).Hidden = True Next n End Sub Sub showblank() Columns("a:j").Hidden = False Rows("1:10").Hidden = False End Sub أرجو أن يكون الأمر قد اتضح وفي الأخير أرجو من الله أن يتقبل تطوعي هذا في حل مشكلات الآخرين سواء قدروا أو لم يقدروا

مشكلة عدم جمع الوقت سببها اختلاف القيمة في الخلية عن قيمة الوقت لذلك يجب إولا إصلاح قيمة الخلية بهذا الاجراء Sub mas() For n = 2 To Cells(Rows.Count, 4).End(xlUp).Row Cells(n, 4).Value = Cells(n, 4).Text Next n End Sub ستجد بعدها خلية المجموع تعمل وللحصول على الإجمالي بالدقائق يمكنك تغيير تنسيق الخلية I2 إلى عام وكتابة المعادلة التالية =INT(SUM(D2:D233)*24*60) بالتوفيق

دعنا نفترض إذا كان الصف الذي يخبر ان العمود فارغ هو الصف الأول وعدد الاعمدة 10 يمكنك استدعاء هذا الكود قبل الطباعة Sub hideblank() For n = 1 To 10 If Cells(1, n) = "" Then Columns(n).Hidden = True Next n End Sub وهذا الكود لإظهار الأعمدة المخفية Sub showblank() For n = 1 To 10 If Columns(n).Hidden Then Columns(n).Hidden = False Next n End Sub بالتوفيق

تفضل هذا ملفك بعد تعديل تنسيق التواريخ والمعادلات حركة تسديد القروض.xlsm

يوجد ولكن باللغة الإنجليزية

تفضل التعديل Microsoft Access قاعدة بيانات جديد.zip

تفضل هذا هو المطلوب بإذن الله معادلة بسيطة جدا يمكنك التوصل إليها ضع في L2 المعادلة التالية ثم اسحب المعادلة لأسفل =J2+K2-SUMIF(A:A,I2,B:B) وتعني جمع الخلية k2 مع J2 مع طرح مجموع المستهلك في نفس التاريخ الموجود في I2 بدالة sumif بالتوفيق

[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

التغير هو القانون الدائم للحياة

مجهود ممتاز بارك الله فى جهودكم

بارك الله فيك

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