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

السلام عليكم 🙂 كنت اتصفح الانترنت واقرأ عن مستقبل الاكسس ، فوجدت احد محترفي الاكسس عنده صفحة جديدة في اليوتيوب ، وبها رأيت انه هناك محترف آخر عمل ربط بين بيانات الاكسس المحلية ، وكود/شفرة جافا على الانترنت ، وهذه الشفرة متخصصه في عمل رسومات بيانية في صفحات الانترنت ، وهنا تفاصيل الشفرة https://www.chartjs.org/docs/latest/samples/information.html قمت بإنزال الملف واسمه Better-Access_Charts.accdb من موقع https://github.com/team-moeller/better-access-charts وهذه احد الرسومات البيانية اللي فيه: . ونتحكم بنوع الرسومات وتفاصيل المحاور وووو ، من النموذج التالي ، ثم ننقر على الزر الذي عليه السهم الاحمر ، ليعمل تغيير في نموذج الرسومات البيانية . (وهناك ملف آخر هنا https://github.com/team-moeller/better-access-pivottable جميل ان يتم الاطلاع عليه ايضا). تواصلت مع اخي الاستاذ @أبو إبراهيم الغامدي لكي ينظر في الملف وطريقة عمله ، فما شاء الله عليه امدّني بملف اسمه Web Charts.zip وهو برنامج مختصر ومبسّط للملف الآخر ، وهذه احدى صور رسومات البيانات منه: . واتمنى على اخي أبو إبراهيم ان يجعل برنامجه يقبل تغيير انواع الرسومات البيانية كما في البرنامج الآخر 🙂 ميزات الموضوع: فتح باب جديد لطريقة عمل/عرض الاكسس وربطه مع ميزات حديثة من الانترنت . عيوب الموضوع: يجب ان تعرف مكان وجود هذه الشفرات في الانترنت ، وتعرف كيفية استعمالها ، وتتعلم كيف تربطها بالاكسس ، لا تتوقع الحصول على مساعدة من منتدى الاكسس لحل مشكلتك ، فنحن لا نفهم لغة الجافا او HTML . جعفر Better-Access_Charts.accdb.zip Web Charts.zip

Sub Test() Dim ws As Worksheet, sh As Worksheet, r As Long, m As Long, n As Long Application.ScreenUpdating = False Set ws = Sheet1: Set sh = Sheet4 m = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1 n = m For r = 5 To ws.Cells(Rows.Count, 1).End(xlUp).Row If ws.Cells(r, 1).Value <> "" And ws.Cells(r, 1).Value <> ws.Range("A4").Value Then sh.Cells(m, 1).Resize(, 12).Value = ws.Cells(r, 1).Resize(, 12).Value m = m + 1 End If Next r sh.Range("A" & n - 2 & ":L" & n - 1).Copy sh.Range("A" & n & ":L" & m - 1).PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

Sub Rename_Worksheets() Dim i As Long For i = 1 To Sheets.Count If Worksheets(i).Name <> "Sheet2" And Worksheets(i).Name <> "Sheet4" Then If Worksheets(i).Range("N14").Value <> "" Then Sheets(i).Name = Worksheets(i).Range("n14").Value End If End If Next i End Sub

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة بالتنسيق الشرطى =C$2=$G3 تنسيق 1شرطي.xlsx

تفضل هذه الطريقة انشئ وحدة نمطينة جديدة Module و الصق الكود التالي Public Function RNumber(etText As Integer) As Integer Dim i As Integer, NewNumber As Integer For i = 1 To Nz(DMax("م", "tbl_BB"), 1) If Nz(DLookup("م", "tbl_BB", "[م]=" & i), 0) = 0 Then NewNumber = i Debug.Print NewNumber Exit Function Else NewNumber = Nz(DMax("م", "tbl_BB"), 0) + 1 End If Next i RNumber = NewNumber End Function و في ازرار الحفظ ضع التالي txt = RNumber(txt) سيتم جلب الرقم الشاغر و في حال عدم وجود رقم شاغر سيتم استكمال الترقيم التلقائي

وعليكم السلام 🙂 هذه الخيارات ، بالاضافة الى خيارات اخرى ، يأخذها الاكسس من الطابعة ، فلا يمكن ان تضيف شيء غير موجود. فإذا الطابعة لا تطبع A3 وهو ضعف حجم A4 ، فلن تجد هذا الاختيار. يمكنك ان تضيف طابعة بها خيار A3 ، او تستخدم احد الطابعات الافتراضية التالية: Microsoft XPS Document Writer Microsoft Print to PDF او طابعة افتراضية مجانية لطباعة pdf مثل: https://www.dopdf.com/ او طابعة افتراضية لطباعة الصور. جعفر

تفضل جرب ترحيل موظف .... ثم استعادته مرة اخرى .... واعلمنا بالنتيجة .... Database26.rar

جزاكم الله كل خير أساتذتي @مستفيد69. @ابو البشر في البداية كان الملف عند أخي المستفيد وأخي ابو البشر، يغير كوداللون وعند عكسه يدوياً يظهر اللون المطلوب قمت برمجياً بعكس اللون، لكن المشكلة لم تحل عند اخي المستفيد، إلا مع ألوان RGB، بل وظهرت مشكلة جديدة، أن الألوان الرئيسيّة وحدها تظهر دون غيرها مع وسوم HTML أي انتهت مشكلة انعكاس الألوان وأصبحت محدودية الألوان ... وحصراً مع HTML ... يبدو أن هذه المحطة الأخيرة في الرحلة المثيرة أخوتي أتمنى لكم التوفيق🌷 والحمد لله رب العالمين والحمد لله رب العالمين

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

السلام عليكم ورحمة الله وبركاته وبها نبدأ ادخال البيانات مكتوبه بطريقه خاطئه جرب هذا التعديل بصمة.xlsx

يكفي حبل وسطل

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

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

انا اسف انا فعلا نسيت وايضا نسيت ان المطلوب ان تكون القاعدة بتنسيق 2003 هذه المرحلة الثانية من التعديل لم اهتم بموضوع العمل على الامتدادات حتى الان باقى نقطتان فقط وان شاء الله يكتمل العمل كما ينبغى 1- امكانية العمل على الامتدادات المختلفة للملفات الصوتية 2- تطبيق قاعدة برايل مع كل حرف اثناء نطق الحرف عند الضغط عليه بالفأرة فعلا انا تعبت جدا ولن استطع اكمال العمل اليوم ان شاء الله ان كان فى العمر بقية وعندما يأذن ربى سبحانه وتعالى اكمل ما بقى فى اقرب وقت مممكن المرفق فقط يقوم بنطق الأحرف بدأ من الألف وحتى حرف الـذال لم اكمل الباقى طبعا يتم نطق الاحرف عند الضغط بالماوس على كل حرف واتمنى ان سمح وقت اساتذتى الكرام و والدى الحبيب واستاذى القدير ومعلملى الجليل الاستاذ @jjafferr و والدى الحبيب واستاذى القدير ومعلملى الجليل الاستاذ@ابوخليل واستاذى القدير ومعلمى الجليل الاستاذ @Hamdi Edlbi-khalf واستاذى القدير ومعلمى الجليل @د.كاف يار النظر الى المرفق لابداء الرأى فى الافكار وتقديم النصح والارشاد ليكتمل العمل ان شاء الله بأفضل نتيجة مع اطيب الامانى بتجربة ممتعة وفريدة من نوعها Braille.zip

جزاكم الله كل خير أستاذ/ Ali Mohamed Ali وجعله في ميزان حسناتكم وهذا هو المطلوب الذي كنت أبحث عنه ،،، وشكراً علي سرعة الرد

بصراحة ليست لي معلومات عن هذا الموضوع اخي ابو الحسن ماهو الهدف من رفع الملف على كوكل درايف؟ شكرا لاخي واستاذي @ابوخليل على هذا الموضوع

شكرا لمداخلتك اخوي عامر ولهذه المعلومة الجيدة ولكني اريد العمل يتم من خلال كود في ملف املكه اعتقد الامر محلول بما يشابه هذه الخدمة لو استخدمت جهاز الكمبيوتر وسيط بحيث اطبق فكرة ابو جودي ، بحيث يتم انزال الملف في مجلد المزامنة مع قوقل درايف ولكني ابحث عن حل اكثر احترافية النسخ من الموقع والضغط ايضا والتنزيل مقدور عليه العائق الوحيد والذي ابحث له عن حل هو رفع ملف ( من الكمبيوتر _ كتجربة ) على سحابية مجانية معروفة السؤال الآن لمن مر بالتجربة : هل دروب بوكس متاح ام هو مثل قوقل درايف في الحماية .

وانا سعيد بهذه المحطة الأخيرة استاذي الفاضل @Hamdi Edlbi-khalf فبارك الله فيك وفي الاستاذين الفاضلين @أبو إبراهيم الغامدي @jjafferr وانا سأعتمد المرفق (FinalColorizing) وساقوم بعكس الألوان يدويا فهذا اسهل بالنسبة لي ولا مشكلة في ذلك لان وضع المعايير واختيار الألوان يتم مرة واحدة ولك أيضا أخي الفاضل ولعل تعداد هذه (الرحلات المثيرة ) مع الأيام تجعل كتابة الأكواد عندك اسهل من الخوارزميات التي تعشقها 😄 وأما عن تغير النص والرموز التي كانت تظهر فيه أحيانا فقد اعدت إجراء بعض التجارب والنتيجة ان هذه الرموز ظهرت معي في حالتين القاسم المشترك بينهما ان النص في الجدول نص عادي وفي النموذج نص منسق 1- عند تغيير لون الخط من خلال شاشة وخيارات الخط من اكسس نفسه، جعلت كلمة ((تحفة الفقهاء)) بالاحمر وعند الرجوع للجدول وجدت النص فيه هكذا 2- عند استخدام المرفق الأول (Colorizing) فعند تغيير الألوان بالكود والرجوع للجدول فان النص يكون فيه هكذا اما عند استخدام المرفق (FinalColorizing) وما بعده فلم الاحظ تغييرا على النص في الجدول سواء كان نصا عاديا أو منسقا وحاولت ان أستنتج السبب من خلال النظر في الكودين وما هو التغيير في المرفق الثاني وما بعده عن الأول الذي جعل النص الأصلي في امان فلم اعرف فان كان السبب يمكن لمبتدئ مثلي ان يستوعبه فانتظر من الأساتذة الافاضل التنبيه عليه فقد تكون معلومة مفيدة لي بما انني انوي التعامل في ملفاتي مع النص المنسق والحمد لله رب العالمين

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

حركة جميلة استاذ @Barna لكن كيف اخفيت ال listbox

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

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

تفضل طريقتين داخل الملف الدرجه.accdb

تفضل هذه الفكرة الأحرف المتاحة فقط أول 11 حرف كذلك ارفقت لك المقطع الصوتي الكامل في حال ناسبك الصوت المرفق لتحميل مقطع الصوت كامل اضغط هنا 1266614553_.zip

السلام عليكم .. استاذنا الفاضل ابو خليل .. مررت بخدمة مشابهة واستخدمتها بنفسى عن طريق هذا الموقع https://www.multcloud.com/ الموقع يقوم بمزامنة كل حساباتك فى اغلب المواقع السحابية ودمجها على حسابك ويمكن تشبيهه بMy Computer وبه مجموعة من الدرايفرات .. وفى النسخة المدفوعة من الحساب يمكنه عمل نسخ بأوقات معينة من سحابة الى سحابة دون تدخل منك ودون الدخول الى الموقع حتى .. وذلك على حد تذكرى للموضوع .. عسى ان يكون نافعاً لك .

جزيت خيرا ابا حسان لا اريد ان افتح قوقل درايف ثم ارفع الملف يدويا

المرفق يعمل زي اللوز ...... وا اسفي على @مستفيد69 بقية وحيدا وفريدا ... هههه اشكرك استاذي الفاضل @Hamdi Edlbi-khalf على جهدك وتعبك .... كتب الله اجرك ..

السلام عليكم شكرا @lionheart و جزاك الله كل خير في ميزان حسناتك

أستاذي الفاضل Hamdi Edlbi-khalf معذرة على التاخر في الرد فقد كنت (خارج التغطية 😁) جربت المرفق على الجهازين والنتيجة نفسها لا تظهر الالوان المختارة الا اذا كانت احد الالوان الاساسية واعني بها كما ذكرت في تعليق سابق التي رموزها فقط (إفات) أو (أصفار) أما ما سواها فتظهر في النص على شكل احد تلك الالوان الاساسية وكان البرنامج يستبدل اللون المختار باقرب الالوان الاساسية له إما احمر او أزرق او اسود .. وهذه المرة ايضا فان الالوان المختارة تظهر بالشكل المطلوب في نموذج (StyleColor) واغتنمت فرصة وجود الجهاز الثالث الذي عليه اكسس (365) واجهة إنجليزية واعدت عليه تجربة كل الملفات من الملف الاول الى هذا الملف والنتيجة نفسها !!!!

بصمة.xlsxغير تنسيق الخلية ل Time

اذا طريقة اخي احمد لم تعطك النتيجة الصحيحة ، جرب هذا الكود: iif(len([tmmg1] & "")=0,0,[tmmg1]) + iif(len([tmmg] & "")=0,0,[tmmg]) جعفر

فكرة احترافية رائعة متكاملة ولا اجمل كبرنامج يومي او اسبوعي ولكن ان اراده برنامج مالي دائم فيلزم الاستغناء عن التحديث وابقاء الاموال الواردة كما هي

السلام عليكم أخوتي وعلى الأخص الأساتذة @مستفيد69 @ابو البشر جربوا الملف المرفق FinalcolorisingARBFinalPluse.accdb

السلام عليكم ورحمة الله وبركاته الاساتذة الافاضل الكرام اعضاء وزوار المنتدى في محاولة لي لفهم بعض امور الاكسيل حاولت وعلى استحياء وبفضل الله ثم بجهود الاخوة الافاضل تم عمل قائمة فصل 1 -شيت بسيط جدا 2 - بيانات حوالي 6000 تلميذ مقسمين بنون وبنات 3 - قائمة الفصل تتسع ل80 تلميذ 40 بنون و 40 بنات 4 - 10 فصول للصف الواحد الشيت محمي ولكن بدون كلمة سر والحماية خوفا من مسح محتويات خلية فقط فكل ما عليك ان اردت التعديل الضغط فقط على الغاء الحماية واخيرا لا تنسونا من صالح دعائكم قوائم الفصول.zip

In Data tab select data validation and select Custom and finally insert a formula like that =OR((A1="A"),AND(A1>=0,A1<=70)) Change the A letter with the absent character in arabic