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

انشاء الله اكون المطلوب أخ صلاح بلعلا القائمة والمربع.accdb

وعليكم السلام 🙂 اذا اخوي ابو آمنه فهم قصدك صح ، فعندك جوابه 🙂 اما اذا كان فهمي صح ، فهذا جوابي : دائما حاول ان تبتعد عن استعمال الاوامر Dsum , DCount , DLookup ، وكل اوامر ...D في الاستعلام ، فالامر سيكلفك وقت طويل لتخرج نتائج الاستعلام (طُلب مني تعديل على استعلام مشابه ، ولكن فيه حوالي 600 الف سجل ، والتعديل كان مثل ما اقترحت هنا ، واصبح الاستعلام يعمل باضعاف سرعة الاستعلام السابق 🙂 ) ، وبدلا عنها ، اعمل استعلام آخر بالنتائج المطاوبة من Dsum ، واستعمله في استعلامك الاخير ، كما عملت انا هنا : . طبعا يجب ان تقول في الاستعلام الاول ، اي حقل تريد ان تعرف مجاميعه ، وانا لم اضع الحقل ، لأني ما عرفته ، وعلى اساس هذا الحقل ، تعمل ربط بينه وبين الحقل في الجدول ، في الاستعلام الثاني 🙂 جعفر

وعليكم السلام اتفضل ان شاء الله يكون ما تريد شغل استعلام التحديث qry_BirthDate وسيتم تحديث حقل تاريخ الميلاد تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق Birthday.accdb

ويضاً قناة حسونة أكاديمي على الرابط https://www.youtube.com/user/HassounaAcademy/playlists

الله يعطينا وياك طول العمر ونشوف الاكسس على السحابه

سلامه دماغك اخى صالح وطبعا كما اكد اخى ومعلمنا العزيز هى متطلبات سوق العمل التى تحدد اى الطرق وان كنت ناوى فا ارشح لك قناه خالد السعدانى كبدايه الطريق لـ #C وعلى ما اعتقد فى asp.net ولكن فى html ,css,javascript,php فا ارشح قناه الزيرو ويب سكول ماشاء الله ممتازه وربنا يوفقه استاذ اسامه صاحب القناه ويجزيه كل خير وفى انتظار راى اخواننا واساتذتنا فى هذا الامر بالنسبه لى فالاكسس مناسب لحاجتى كهاوى ويسعفنى فى ما اريد واتمنى ان ازيد حصيلتى التعليميه به لـ 1 % وهذا بفضل الله ثم دروسكم ومتابعتنا لنا اخوانى واساتذتى جزاكم الله عنا خير الجزاء

موضوع شيق و يفتح الشهية ويبقى أكسيس هو العشق لكن في الأونة الأخيرة طلب العملاء يتجه إلى البرامج التي تتصل بالانترنت كما أكد ذلك زملائي ، لكن تكلفتها عالية من استضافة ، ودومين ، وتجديد سنوي . مع ذلك من لديه الرغبة بتعليم شيء جديد اقرب شيء في وجهة نظري لمبرمجي اكسيس لغة vb.net أو #C من مايكروسوفت مع تقنية asp.net ونستطيع ربط موقع كامل بقاعدة بيانات أكسيس أو sql server أو .... داخل الشبكة وخارجها ولتشغيل الموقع داخل الشبكة يلزم تثبيت iis وهو استضافة مواقع الويب على سيرفرات ويندوز . أيضاً لتعلم لغات الويب لا بد من تعلم html ، css ، javascript . مشوار طويل وأنا مبتدئ في هذا المجال الجميل . لذا ابحث عن شخص ملم بإطار الويب asp.net ومستعد لتعليم الناس لمقترح فتح قسم باسم asp.net في منتدانا الحبيب . وهذا موجه للإدارة إن رأت من يتوفر فيه هذه السمات .

جرب هذا الماكرو Option Explicit Sub Uniq_items() Dim R As Worksheet, Sw As Worksheet Dim Nme$, Rg As Range Dim cop_rg As Range Dim dic As Object, I%, m% Set R = Sheets("report") Set dic = CreateObject("Scripting.Dictionary") Set cop_rg = R.Range("B4").CurrentRegion Nme = R.Range("C2") If cop_rg.Rows.Count > 1 Then cop_rg.Offset(1).ClearContents End If m = 5 For Each Sw In Sheets If Sw.Name <> R.Name Then Set Rg = Sw.Range("G5", Sw.Range("G4").End(4)) For I = 1 To Rg.Rows.Count If Rg.Cells(I).Offset(, 2) = Nme Then dic(Rg.Cells(I).Value) = _ Rg.Cells(I).Offset(, 2).Value End If Next If dic.Count = 0 Then GoTo Next_Sheet With R.Cells(m, 2).Resize(dic.Count) .Value = Application.Transpose(dic.keys) .Offset(, 1) = Application.Transpose(dic.items) m = m + dic.Count: dic.RemoveAll End With End If Next_Sheet: Next Sw End Sub الملف مرفق Unique_item.xlsm

هذا ماأشار اليه الأستاذ jjafferr على ما أظن ssa.accdb

وعليكم السلام 🙂 هنا مثال : جعفر

شكرا شباب 🙂 جعفر

حسب ما قرأت (وحاولت الآن ان ابحث عنه وما لقيته!! ) ، فإن الاكسس لايزال حي وبقوة 🙂 ويمكنك طلب اي شيء جديد لإضافته في الاكسس (طبعا مو معناه انهم بيستعجلون على طلبك ، او انهم اصلا بيعملوه) من هنا : https://access.uservoice.com/ وهنا تخبرك مايكروسوفت عن المشاكل اللي تم حلها : https://support.microsoft.com/en-us/office/fixes-or-workarounds-for-recent-issues-in-access-54962069-14f4-4474-823a-ff7e5974a570?ui=en-us&rs=en-us&ad=us والاكسس يُعتبر رقم 9 بين افضل قواعد البيانات: https://medium.com/young-coder/microsoft-access-the-zombie-database-software-that-wont-die-5b09e389c166 جعفر

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

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

جزاهم الله خيرا اخوانى واساتذتى @jjafferr و @ابوآمنة اخى @عذاب الزمان ارفق لك حل اخى ومعلمنا العزيز جعفر بارك الله فيهم DSUM&DCOUNT.accdb

السلام عليكم اخى @صلاح بلعلا مشاركه مع اخوانى @ابوآمنة و @rey360 جزاهم الله خيرا تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق القائمة والمربع.rar

تفضل تم استخدام الكود التالي :- On Error Resume Next Me.txt1 = Null Dim i As Integer Dim RC As Integer Dim rst As Variant Set rst = CurrentDb.OpenRecordset("SELECT * From [البيانات] WHERE [نوع السكون] =" & Me.المهارات & "") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC Me.txt1 = Me.txt1 & " " & rst![النص] rst.MoveNext Next i Set rst = Nothing القائمة والمربع.accdb

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

اتفضل اخى ابوعبدالملك بالتوفيق ان شاء الله

بحكم أني أستخدم نسخة فرنسية

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة لطلبك الجديد =SUMPRODUCT(--(TEXT(ROW(INDIRECT($C$2&":"&$E$2)),"b2dddD")=G$2))-COUNTIF($N$2:$N$16,G$2) 1تحديد عدد أيام معينة بين تاريخين.xlsx

بمناسية اقتراب شهر رمضان كل عام وجميع الاساتذة والاصدقاء بخير ملف اصنع امساكية شهر رمضان بنفسك كل عام ويوجد فيديو يشرح فكرة الملف وخطوات التعامل معه 0003 مواقيت الصلاة وامساكية شهر رمضان.xlsm

انا أفضل الماكرو لعمل هذا الشيء (الضفحة salim من هذا الملف) الماكرو Option Explicit Sub Chercher_Date_by_array() Dim I%, lr%, D As Object, arr(), X% Set D = CreateObject("Scripting.Dictionary") With Sheets("salim") If .Range("G1").CurrentRegion.Rows.Count > 1 Then .Range("G1").CurrentRegion.Offset(1).Clear End If lr = .Cells(Rows.Count, 3).End(3).Row For I = 2 To lr If Application.CountIf(.Range("A2:A" & I), .Range("A" & I)) = 1 Then ReDim Preserve arr(X) arr(X) = Range("B" & I) X = X + 1 End If D(.Cells(I, 1).Value) = CDate(.Cells(I, 2)) Next With .Range("G2").Resize(D.Count) .Value = Application.Transpose(D.keys) .Offset(, 1).Resize(X) = Application.Transpose(arr) .Offset(, 2) = Application.Transpose(D.Items) With .Resize(, 3) .Value = .Value .InsertIndent 1 .Borders.LineStyle = 1 .Interior.ColorIndex = 40 .Font.Bold = True .Font.Size = 16 End With End With End With Set D = Nothing: Erase arr End Sub الملف مرفق للتجربة My_sheet _Dict.xlsm

وهذا مثال في النموذج لتحديث عمليات العد والجمع DSUM&DCOUNT.accdb

تفضل إن شاء الله يكون هذا المطلوب . وهذه الدالة المستخدمة المجموع: IIf([CHK]=True;DSum("[NUMBER]";"[Q1]";"[ID] <= " & [ID] & " and CHK=True");0) العدد: IIf([CHK]=True;DCount("[CHK]";"[Q1]";"[ID] <= " & [ID] & " and CHK=True");0) DSUM&DCOUNT.accdb للمعلومية : العمل داخل الاستعلام يلزم التحديث كل مرة لترى النتائج .

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

استاذي الغالي جعفر انا بالحقيقة اتنقل مابين البرمجة بالاكسس والبرمجة بالـ php على حسب متطلبات سوق العمل او جهة العمل كما لا اخفي عليك انني في بعض الاحيان اشغل نفسي في الالعاب اون لاين ^_^

ماشاء الله ، شو قالوا لك ، طرزان 🙂 اهلا بك معنا بعد غيبة طويلة 🙂 في دورات الاكسس الخاصة اللي اعطيها ، انصح المتدربين عدم استعمال الانترنت (وبالذات اليوتيوب) في البحث عن طريقة عمل البرنامج او الكود ، وانما تتبع الاكواد اللي استعملها انا فقط !! والسبب ان الانترنت فيه الغث والسمين ، والمبتدئ يضيع ، بينما انا اضع اسهل الاكواد ، واتوسع في شرحها ، لتسهيل فهمها وتعديلها 🙂 في الواقع الموضوع اكبر بكثير من اللي انا تكلمت عنه ، واليك الجزئيات : - برنامج الخلفية فيه جدول tbl_CurrentVersion ، - برنامج الواجهة فيه ربط للجدول اعلاه ، بالاضافة الى جدول محلي loc_tbl_LocalVersion ، وفيه الوحدة النمطية fCheck_FE_Version (اللي جاهزة ولكني لم استعملها) ، - الفكرة هي : انك لما تكون عند واجهة جديدة ، تترك نسخة منها في مجلد ملف الجداول ، وتكتب رقم نسخة الواجهة الجديدة في الجدول tbl_CurrentVersion ، ولما يأتي المستخدم ويشغل نسخته ، فالمفروض ان تعمل الوحدة النمطية fCheck_FE_Version مقارنة بين رقم النسخة في tbl_CurrentVersion ، ورقم النسخة في loc_tbl_LocalVersion ، اي يقارن رقم النسخة اللي على السيرفر بالمقارنة مع تلك الموجودة على جهازه ، فإذا نسخة السيرفر كانت اجدد ، فيقوم بنسخ نسخة السيرفر الى كمبيوتر المستخدم ، 🙂 كلامي في مشاركتي السابقة عن الجدول loc_tbl_LocalVersion ، وتستراه في برنامج الواجهة FE بعد ان تقوم بربطه بملف الخلفية BE ، والذي سيطلب منك البرنامج مكانه 🙂 جعفر 297.FE_BE_Password_Both_mdb.zip

السلام عليكم 🙂 رجاء مراجعة موضوع النسخة 2 من هنا : واجهة هذه النسخة: البرنامج يقوم بهذه الخطوات التي يوصي بها المحترفين (كما هو موضح في الصورة اعلاه) ، طريقة العمل: 1. اختار ملف اكسس ، 2. اذا الملف محمي بكلمة سر ، فيمكن كتابته في المربع المخصص ، حيث سيتم حفظه في ذاكرة الكمبيوتر ، والتي يجب عليك ان تدخلها يدويا للقيام بالخطوات 2 و 3 لمرة واحدة ، بينما البرنامج سيدخلها تلقائيا للخطوات التالية ، 3. يجب ان تمسك مفتاح الشفت ، ثم تضغط على زر Decompile ، ولا تترك الزر إلا لما ينتهي البرنامج من عمله ، عندما نرى الخطوات 8 و 9 🙂 هذه النسخة اسرع من النسخة السابقة ، وافضل 🙂 جعفر Decompile_3.zip

رائع جداً 😘

وهذا أفضل تقرير مع إجمالي الوارد وإجمالي الصادر وصافي الرصيد المخزون.zip

واخيرا حصلت على الرابط 🙂 https://www.devhut.net/2019/09/24/access-is-still-alive/ جعفر

على الرغم ان بعض ماطلبته مبهم وغير واضح تفضل الملف المرفق orginalcopy-protcet - Copy.rar

اكرمك الله جمعتنى باساتذتى ولست سوى طالب اعلم اتعلم منهم جزاهم الله عنا خير الجزاء بالتوفيق اخى الفاضل وارجو منك فضلا لا امرا ان تغير بيانات اسمك لكى نستطيع منادتك به بارك الله فيك

بعد ادن الاستاد ونحن جالسين الايام دي فلا مانع في محاولة انظر المرفق كشف الحضور.xlsm

ولا يهمك ..... تفضل واعلمنا بالنتيجة ..... ترقيم مجموعه (1).accdb

الحمدلله الذى بنعمته تتم الصالحات بالتوفيق اخى محمد ابو انس

واضح جدا أخي الكريم تتبعت خطواتك كما بالصور وكل شىء ظبط معي الله يحفظك

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

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

ما شاء الله عليك يا استاذي جعفر طلعنا مثلك في وسط المعمعة

يمكن طريقة عملي هي السبب !! انا عادة اشتغل على مشروع/ملف ، ولما اتملل/اتعب منه ، آخذ استراحة بذهابي الى المنتدى لأرد بسرعة على اكبر عدد من الاسئلة ، وبعض الاوقات اثناء العمل على سؤال ، يجي سؤال آخر سهل ، فأرد عليه ايضا !! يعني يكون عندي 3-4 ملفات مفتوحة في نفس الوقت ، هذا غير اذا ذهبت ابحث عن شيء معين !! وسط هذه المعمعة ، اولوية الرد يكون للأسئلة الواضحة 🙂 1. طلب مبهم !! مادام البرنامج يشتغل صح ، فهو صح ، والسلام 🙂 2. كذلك غير واضح !! رجاء التوضيح اكثر ، والافضل ان تعطينا مثال من برنامجك ، خطوة بخطوة 🙂 الله يعين الجميع ان شاء الله على هذا البلاء 🙂 جعفر

وعليكم السلام اخي طارق 🙂 انا مررت بهذا الموضوع ثلاث مرات ، ولأني لم القى اي تفاصيل ، ذهبت الى موضوع آخر 🙂 وهذا قد يفسر ان عدد المرات التي تم قراءة الموضوع هو 84 مرة ، ولم تلق جواب !! وحتى لما انزلت المرفقين ، كذلك لم احصل على معلومة اضافية 🙂 وهذا قد يفسر ان عدد مرات تنزيل المرفق هو 25 مرة ، ولم تلق جواب !! ولما تلاحظ ان الموضوع اصبح له 4 ايام بدون جواب (من يوم الخميس الى اليوم الاثنين) ، فياريت ان تضع كل المعلومات اللي عندك عن هذا الموضوع في مشاركة واضحة مع امثلة 🙂 جعفر

لا حاجة لرفع الملف بكامله (أكثر من 1100 صف) كان يكفي رفع نموذج عما تريد لا أكثر من 20 صف لمعاينه عمل المعادلات انظر الى هذا الملف My_sheet (1).xlsx

السلام عليكم 🙂 ولكن تأكد من انك تحتفظ بالنسخة الاصلية الغير مشفرة ، فأي تعديل (ولابد ان يكون هناك تعديل ، فالمثل المتعارف عليه بين المبرمجين: اذا استعملت البرنامج مدة وما اردت فيه تعديل ،ولا رأيت فيه مشكلة ، فأنت المستخدم فيك المشكلة !!) ، ولا يمكن القيام بالتعديل على النسخة المشفرة ، وتحتاج الى النسخة الغير مشفرة لعمل التعديل 🙂 ويجب تتبع رقم نسخة برنامجك (لا ليس نسخة الاوفيس ، وانما نسخة برنامجك) ، والاحتفاظ بجميع النسخ لديك ، فقد لا يملك كل مستخدم ، النسخة النهائية !! جعفر

السلام عليكم ابوآمنة عمل جميل باسلوب سهل احسنت اخي الفاضل ابوهزاع العولقي حذفت المرفق السابق والرائع ابو امنة سبقني في الرد بعمل جميل ورائع اتمني ان يكون طلبك

تفضل إن شاء الله يكون هذا المطلوب المخزون.accdb

السلام عليكم ورحمة الله لا يقبل مربع نص أو الأشكال الهندسية المعادلات بدوال الإكسيل إلا أنه يمكن كتابة المعادلة في خلية ما في الشيت (مثلا G5) ثم تحديد مربع النص ثم نحجز في شريط المعادلات علامة = متبوعة بعنوان الخلية G5 التي كتبت فيها المعادلة السابقة أي الشكل G5= (ولا يقبل أيضا النصوص معها)... إذا أردت أن يظهر أي نص مع ناتج المعادلة في مربع النص يجب وضعه مع المعادلة في الخلية G5.... والله أعلم بن علية

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

تفضل : تم عمل وحدة نمطية عامة تأخذ خيارات النسخة من الجدول ويمكن الآن اخذ النسخة من اي مكان داخل البرنامج ملحوظة : بقي ان تضع قيم افتراضية للحقول فيما لو المستخدم لم يحرك ساكنا x.rar