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

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

جرب هذا فقد يكون لما تريد DoCmd.OpenForm "EmpData", , , , acFormAdd وهذا DoCmd.OpenForm "EmpData" DoCmd.GoToRecord , , acNewRec وهذا DoCmd.OpenForm "EmpData" , , , "[id] = 0" تحياتي

منور استاذ يوسف قبل ان ادلو بما يفتح الله علينا اعتقد ان هناك حاجة لوضع المعادلة اولا او القاعدة الصحيحية ففي مشاركة الاستاذ ابا خليل نتيجة المراجعة في اليوم الثالث هي 5 ولديك استاذ يوسف 6 وعودة لمشاركة الاستاذ ابا خليل حيث الناتج لليوم السادس هو 21 اعتقد هنا ان الناتج 20 لانه كالتالي وحسب فهمي اليوم 1 >> 1 2>> 2 وهنا حسب فهمي راجع وجه جديد مع حصيلة امس وجه واحد 3>>5 اليوم 4>> اربع اوجه + اجمالي السابق وهي 5 = 9 اليوم 5 >> خمس اوجه + 9 = 14 اليوم 6 >> 6 +14 = 20 اليوم السابع >> 7 + 20 = 27 هذا والله اعلم

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

السلام عليكم إخواني الكرام أقدم لكم اليوم ملف قمت بإعداده ، لنتعلم من خلاله كيفية عمل قائمة منسدلة يمكن البحث من خلالها ... الملف به كل التفاصيل أرجو أن ينال إعجابكم وأن ينفعكم به Searchable Drop Down List.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة مشروع عمل فورم لدوال الاكسل - شاهد هذا العمل خطوة خطوة - تم ارفاق كود الحل من الفاضل/ عبدالله باقشير و لا تنسونا من صالح الدعاء فورم لدوال الاكسل_عبدالله باقشير.rar

ارفق مثالك حتى تحصل على اجابة عملية

اخوتي الكرام السلام عليكم ورحمة الله وبركاته لدينا طالب يحفظ وجه واحد من المصحف كل يوم ويراجع ما تم حفظه نريد حساب عدد الاوجه التي تمت مراجعتها خلال 6 أيام اذا علمنا ان منهج المراجعة تراكمي زيادة ايضاح : المنهج التراكمي انه يراجع اول يوم وجه واحد وفي اليوم الثاني يراجع وجهين وفي اليوم الثالث يراجع ثلاثة اوجه وتضاف الى ما تم مراجعته بالامس لتصبح 5 اوجه وهكذا ..فييكون حساب حصيلة اليوم السادس مراجعة 6 اوجه + 15 وجه تحسب له لانه راجعها اي ان مجموع ما تم مراجعته خلال 6 ايام هو 21 وجها نريد هذاه المعادلة تتم من خلال وحدة نمطية نمرر لها رقما محددا يمثل عدد ايام الحفظ لنستخدمها داخل الاستعلام لا املك الوقت للتجربة والمحاولة فاحببت وضعها هنا لاساتذتي الكرام

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

تفضل تم التعديل link_2.rar

جزاك الله خيرا وادخلك الجنه من اوسع ابوابها

السلام عليكم ورحمة الله وبركاته بناءاً على فكرة اخونا الحبيب خبور خير في صنع القوائم المنسدلة هنا تكملة للمشوار وفكرة لعمل عدة قوائم منسدلة ومترابطة عسى أن يتم الاستفادة منها قوائم منسدلة للحسابات 2003.rar قوائم منسدلة للحسابات 2007.rar

السلام عليكم و رحمة الله و بركاته الدالة التي تقدم بها أخي يوسف صحيحة و تعطي التاتج صحيح و هي تقريبا نفس الدالة اللي أنا عملتها. Function CalculeFac(face As Integer) Dim i As Integer m = 0 For i = 0 To face m = m + i Next i CalculeFac = m End Function أخي رمهان الخطأ اللي أنت عملته هو في اليوم الثاني هنا يجب أن تضع وجهين في اليوم الثاني + وجه واحد حصيلة أمس. إن شاء الله يكون هذا الحل وافي و كافي في إنتظار نصائح و إنتقادات الأستاذ أبو خليل

حل آخر في حال اردنا ان نضع قيمة بالحقل و نحصل على الناتج .... لأن الطريقة السابقة تعتمد على المجموع التراكمي Public Function RunTotal(Phases As Integer) As Integer Dim i As Integer intSum = 0 For i = 0 To Phases intSum = intSum + i Next i RunTotal = intSum End Function ارجو ان يكون هو المطلوب استاذنا الغالي

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

و عليكم السلام و رحمة الله و بركاته اهلا باستاذنا العزيز ابو خليل .. اسأل الله ان يجعل ما تقدمه في موازين حسناتك ارجو ان يكون الحل هو ما تبحث عنه استاذنا الغالي Public Function RunSum(Phases As Integer) As Integer Static intSum As Integer If Phases = 1 Then intSum = 0 RunSum = intSum + Phases intSum = RunSum End Function بالتوفيق

رحمه الله واسكنه جناته

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

تفضل اخي الكريم: في حدث عند النقر لزر الامر ضع هذا الكود: DoCmd.OpenForm "EmpData" وفي حدث عند الفتح للنموذج (EmpData) ضع هذا الكود: DoCmd.GoToRecord , , acNewRec waz-Database10.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة قطع جميع الاتبارطات بمصنف العمل !! تم ارفاق كود الحل من الفاضل/ زياد علي و لا تنسونا من صالح الدعاء تحياتى قطع جميع الارتباطات (2).rar

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

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

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

السلام عليكم عيدكم مبارك بالمرفق كود يعرض اسماء اوراق العمل بعد كتابة هذه المعادلة البسيطة في الورقة ()SHNAME = تحياتي عرض اسماء اوراق العمل.rar

السلام عليكم ورحمة الله اولا / الشكر الجزيل للاخ الفاضل الاستاذ سليم حاصبيا --------------------------------------------------------------------------- ثانيا / بعد إذن الاستاذ سليم المشكله في اصطياد السمكة يا استاذ ياسر ليس شرح الكود لانه حتى لو شرح الكود ينقصه من ان الكود مبني علي خطوات مسبقه إليكم الخطوات المسبقة محاوله مني: اولا / نقوم بتعريف المدى اللي بالكود والمسمى Prot_Range نذهب إلي الشيت المسمى Sheet1 ثم من شريط الادوات نذهب إلي صيًغ ثم إدارة الاسماء ثم جديد ونضع الاسم Prot_Range ونشير للخلايا أي نحدد الخلايا حسب رغبتنا في تطبيق العمل عليها وهنا في عمل الاستاذ سليم اشار للخلايا من A1 إلي Z255 ثم موافق خلاص إنتهينا من تسمية النطاق او المدى.والآن يأتي دور الاكواد نذهب لمحرر الاكواد الخاص بالصفحة Sheet1 عام أي في ال General ونضع هذا الإجراء : 'xxهنا نقوم بتسمية إجراء ونسميه اي إسم اي حرف وهنا إسمه Sub xx() ' salim يقوم بإلغاء الحماية من علي الصفحة النشطه والتي كلمة المرور الخاصة بها هي ActiveSheet.Unprotect "salim" إذاً' Prot_Rang إذا لم يتقاطع الإختيار بمدى النطاق المسمى If Not Intersect(Selection, Range("Prot_Range")) Is Nothing Then ' هنا الإشارة للمجال المختار وهو مدى النطاق في الصفحة النشطة بالخاصية With With ActiveSheet.Range("Prot_Range") ' تنشيط إقفال الخلايا .Cells.Locked = True 'عدم إقفال الخلايا الفارغة التي لايوجد بها بيانات .Cells.SpecialCells(xlCellTypeBlanks).Locked = False ' إغلاق الخاصية With End With ' يقوم بحماية الصفحة وعمل كلمة المرور salim ActiveSheet.Protect "salim" End If ActiveSheet.Protect "salim" End Sub ثم نضع الكود التالي في حدث تغيير الصفحة Sheet1 Private Sub Worksheet_Change(ByVal Target As Range) ' إذا لم يتقاطع الهدف بالمدى وان نتائج الهدف يساوي واحد ‘ذاً If Not Intersect(Target, Range("Prot_Range")) Is Nothing And Target.Count = 1 Then ' عدم تمكين تطبيق الاحداث Application.EnableEvents = False 'هنا بعد إدخال اي بيانات تأتي رسالة تفيد حسب الموضح في الرسالة mess = MsgBox(" بعد ادخال البيانات سوف يتم اقفال هذه الخلية" & vbNewLine & _ "لا يمكن تغييرها الا من خلال كلمة السر في حال الموافقة اضغط نعم", vbYesNo, "تنبيه") ' عند الموافقة If mess = vbYes Then 'xxهنا يتم إستدعاء الإجراء والمسمى xx ' عند عدم الموافقة Else ' تراجع عن التطبيق Application.Undo End If End If ' تمكين تطبيق الاحداث Application.EnableEvents = True End Sub

اخفاء ازرار الصفحات ActiveWindow.DisplayWorkbookTabs = False اخفاء شريط القوائم العلوي Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" اخفاء شريط المعادلات Application.DisplayFormulaBar = False ولاعادة اظهارهم يتم استبدال كلمة false بكلمة True

الدرس الأول: مولد الباركود أول خطوة لمعرفة كيفية قراءة الباركود هو طريقة توليدها ومن ثم ربطها بالبرنامج. تختلف صياغة الباركود نظراً للكود الذي يتبعه والتي تحدد معايير رسم وقراءة رموز الباركود، مثل كود 93 و كود 39 وكود 128، ولهذا السبب يشتكي البعض من عدم تمكنه من قراءة رموز الباركود، ولهذا في هذا الدرس سنعتمد على كود 128 وكود QR لأنهما الأكثر شيوعاً وتقبل معظم الأجهزة.. هناك برامج ومواقع كثيرة تقوم بتوليد الباركود، ونحن في هذا الدرس قمنا بتوليد الباركود عن طريق موقع خارجي من خلال المرفق التالي. barcode generator.rar

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

تفضل استيراد متكرر ضمن جدول واحد استيراد بيانات.rar

السلام عليكم ورحمة الله وبركاته للوصول السريع الى فتح صناديق الحوار او الاوامر ده الفورم يعطيك الرقم سريعا XlBuiltInDialog هو في ارقام كثيرة لكن حاولت ان اجمع ما يفتح بالامر Show اختار الرقم وضعه بدل الكلمة هنا Application.Dialogs(هنا).Show في اوامر لم اضع تسميتها دمتم في حفظ الله Application.Dialogs1.rar =================================================== النسخة الجديدة بجميع الاوامر من 1 الى 119 ممكن تستخدم معها الامر Show وهي الملونة في الشيت وهي التي تم اختبارها وترجمتها مني ومن الاخ عادل Application.Dialogsadel3.rar =================================================== رابط ذو اهمية: http://msdn.microsoft.com/en-us/library/ff194519.aspx

في حالة ان اسم الجدول tss5 والحقل الذي نريد الحذف على اساسه الشركة يكون الكود هكذا Public Function delfirstrec1() On Error Resume Next Dim db As DAO.Database Dim rst As DAO.Recordset Dim rsttransaction As DAO.Recordset Dim rst_temp As DAO.Recordset Dim tblofficena As DAO.TableDef Dim qryOfficena As DAO.QueryDef Dim fldtest As DAO.Field Set db = CurrentDb Set rst = db.OpenRecordset("tss5", dbOpenTable) rst.MoveFirst Do Until rst.EOF Set tblofficena = db.CreateTableDef("tbltest") Set fldtest = tblofficena.CreateField("city_temp", dbText) fldtest.Size = 50 tblofficena.Fields.Append fldtest db.TableDefs.Append tblofficena Set rst_temp = db.OpenRecordset("tbltest", dbOpenTable) rst_temp.AddNew rst_temp!city_temp = rst![الشركة] rst_temp.Update rst_temp.Close Set qryOfficena = db.CreateQueryDef("Officena", _ "SELECT [الشركة] FROM tss5 where [الشركة] = dlookup('[city_temp]','[tbltest]')") Set rsttransaction = db.OpenRecordset("Officena") Do Until DCount("[الشركة]", "[officena]") <= 20 rsttransaction.MoveFirst rsttransaction.Delete Loop rsttransaction.Close rst.MoveNext db.TableDefs.Delete ("tbltest") db.QueryDefs.Delete ("officena") Loop rst.Close db.Close MsgBox "تم الغاء السجلات اللازمة", vbOKOnly, "فريق اوفيسنا" End Function

يمكنك عمل ذلك ذلك ايضاً بدون النموذج عن طريق التعامل مع الجدول مباشرةً والغاء اول سجل من الجدول عن طريق وضع هذه الدالة بوحدة نمطبة عامة : Public Function delfirstrec() Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("TableName") If rst.RecordCount > 10 Then rst.MoveFirst rst.Delete rst.Close MsgBox "تم الغاء السجل الأول من الجدول", vbOKOnly, "Officena" End If End Function وبعد ذلك تقوم باستدعاء الدالة من خلال ماكرو للعلم هذا الكود يقوم بالغاء السجل الأول فقط اذا عدد السجلات عن عشر سجلات

قمت باحضار طابعة وتجربة هذا الكود ونجحت والحمد لله :lol: DoCmd.OpenForm "subformname" DoCmd.GoToRecord , , acGoTo, Me.subformname.Form.CurrentRecord DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.PrintOut acSelection SendKeys ("^{f4}") قم بوضع الكود السابق عند حدث النقر لزر امر موجود على النموذج الرئيسي لا تنسى ان النموذج الرئيسي مسمى "formname" النموذج الفرعي مسمى "subformname"

ضع عند حدث زر الامر الذي يقوم باضافة سجل جديد الكود التالي : DoCmd.SetWarnings False If Me.RecordsetClone.RecordCount > 10 Then DoCmd.GoToRecord , , acFirst DoCmd.RunCommand acCmdDeleteRecord End If DoCmd.GoToRecord , , acNewRec