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

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

تحية طيبة للجميع و اذا سمح لي الاستاذ جعفر بالمداخلة على المرفق فقد قمت ببعض التعديلات حيث يتم ترقيم المرفق بنفس الاسم و لكن يضاف اليه التاريخ كاملا اضافة الى رقم تسلسلي مثلا 01-01-2017 000001 مرفق 1 ايضا يمكنك فتح المرفق بالنقر المزدوج على حقل اسم المرفق حيث يتم تشغيل المرفق بالبرنامج المرتبط به مثلا ملفات الصور يتم تشغيلها بواسطة عارض الصور و هكذا طبعا المرفقات يجب ان تكون في نفس مسار قاعدة البيانات 207.5.m.salama.rar

السلام عليكم أخي محمد كل سنه وانت بخير ان شاء الله انا جربت المرفق ، وحسب تجربتي كُله تمام ، حيث يحفظ الملفات بالتنسيق التالي ، مثلا: At_7_1.jpg At_7_2.doc ولما تضيف ملف جديد ، فيتم الترقيم التلقائي (لم يكن موجودا في النسخ القديمة). جعفر 207.4.m.salama.accdb.zip

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

وعليكم السلام أخي الكريم قم بإنشاء إجراء فرعي بأي اسم جديد وليكن CollectCodes ثم استخدم كلمة Call لاستدعاء الأكواد الأخرى باسمها Sub CollectCodes Call Test1 Call Test2 Call Test3 End Sub

بسم الله الرحمن الرحيم الحمد لله و الشكر له اذي أنعم علينا بنعم لاتعد و لاتحصى ومن هذه النعم وجود هذا المنتدى القيم وانعم علينا بوجود هذه الزمرة المتميزة في المنتدى التي تعمل وتقدم الخير ولاتنتظر إلا الجزاء من الله عز وجل كافأهم الله بكل خير وأنعم علينا أيضا بوجود ساحر الاكسيل ومهندسه العالم العلامة والبحر الفهامة بمشيئة الله عبد الله باقشير وهو من أحب الناس إلى قلب اخيه الأستاذ / محمدي عبد السميع عبد الغني حفظه الله ورعاه وحفظ الجميع من كل سوء ......... آمين يارب العالمين وبعد : أقدم هذا العمل الفذ وهو عبارة عن تجميع لأكواد معينة والشرح لكي نحصل في النهاية على عمل ولا أروع منه في مجال أعمال الكنترول الخاص برجال التربية والتعليم وسنطلق على هذا العمل " درة أعمال الكنترول " بسم الله نبدأ أولا : عند تصميم أي برنامج لأعمال الكنترول نحتاج الى صفحة بيانات أساسية وفي هذه الصفحة نحتاج الى *** حساب العمر عند يوم واحد أكوبر من العام الدراسي القادم وتوجد معادلات كثيرة لكن أفضلها وأسهلها على الإطلاق هذه المعادلات =IF($E7<>"";DATEDIF($E7;$J$5;"Y");"") لحساب عدد السنوات =IF($E7<>"";DATEDIF($E7;$J$5;"Ym");"") لحساب عدد الشهور =IF($E7<>"";DATEDIF($E7;$J$5;"MD");"") لحساب عدد الأيام أما إذا كنت من هواة الأكواد فهذا الكود للبطل الهمام بضم الهاء وفتح الميم الأولى عبد الله ياقشير '============================================" ' دالة حساب العمر بالتقويم الميلادي تاريخ الميلاد Mydate_Birth التاريخ الذي تريد حساب العمر عنده Mydate اذا كان فارغا سيتم احتساب اليوم '============================================" Function kh_count_y_m_d(Mydate_Birth As Date, Optional Mydate_Now, Optional Y_M_D As String = "Y_M_D") Dim MyDate As Date Dim D_1 As Integer, D_2 As Integer, M_1 As Integer, M_2 As Integer, Y_1 As Integer _ , Y_2 As Integer, d As Integer, M As Integer, Y As Integer If IsDate(Mydate_Now) Then MyDate = Mydate_Now Else MyDate = Date If IsDate(Mydate_Birth) And CDate(Mydate_Birth) <= CDate(MyDate) Then D_1 = Day(MyDate): D_2 = Day(Mydate_Birth) M_1 = Month(MyDate): M_2 = Month(Mydate_Birth) Y_1 = Year(MyDate): Y_2 = Year(Mydate_Birth) If D_1 >= D_2 Then d = D_1 - D_2: M = 0 Else d = D_1 + 30 - D_2: M = -1 If M_1 + M >= M_2 Then M = M_1 + M - M_2: Y = 0 Else M = M_1 + M + 12 - M_2: Y = -1 Y = Y_1 + Y - Y_2 If Y_M_D = "Y_M_D" Then kh_count_y_m_d = d & "d-" & M & "m-" & Y & "y" If Y_M_D = "Y" Then kh_count_y_m_d = Y If Y_M_D = "M" Then kh_count_y_m_d = M If Y_M_D = "D" Then kh_count_y_m_d = d End If End Function *** ونحتاج أيضا الخلية النشطة : وهي آخر حلية مكتوب فيها في آخر صف و تسهل لنا الوصول الى الصف الأخير الفارغ لإضافة بيانات أخرى إذا أردنا Sub nasheta() Dim U As Integer U = ActiveCell.Row Dim LastRow As Integer LastRow = Cells(Rows.Count, "B").End(xlUp).Row + 1 If U = LastRow Then Range("B7").Select Else Range("B" & LastRow).Select End If ActiveWindow.View = xlNormalView End Sub ماعليك إلا أن تربط زر بهذا الكود وهذه هي Sub kh_Hidden() With Range("A2:A5") If .EntireRow.Hidden Then .EntireRow.Hidden = False Else .EntireRow.Hidden = True End If End With End Sub *** سنجتاج أيضا إلى Private Sub Worksheet_Activate() Set WW = Application.WorksheetFunction SS = WW.CountA(Range("B7:B1000")) + 6 EE = WW.CountA(Range("C7:C1000")) + 6 Application.ScreenUpdating = False Range("B7:Z1000").Sort [c7], xlAscending Range("B7:Z1000").Sort [D7], xlDescending For U = 7 To EE Cells(U, 4).NumberFormat = "yyyy/mm/dd" Next Range("B7:B1000").ClearContents [B7] = 1 [B8] = 2 Range("B7:B8").Select On Error Resume Next Selection.AutoFill Destination:=Range("B7:B" & EE) Application.GoTo [B7] 'Application.ScreenUpdating = True End Sub حساب العمر.rar حساب السن بالكود.rar كود اخفاء الصفوف.rar الخلية النشطة.rar طريقة ربط زر بكود اختر أي زر يعجبك منظره ثم اضغط عليه بيمين الماوس واختر نسخ ( copy) ثم حدد المكان الذي تريد اللصق فيه أو إنشاء الزر فيه واضغط بيمين الماوس واختر لصق ( past ) حرك الماوس في اتجاه الإطار الموجود حول الزر الذي لصقته ستظهر علامة الزائد و في كل اتجاه من علامة الزائد يوجد ايضا علامة زائد أخرى ثم اضغط بيمين الماوس واختر تعيين ماكر و ستطهر اسماء الماكروهات اختر الماكرو المطلوب ثم أوكي طريقة تحريك زر ملحوظه عند وجود علامة الزائد و في كل اتجاه منها يوجد ايضا علامة الزائد يمكنك الضغط بيسار الماوس وأنت مستمر بالضغط حركها إلى أي مكان جرب عمل ذلك واحمد الله *** سنجتاج أيضا الى كود يخفي عدد من الأسطر حتى نجصل عل أكبر مساحة ممكنه من الصفحة للرؤية و الكتابه بها وهذا هو الكود الخاص بذلك " كود الاخفاء" كود لعمل المسلسل أوتوماتيكي وهذ الكود سنضعه في حدث الورقة لكي يتم التسلسل بعد انتقالك الى ورقة أخرى والعودة لصفحة بيانات أساسية بدون الضفط على أية أزرار وسنضيف عليه كود لترتيب الطلاب حسب النوع أولا ثم ترتيب الطلاب تصاعديا بدون زر في نفس اللحظة وهذا الكود سنضعه في حدث الورقة لكي يتم الترتيب بعد انتقالك الى ورقة أخرى والعودة لصفحة بيانات أساسية وهذا هو الكود الخاص بذلك " كود التسلسل الاوتوماتيكي والترتيب الهجائي"

طريقة عمل أو استخراج كشف حساب بالاكواد بطريقة بسيطة !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل ولكن يجب علي هنا اولا ان اقدم الشكر والعرفان لاستاذي ومعلمي الاول في عالم الاكسيل والاكواد خاصة الاستاذ القدير الرائع / يحيي حسين حيث تعلمت منه اكثر من طريقة لعمل كشف حساب واشياء اخري كثيرة ولكني كالعادة دائما احب ان اختار اسهلها علي الاطلاق لسهوله فهمهما وتنفيذها والاعتماد عليها ويمكن لكل ملف وكشف حساب ان يتم استخراجه بأكثر من طريقة ( بالطبع ) ولكني دائما احب الاسهل والاوضح وبالطبع يمكنك تطويع الكود بعد فهمه جيدا لاستخدامه كما تريد وسأقدم الشرح بطريقة الفيديو المباشر في درسين في المشاركتين التاليتين ويمكنكم تحميلهما منهم وكذلك روابط خارجية لتحميل الفيديوهات ارجو أن يوفقني الله في الشرح وان اكون عند حسن ظنكم جزاكم الله خيرا

السلام عليكم و رحمة الله تعالى و بركاته : أخوتي الكرام يسرني أن أضع بين أيديكم هذا المثال الذي قمت بتصميمه من أجل إضافة تأثيرات جذابة للنماذج و أيضا إستغلال المساحات. أنا بإنتظار ملاحظاتكم من أجل تحسين هذه الفكرة. و ذلك بإستخدام الكود التالي: Me.اسم العنصر.Move Left:=نقطة بداية العنصر من اليسار, Top:=نقطة بيداية العنصر من الأعلى, Height:=إرتفاع العنصر, Width:=عرض العنصر تأثيرات النماذج.rar

السلام عليكم ورحمة الله جربت دوالا أخرى في الملف بمعادلات صفيف (التي يجب تأكيدها بواسطة CTRL+SHIFT+ENTER)... إن شاء الله سأرى ما هو المشكل في دالة VLOOKANYCOL وأرد عليك قريبا... بن علية ملفي.rar السلام عليكم ورحمة الله ما تريده ليس من عمل الدالة VLOOKANYCOL لأن هذه الدالة المستحدثة لا تقوم بالبحث عن القيم المكررة (مثلها مثل الدالة VLOOKUP والفرق بينهما أن الدالة VLOOKUP تبحث في العمود الأول من نطاق البحث بينما الدالة الأخرى تبحث في أي عمود من النطاق -دائما القيم غير المكررة-)... والله أعلم بن علية

شكرا جزيلا بارك الله فيك

شكرا جزيلا على الشرح الواضح

و عليكم السلام عليكم و رحمة الله تعالى و بركاته: أستاذي جعفر حياك الله و سعيد بوجودك معنا. نقوم بكتابة هذا الكود في مصدر عنصر التحكم لمربع النص مع تغيير الشروط حسب الحاجة لكل مربع نص =DCount("*";"[Candidat]";"[sexecand]='ذكر' and [TypExam]='الثالثة إعدادي أحرار' and [DESETAAR]='الاحرار' ")

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

على عيني وعلى راسي يا استاذ جعفر شوف النموذج كان هكذ واللي انا عملت بس اضفت هذا الكود كتبت متغير باسم ئكس وقلت ئيكس بيكون يساوي عدد حقل جوب نامبر في جدول الوظائف المقترحة بشرط ان يكون الرقم في ذاك الحقل بيكون يساوي مع تيكست 39 لماذا كتبنا تيكست 39 ؟ لان اسم الحقل اللي كتنا فيه هو تيكست 39 كما في الصورة الاعلاه وبعدين كتبنا جملة ئيف الشرطية اي اذا ئيكس بيكون اكبر من الصفر بيظهر رسالة وبيقول "عفوا هذا الرقم موجود مسبقا" ويرجع اللي عملنا الى سابق وبعدين اشارة الماوس بيروح الى تيكست 46 وبعد يرجع الى تيكست 39 من جديد وغلقنا الجملة الشرطية ئيف واسف على الكل لاني زعيف في اللغة العربية مع تقدير

اضبط النطاق MyRng في ملفك ليبدأ من العمود A وليس العمود B .. وفقط

تكدر تستخدم هذا السطر من الكود فقط لاخفاء DoCmd.ShowToolbar "ribbon", acToolbarNo لاظهار DoCmd.ShowToolbar "ribbon", acToolbarYes

تكدر تستخدم هذا الكود On Error GoTo err DoCmd.SetWarnings (WARNINGOFF) If MsgBox("هل تريد حذف السجل المختارة", vbYesNo, "تنبيه") = vbYes Then DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord End If DoCmd.SetWarnings (WARNINGSON) err:

رزنامة نتيجة بداخل الفورم الدرس الثالث والعشرون فورم للاخ عبد الله باقشير ربنا يطمنا عليه على الرابط التالى https://www.officena.net/ib/topic/42121-فورم-للتقويم-الميلادي-والهجري-لادراج-التاريخ-في-الخلية-النشطة/ حمل الملف التقويم الميلادي و الهجري.rar

تفضل: جمعية خيرية 2007.rar

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

بارك الله فيك وفي والديك وأسكنكم الفردوس الأعلي وجعل الله هذا العمل في ميزان حسناتك أنت وكل من في هذا المنتدي يوجد بعض الملاحظات . 1- قمت بالتعديل علي نموذج الطباعة وأضفت خانة الاسم . والمطلوب من هذه الخانة هو أن يتم إظهار تقرير بيان الحالة وتقرير الكارنية وفقاً للإسم الذي يتم إختياره . وفي حالة ترك خانة الاسم فارغة . وإختيار أي تقرير تظهر التقارير لجميع الأسماء 2- إظهار الصورة في الكارنية تقبل تحياتي جمعية خيرية 2007.rar

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

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

آمين يا رب العالمين و لك بالمثل

وعليكم السلام نعم ، اذا كان برنامج الاكسس تم تنصيبه (اي حزمة الاوفيس او الاكسس فقط) على الجهاز ، وإذا لا يوجد اكسس على الجهاز: لا يمكن تشغيله ، لأن اي ملف يحتاج الى برنامج لتشغيله ، ولكن ، اذا كان عندك برنامج الاكسس على كمبيوتر وفيه احد برامج التحكم عن بُعد (مثل TeamViewer) ، فيستطيع شخص آخر الدخول عن طريق الانترنت ، وعن طريق برامج التحكم عن بُعد (مثل TeamViewer) ، بالدخول واستعمال البرنامج (في هذه الحالة ، جهاز الايباد مثلا لا يقوم بالعمل ، وانما الجهاز الاخر هو الذي يقوم بالعمل) ، اذا كان عندك برنامج الاكسس على كمبيوتر/سيرفر وفيه احد برنامج "الكمبيوتر الافتراضي Virtual PC" ، فيستطيع شخص آخر الدخول عن طريق الانترنت ، وبطريقة معينة ، بالدخول واستعمال البرنامج (في هذه الحالة ، جهاز الايباد مثلا لا يقوم بالعمل ، وانما الجهاز الاخر/السيرفر هو الذي يقوم بالعمل) ، وتحذير ، اذا كان برنامج الاكسس مقسّم الى واجهة وجداول ، والجداول موجوده على كمبيوتر/سيرفر على الشبكة (سواء شبكة المكتب او على الانترنت) ، فلا يُنصح باستخدام الاكسس عن طريق شبكة اللاسلكي WiFi ، لأن الارسال في شبكة اللاسلكي متقطع ، وعليه قد تفقد البيانات ، او يتم ادخال بيانات جزئية جعفر

استعمل هذا الكود: Dim curPath As String curPath = CurrentProject.Path & "\الأرشيف" If Len(Dir(curPath, vbDirectory)) = 0 Then MkDir (curPath) Else MsgBox "الملف موجود مسبقا" End If التعليمة dir تقوم بالتأكد من وجود المجلد في المسار المحدد من عدمه

جزاكم الله خيرا

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

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