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

ربما ينال الاعجاب هذا الملف salimمحرك بحث.rar

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

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

ربط صفحات.rar

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

السلام عليكم هذا بقية لشرح عمل الشهادات بدالة vlookup و هو خاص بجزئية تكرار الشهادة فى صفحة واحدة شرح عمل الشهادات بدالة vlookup.zip

السلام عليكم

وعليكم السلام يجب ان نصطاد رسالة الخطأ ، ونضيفها الى بقية القائمة ، ليصبح آخر الكود هكذا: Exit_cmd_Open_desktob_Click: Exit Sub err_cmd_Open_desktob_Click: If Err.Number = 3021 Then RC = 0 Resume Next ElseIf Err.Number = 13 Then Resume Exit_cmd_Open_desktob_Click Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . جعفر 713.محتويات فولدر خارجى.accdb.zip

السلام عليكم ورحمة الله وبركاته كيف حالكم جميعاااا عساكم بخير استخدم دالة switch مع مراعاة عدم تسمية الحقل الاساسي بنفس اسمه في الجدول هكذا: =Switch(Nz([Ehdaa],0)=صواب,0,Nz([Ehdaa],0)=False,[upric]) تحياتي ::

وعليكم السلام وحيا الله من جانا انا ما عملت مثل ما تريد ، ولكن ، جرب ، انت مو خسران ، انا غيّرت لون الخط الى لون الخلفية ، فالبيانات ما تقدر تشوفها ، إلا اذا كنت في الحقل . . خلي هذا الكود على حدث النقر على الحقل Ehdaa Private Sub Ehdaa_Click() On Error Resume Next Dim ctrl As Control If Me.Ehdaa = -1 Then Font_Color = RGB(255, 255, 153) Else Font_Color = RGB(0, 0, 0) End If For Each ctrl In Me.Controls If ctrl.BackColor = RGB(255, 255, 153) Then 'MsgBox ctrl.Name & vbCrLf & ctrl.Value ctrl.ForeColor = Font_Color End If Next End Sub . جعفر 712.ProgSals.mdb.zip

أسف ياأستاذ ولله لحين فهمتك شوف لأن الرد هل هو مفهوم كذا 1) هل يمكن استعمال لكل مدينة ادمين خاص بها 2) لو سجل اي شخص للمدينة 1 مثلا : ( ادمين مدينة1 يشوف شخص الي سجل في مدينة 1 فقط ) 3) لو سجل شخص في مدينة 2 مثلا : ( ادمين مدينة 2 فقط يشوف شخص الي سجل في مدينة رقم 2 ) 4) ادمين رقم 1 مايقدر يشوف اعضاء مدينة رقم 2 وعكس صحيح. 4) يعني عوض نسوي 8 جداول نخليه زي كذا في جدول 1 نحاول ايجاد طريقة او حيلة للحصول علي هذه النتائج ان أمكن و أعتذر يأستاذ علي ازعاج بدونك مافي واحد راح اتعلم منو كل مواضيعك شيقة رائعة و مفيدة ياليت تكمل معي لين الاقي حل للمشكلة ذي ومنكم نتعلم ياكبار

الـ Admin للمدينة لما يعمل صلاحية لأي شخص في مدينته ، فلن يستطيع ان يعملها لأي مدينة اخرى

حياك الله

انا لا اعرف اذا انت حذفت شيء من البرنامج ، وعملت فيه خلل!! ولكن ، اليك هذه الصور من البرنامج الذي ارفقته انا في مشاركتي اعلاه: . . . . يعني شغال تمام جعفر

وعليكم السلام أخي الكريم نايف جرب الكود التالي (مع استبدال اسم ورقة العمل في الكود باسم ورقة العمل لديك حيث أنني أحبذ التعامل مع أسماء أوراق العمل باللغة الإنجليزية) Private Sub CommandButton1_Click() Dim m As Integer Dim r As Integer Dim t As Integer Dim i As Integer Dim x As Variant ListBox1.Clear With Sheets("Sheet1") m = .Cells(.Rows.Count, 1).End(xlUp).Row x = Split(TextBox1.Text, vbCrLf) If UBound(x) = -1 Then Exit Sub For i = LBound(x) To UBound(x) For r = 2 To m If .Cells(r, 2) Like x(i) & "*" Then ListBox1.AddItem ListBox1.List(t, 0) = .Cells(r, 1) ListBox1.List(t, 1) = .Cells(r, 2) t = t + 1 End If Next r Next i End With End Sub

1. انت قلت تريد ان تكون عندك صلاحية النظر في جميع المدن ، فكتبت اسمك Sofiane ، يعني لما انت تدخل في البرنامج باسمك وكلمة السر ، ثم تفتح النموذج Admin ، سترى جميع المدن. اما بالنسبة لباقي اللي انت كتبته ، فوالله لم افهم شيء من جملتك/تعبيرك ، والله ، وطلبت منك رجاء ، رجاء جعفر

أخي الكريم محمود لما لا تقوم بطرح موضوع جديد مستقل عن هذا الموضوع ليشارك فيه الجميع .. هذا جانب ، وجانب آخر قم بتبسيط طلبك حتى تجد استجابة فقد لا أجد الوقت الكافي للرد على جميع الاستفسارات .. قم بالسؤال عن نقطة نقطة وحاول تدرس الأكواد التي تقدم في الموضوعات المختلفة .. وإن شاء الله مع الوقت تصبح محترفاً في التعامل بهذه الأكواد .. بالنسبة لسؤالك عن الأكواد التي تتحكم بها بالتسطير وتغيير عرض الأعمدة وخلافه فهي أكواد مباشرة ولا مشكلة فيها ويمكن الحصول عليها من خلال تسجيل ماكرو مع التنقيح لها .. حاول الإطلاع على موضوع "افتح الباب وادخل لعالم البرمجة" وادرس الحلقات بشكل جيد علها تكون نقطة بداية جيدة لك إن شاء الله أعتذر عن عدم الإطالة .. وكما أخبرتك حاول أن تتناول أي استفسارات بشكل مبسط لكي يسهل الرد عليها .. وهذا لا يعني أننا نبخل بالمعلومة إنما أحب إعطاء المعلومة رويداً رويداً تقبل تحياتي

ما فهمت قصدك ابدا رجاء اكتب الملاحظات كأرقام 1 و 2 ... ، ورجاء اعطني مثال عن اللي تتكلم عنه. جعفر

تمام تسلم والله طول عمرك مبدع بالتوفيق والسداد

وعليكم السلام في نموذج Login ، نريد ان نحتفظ باسم المستخدم في متغير . وفي النموذج Form01 كلما اردت ان تفتح النموذج admin ، فيجب ان تنادي الوحدة النمطية لكي تفتحه لك باسم المستخدم الصحيح ، او Sofiane . وهذه هي الوحدة النمطية التي تعمل مصدر بيانات للنموذج admin ، وتفتحه: Option Compare Database Public Current_User As String Public frm_RecordSource As String ' Public Function Get_User() Get_User = Current_User End Function Function Get_City() As String Get_City = Current_City End Function Function Current_City() As String On Error GoTo err_Current_City Dim x() As String City = DLookup("[COM] & '|' & [CBR] & '|' & [GPL] & '|' & [Branches] & '|' & [Centres Bitumes] & '|' & [Centre de Formation] & '|' & [Direction Générale] & '|' & [UDM] & '|' & [admin]", "users", "[username]='" & Current_User & "'") x = Split(City, "|") 'which city If x(0) = True Then Current_City = "COM" ElseIf x(1) = True Then Current_City = "CBR" ElseIf x(2) = True Then Current_City = "GPL" ElseIf x(3) = True Then Current_City = "Branches" ElseIf x(4) = True Then Current_City = "Centres Bitumes" ElseIf x(5) = True Then Current_City = "Centre de Formation" ElseIf x(6) = True Then Current_City = "Direction Générale" ElseIf x(7) = True Then Current_City = "UDM" ElseIf x(8) = True Then Current_City = "Admin" End If 'Mr sofiane is exempted If Current_User = "sofiane" Then Current_City = "" frm_RecordSource = "SELECT * FROM users" Else frm_RecordSource = "SELECT username, password, admin, [" & Current_City & "] FROM users Where [" & Current_City & "]= True" End If 'Debug.Print frm_RecordSource Exit_Current_City: DoCmd.OpenForm "admin" Forms!admin.RecordSource = frm_RecordSource Exit Function err_Current_City: If Err.Number = 94 And Current_User = "sofiane" Then Current_City = "" frm_RecordSource = "SELECT * FROM users" Resume Exit_Current_City Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function جعفر 709.Database4.mdb.zip

السلام عليكم استاذنا حفظك الله لاشك ان عملك هذا صدقة جارية وباذن الله تجزى تحياتي

في هذا المثال ستجد دالة حساب الفرق بين تاريخين قم بتطبيقها على برنامجك بالتوفيق http://arabteam2000-forum.com/index.php?/topic/104206-كيفية-حساب-الوقت-المنقضى/

الخلية B38 في ورقة العمل INDEDX مدمجة وكذلك الخلية B39 والخلية B66 والخلية B67 ... وهذا هو سبب الخطأ .. أزل الدمج وجرب الكود مرة أخرى وبالنظر إلى ورقة العمل INDEX أجدك قد قمت بعملية تسطير لنطاقات متباعدة .. ما الغرض من ذلك؟ الأفضل في بناء قواعد البيانات عدم ترك فواصل بين الصفوف ..

وعليكم السلام الظاهر انك اتلخبطت بين اكواد مشاركاتي ، فرجاء استخدم هذه المشاركة . واذا تريد ان توقف الرسائل ، فانظر الى اي سطر يبدأ بـ Msgbox ،ومثل ما اخبرتك ، خلي الاشارة امامه ، ولن تشتغل هذه الرسالة (ولكن لا تعملهم كلهم مرة واحدة ، والا لن تعرف ايهم تريد او لا تريد) جعفر 703.a555.mdb.zip

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

السلام عليكم شكرا للاستاذ شيفان على سطر الكود الجميل نعم يوجد حل لتعديل حقل الترقيم التلقائي Dim DB As Database, RS As Recordset Set DB = CurrentDb Dim i As Integer i = Me.id_start Set RS = DB.OpenRecordset("tbl1") RS.AddNew RS!id = i RS.Update Me.Requery txtName.SetFocus بداية ترقيم تلقائي.rar

جرب هذا الملف Super_5 Salim.rar

عندنا تازية اي مات احد من اقرباءنا لذلك ليس لدي وقت لكي افتح لابتوبي حتى يوم السبت الان انا عم استخدم موبايل اعتذر منك ... انتظرني حتى يوم السبت او حتى اجد وقت كافي للتعديل تقبل تحياتي

هناك نفس السؤال سئل سلمان الشهراني اتفضل قبل قليل انا رديت عليه

المعادلة تعمل ذلك جرب ان تكرر اي اسم

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

لذلك جميع الطرق تؤدي الى mde

بهذه الطريقة لا يمكن لآحد ان يُغير التصميم هههههههههههههههههههه ولكن لو حصل 1. تفعيل مفتاح الشفت . 2. اظهار كل الكائنات بهذه الطريقة يمكن لآى آحد ان يُغير التصميم

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

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

لان يتغير الطلبيات من عنوان الموضوع لذلك لا تجد من يرد عليك اليك هذا الرابط وهذا ايضا

ممكن تضع مرفق للتغيير عليه On Error GoTo err: DoCmd.RunCommand acCmdSaveRecord DoCmd.GoToRecord , , acNewRec Exit Sub err: If err.Number = 3022 Then MsgBox "الرقم الذاتي مكرر", vbCritical + vbMsgBoxRight, "خطأ" Else MsgBox err.Description End If او قد يستطيع هذا الكود لمعالجة الخطأ مساعدتك لكن يفضل وجود مرفق

ارسل ملف بوربوينت بالفكرة المطلوبة

الاخ bmos شكرا لك الاخ جلال الجمال وجزاك الله خير

مجدى يونس اخى الفاضل جزاك الله خيرا

ابداع .... سلمت أناملك 1- تم التعديل لتظهر الساعات والدقائق 2- لا ينصح بالتجميع داخل الجداول علما ان الاصدارات الجديدة تشتمل على حقول خاصة بالتجميع ويمكنك استخدام الاستعلام الموجود كمصدر للبيانات بدلا من الجدول 12 ظهرا تكتب الواحدة مساء وتاريخ اليوم 24 بعد منتصف الليل تكتب الواحدة صباحا وتاريخ يوم غد time2.rar

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

السلام عليكم ورحمة الله وبركاته كيف حالكم إخواني الكرام في المنتدى الغالي؟ لقيت نفسي نفسي (نفسي الأولى غير التانية ..) نفسي الأولى يعني أنا - وأعوذ بالله من كلمة أنا - ، ونفسي التانية يعني حاجة أتمنى أعملها .. المهم لقيت نفسي أعمل حاجة مختلفة .. بشكل مختلف .. بأسلوب مختلف يكون فيه عنصر التشويق والإثارة والبساطة مجتمعين في نفس الوقت. كتير مننا أول ما يسمع كلمة البرمجة والأكواد يتخض وكأن الموضوع مستحيل ...أبدا كل الحكاية إننا بنبدأ غلط مش بناخد الخطوات الصحيحة لتعلم البرمجة. لو عايز تتعلم البرمجة ونفسك بجد تبدأ تتمكن فيها خليك معايا ، هنقضيها رغي شوية وهزار شويتين ، وجد مش كتير ... ايه رأيكم؟ نبدأ على بركة الله .. أول حاجة بعد ما تنصب الأوفيس وتفتح الإكسيل تلاقي اللي انت عايزه مش موجود طيب نظهره إزاي ؟؟ ببساطة فيه زر أوفيس فوق شمال هتضغط عليه وتضغط Excel Options هتلاقي نافذة فيها خيار اسمه Show Developer tab in the Ribbon يعني إظهار التبويب ، وهتلاقي جنبه مربع تحط فيه علامة صح مبروك الخطوة الأولى واحد هيقولي عندك اقف أول خطوة فشلت فيها ..هقوله ربنا ما يحرمنا من الفشل لأن الفشل أول طريق النجاح .. هقولك لو ملقتش اللي بحكي عليه يبقا اصدار الأوفيس مختلف أنا شغال على 2007 ، وحضرتك على 2010 أو 2013 (بالنسبة ل 2003 والله ما أنا معبره كفاية عليه لحد كدا) ... بالنسبة لـ 2010 و 2013 بيكون من قائمة File ثم Options ثم من القايمة الشمال فيه Customize Ribbon وفي الناحية اليمين هتلاقي قائمة بالتبويبات وجنب كل تبويب علامة صح اللي يعجبك علم عليه صح واللي ميعجبكش ارميه في الزبالة... المهم هتلاقي التبويب اللي هيفتح لنا الباب لعالم البرمجة .. دا كان المفتاح للدخول نخش لتاني حاجة المفتاح عشان يفتح معاك لازم تحط عليه شوية زيت ، يعني لازم تضبط إعدادات الماكرو عشان الأكواد تشتغل معاك تمام من التبويب الجديد انقر على Macor Security هيفتح معاك نافذة بتختار منها آخر خيار Enable all macros وبتعلم علامة صح على الخيار اللي جنبه مربع Trust access to VBA الحمد لله خلصنا من النقطة الأولى والتانية ... ننتقل لنقطة جديدة : هيظهر التبويب في الآخر .. جمد قلبك واشرب ديو وافتح الباب لمحرر الأكواد اضغط على Visual Basic من التبويب المذكور أو لو بتحب تتعامل مع الكيبورد اضغط Alt + F11 كدا الباب الحمد لله فتح .. لو أول مرة تدخل على محرر الأكواد متتخضش واحدة واحدة هبندا نتعلم كل اللي موجود .. المهم محدش يستعجلني عشان أنا مستعجل النافذة دي اسمها نافذة المشروع Project window يعني الإكسيل بيتعامل مع المصنف إنه مشروع .. والمشروع مكون من 3 شيتات اللي بنسميهم أوراق العمل Sheet1 و Sheet2 و Sheet3 بس في 2013 الحمد لله بيكون الوضع الافتراضي شيت واحد بس (أصلي بتخنق من حتة 3 شيتات ع الفاضي بحس إن الملف كبير ع الفاضي وكل اللي يلزمني للعمل بشكل مبدئي هو شيت ولما أحب أضيف جديد مش هيكون أمر صعب) المهم مع أوراك العمل بنلاقي الكائن المسمى بالمصنف WorkBook ودا اللي بيحوي التعابين كلها أقصد الأكواد .. طيب محدش سألني ايه المنطقة الرمادي دي ومالها ضلمة ليه كدا؟ أنا أقولك عشان إنت تنورها .. اضغط دبل كليك على Sheet1 مثلا في نافذة المشروع هتلاقيها نورت والحمد لله استعداد لبداية الاحتفال بس فيه نقطة الأكواد لو اتكتبت هنا هتأثر على الورقة دي بس ... في الحتة اللي نورت الصق الكود اللي جاي ده وأفضل تكتبه بايدك عشان أنا شايف ايدك بتترعش وخايف .. قلت لك جمد قلبك الموضوع بسيط نبدأ بكود كدا سهل ولذيذ Sub Hello_Officena() MsgBox "Hello Officena!" End Sub أول كلمة Sub يعني ابدأ صب اللي عندك .. لا غلط .. معناها إجراء فرعي Subroutine يعني بينفذ مهمة محددة. وفي آخر الكود End Sub عشان القفلة (لو فاكرين شعبان عبد الرحيم بيقول ايه في الآخر بس خلاص دي القفلة بتاعته) هنا بقا دي القفلة بتاعت الإجراء الفرعي.. طيب ايه Hello_Officena دا اسم الإجراء ودا له قواعد أول حاجة مينفعش يبدأ برقم 77Hello_Officena ولا ينفع يكون فيه مسافة زي كدا Hello Officena بس ممكن لو حبينا بدل المسافة بحط Underscore اللي هي بتيجي بـ Shift + العلامة اللي على يمين الصفر اللي في الأرقام اللي فوق مش الأرقام اللي ف لوحة الأرقام .. وبردو فيه حاجات محرمة في اسم الإجراء زي علامة # أو $ أو % أو & أو % أو النقطة أو الفاصلة أو أو .. بقولكم ايه كفاية كلام عن اسم الإجراء .. لو كان فيه حاجة غلط في الاسم هيطلع لك رسالة خطأ تعرف إن فيه حاجة مش مظبوطة!! طيب السطر اللي في النص دا هو دا الكود .. الإجراء أو المهمة المراد تنفيذها .. بتبدأ بكلمة MsgBox ودي اختصار للكلمة Message Box أي صندوق الاسم ..... والله انا سرحت بس مش همسح اللي بكتبه خلي الكلام يكون تلقائي .. ودي بنكتب وراها الرسالة اللي عايزين نظهرها .. وطبعا فيه مسافة بعد الكلمة والكلام اللي هو الرسالة دا نص فنحطه بين أقواس تنصيص " " .. واحد برق لي عينه بيقولي بتتعمل إزاي دي قول لأقتلك .. هقوله حاضر يا باشا هقولك دي بتيجي إزاي .. اضغط على Shift وبعدين حرف الطاء بس خلاص .. طبعا أقواس التنصيص في أول النص وفي آخره مهو لازم القفلة. نجرب نشغل الكود إزاي .. فيه أكتر من طريقة يا إما تضغط على مثلث لونه أخضر فوق في شريط الأدوات الموجود في محرر الأكواد .. مش عاجبك شكل المثلث الأخضر خلاص روح لقائمة Run واضغط أول أمر .. لو انت تلميذ ذكي هتعرف الطريقة التالتة من التانية .. هسيبكم تقولوها إنتو ..مش عارفين !! طيب هقول أنا وخلاص اضغط على F5 من لوحة المفاتيح بس بشرط يكون مؤشر الماوس واقف في الكود.. لما نشغل الكود دا اللي هيظهر لي وبكدا أكون وصلتكم وفتحت لكم الباب .. لو عايزين نكمل قولوا كمل مش عايزين .. يبقا كفاية لحد كدا ويا كود ما يقربش منك حد .. ونعمل بالمثل الفلاحي اللي بيقول : ابعد عن الكود وادعي عليه! والسلام عليكم سبحانك اللهم وبحمدك .. نشهد أن لا إله إلا أنت ..نستغفرك ونتوب إليك كان معكم على الهواء مباشرة أخوكم أبو البراء من ملعب أوفيسنا .. إلى اللقاء مع مباراة جديدة وأهداف جديدة وشيقة دمتم بود ====================================== ====================================== السلام عليكم نرجوا وضع ردود الشكر والاعجاب على الرابط ادناه هنا ====================================== ======================================

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

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

الآن أخوتي وكما وعدتكم سابقاً ، فإني أرفق لكم أمثلة إضافية أسأل الله تعالى أن تفيدكم و تزيد من معلوماتكم مع تأكيدي أنني سأستمر في طرح المزيد من الأمثلة وبإنتظار ردودكم . مع وافر شكري و إعتزازي للجميع ، ، ، accarch11.zip accarch30.zip accarch43.zip picturereport.zip ColorCmdBtns2k.zip

مشكورررررررررررررررررررررررر

شكراً لك أخي nasersaeed و هنا الملفات التي وجدتها لدي قد تفيدك بشكل سريع ، علماً بأنني سأبحث المزيد لك عن المطلوب Mo2almeen.rar Ijazat.zip

يلا شباب بدي ردود سأضع بين أيديكم أكثر من 3000 برنامج بس بدي تشجيعكم BackUpWithCompact2k.zip

وهاي كمان برامج ولسى الخير قادم أنا شايف إنو لغاية الآن ما في لسى حد دخل على المنتدى و هيك راح تكون مفاجئة كبيرة للكل WriteNumber2000.zip ProgressBar2000.zip ColorRecords2000.zip Keyboard2000.zip FindAndFilter2000.zip HideMsgBoxFail2000.zip Animation2k.zip