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

احوانى واخواتى ابنائى وبناتى وكل مجتمع اوفسينا التقيكم مجدداً فى هذا الدرس الجديد اخترت له اسم الثلاثيه العجيبه upper lower proper(3).rar

السلام عليكم دالة استخراج تاريخ الميلاد او النوع او المحافظة من الرقم القومي ثلاثة معطيات بدالة واحدة Option Explicit ' بسم الله الرحمن الرحيم ' ******************** ' دالـــــــــــــــة ' Kh_Date_Sex_Province ' ( استخراج تاريخ الميلاد او النوع (ذكر - انثى ' او المحافظة من الرقم القومي '============================================== ' MyTest ' اذا كانت = 1 تقوم باستخراج تاريخ الميلاد ' اذا كانت = 2 تقوم باستخراج النوع ' اذا كانت = 3 تقوم باستخراج المحافظة '---------------------------------------------- ' MyProvinces في متغير الجدول ' العمل لم يستكمل بعد ' يمكنك إضافة المحافظات الاخرى الغير موجودة ' او تعديل الموجود في حالات الخطأ ' بنفس الطريقة الرقم اولا ثم "/" ثم اسم المحافظة ' : مثال على ذلك ' "01/القاهرة" '============================================== '----------------------------------------------------------------- Function Kh_Date_Sex_Province(MyNumber As Variant, MyTest As Byte) Dim MyProvinces As Variant Dim r As Integer Dim yy As String Dim ty As String * 1 Dim d As String * 2, m As String * 2, y As String * 2 _ , x As String * 2, xx As String * 2 '============================================== ' يمكنك إضافة المحافظات الاخرى الغير موجودة ' او تعديل الموجود في حالات الخطأ MyProvinces = Array("01/القاهرة", "02/الإسكندرية", "12/الدقهلية", "13/الشرقية" _ , "14/القليوبية", "15/كفر الشيخ", "16/الغربية", "17/المنوفية", "18/البحيرة" _ , "19/الإسماعيلية", "21/الجيزة", "22/بني سويف", "24/المنيا", "25/أسيوط" _ , "26/سوهاج", "27/قنا", "28/أسوان", "29/الأقصر", "33/مطروح") '============================================== Kh_Date_Sex_Province = "" On Error GoTo 1 If Len(Trim(MyNumber)) = 0 Then GoTo 1 End If If Not IsNumeric(MyNumber) Or Len(MyNumber) <> 14 Then Kh_Date_Sex_Province = "Error_MyNumber" GoTo 1 End If If MyTest = 1 Then d = Mid(MyNumber, 6, 2) m = Mid(MyNumber, 4, 2) y = Mid(MyNumber, 2, 2) ty = Left(MyNumber, 1) Select Case ty Case "2": yy = y Case "3": yy = "20" & y Case Else: yy = "" End Select If yy <> "" Then Kh_Date_Sex_Province = DateSerial(yy, m, d) ElseIf MyTest = 2 Then If Left(Right(MyNumber, 2), 1) Mod 2 = 1 Then _ yy = "ذكر" Else yy = "انثى" Kh_Date_Sex_Province = yy ElseIf MyTest = 3 Then x = Mid(MyNumber, 8, 2) For r = LBound(MyProvinces) To UBound(MyProvinces) xx = MyProvinces(r) If x = xx Then Kh_Date_Sex_Province = Right(MyProvinces(r), Len(MyProvinces(r)) - 3) Exit For End If Next End If 1: End Function بالنسبة لمعطيات المحافظات لم تستكمل بعد ويمكنك اضافة المحافظات المتبقية حسب ما شرحت بالكود خبور خير دالة استخلاص تاريخ الميلاد و النوع و المحافظة من الرقم القومي.rar

أخى مهند هذا هو شرح كود الاخفاء Sub ragab() 'تعريف المتغيرات Dim rng As Range Dim cl As Range Dim LC As Integer 'ايقاف اهتزاز الشاشة لتسريع الكود Application.ScreenUpdating = False 'تحديد رقم آخر عمود فارغ فى الصف الأول LC = Range("A1").End(xlToRight).Column 'تحديد المدى بالخلايا المحتوية على المجموع فى الصف الحادى عشر Set rng = Range(Cells(11, 2), Cells(11, LC)) 'حلقة تكرارية لمعرفة الخلايا المحتوية على القيمة صفر فى المجموع For Each cl In rng If cl.Value = 0 Then 'اخفاء عمود الخلايا المحتوية على صفر cl.EntireColumn.Hidden = True End If Next ' ارجاع اهتزاز الشاشة Application.ScreenUpdating = True End Sub وبالنسبة لكود الاظهار فهو يقوم بالعملية العكسية

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

وعليكم السلام الطريقة الصحيحة لوضع قاعدة البيانات على الشبكة ، هي ان تعملها جزئين ، جزء للجداول (وتسمى BE) ، وجزء لباقي كائنات البرنامج (وتسمى FE)، جزء الجداول يكون على مجلد على الشبكة ، ويكون لجميع المستخدمين صلاحيات القراءة/التغيير ، جزء بقية الكائنات ، يكون على كمبيوتر كل مستخدم ، وتكون جداول الجزء الاول مرتبطة مع هذا الجزء. هناك عدة طرق لعمل تحديث لجزء الكائنات ، بحيث يقوم المبرمج بوضع النسخة الجديدة في نفس مجلد جزء الجداول على الشبكة (لأن جميع المستخدمين عندهم صلاحيات القراءة/التغيير للمجلد هذا ، مما يجعل هذا المجلد هو المجلد الاسهل للإستعمال)، احد طرق التحديث: 1. ان تعمل جدول في جزء الجداول ، ويكون فيه حقل واحد ، وقيمة واحدة فقط ، وهي رقم التحديث ، وطبعا هذا الجدول سيكون مربوط مثل بقية الجداول ، بالجزء الثاني ، 2. وفي جزء بقية الكائنات ، تعمل جدول محلّي ، اي غير مرتبط مع الجزء الاول ، ويكون فيه حقل واحد ، وقيمة واحدة فقط ، وهي رقم النسخة الحالية للجزء الثاني ، 3. عند تشغيل الجزء الثاني ، فسيعمل مقارنة بين رقم نسخته (من الجدول المحلي) ، ورقم نسخة التحديث (من الجدول المرتبط) ، فاذا تطابقت الارقام ، فمعناه انه لا يوجد نسخة جديدة ، اما اذا لم تتطابق الارقام ، فمعناه ان هناك نسخة جديدة موجودة ، ويجب ان يتم استبدال نسخته (التي على كمبيوتره ، بتلك التي في الشبكة) هذه صلب الفكرة جعفر

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

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

آسف على التأخير مرفق الملف بعد زالة التكرارات و اعتقد انه نفس نتيجه المبدع أ ياسر خليل بالتوفيق تحميل الملف من هنا

أخي الكريم يرجى تغيير اسم الظهور ليعبر عن شخصكم الكريم إليك الكود التالي عله يفي بالغرض Sub CountCells() Dim Ws As Worksheet, Cel As Range, I As Integer Set Ws = ActiveSheet Application.ScreenUpdating = False For Each Ws In ThisWorkbook.Worksheets For Each Cel In Ws.Range("I7:I" & Ws.Cells(Rows.Count, "I").End(xlUp).Row) If GetCellColorForReals(Cel) = 65535 Then I = I + 1 Next Cel Next Ws If I = 0 Then MsgBox "لا يوجد خلايا ملونة", 64 Else MsgBox "عدد الخلايا الملونة يساوي " & I End If Application.ScreenUpdating = False End Sub Function GetCellColorForReals(R As Range) As Long GetCellColorForReals = R.DisplayFormat.Interior.Color End Function تقبل تحياتي

أخواني الأعزاء في هذا المنتدى : أضع بين أيديكم العديد من البرامج الجاهزة مع الشرح الكامل ، جمعتها من موقع أجنبي و فيها العديد من المستويات المبتدئ المتوسط المتقدم حيث قمت بتجميعها من العديد من المواقع و المنتديات الأجنبية ليتم حصرها في منتدانا الحبيب هذا أرجو منكم الرد لوضع المزيد من البرامج ، حيث ومن خلال ردودكم سأقوم بوضع إحتياجاتكم من البرامج في حال توفرها لدي ، حيث يوجد لدي مكتبة كبيرة من البرامج تحتوي ما يقارب 3000 برنامج و هناك المزيد . مع الشكر للجميع و أريد منكم فقط دعوة من قلب صادق لي و لوالدي ،،، accarch181.zip accarch180.zip

..... شاهدوا المرفق أخوكم عماد الحسامي

اخى فى الله الاستاذ / احمد السلام عليكم الاجمل من الملف هو لقائى بحضرتك فبارك الله فيكم وفى عمرك لاأعتقد أن هناك مشكلة بالخصم ولا بالاضافة فضلا قم بحذف جميع القيم ومن ثم 1000 فى الاضافة ثم 200 فى الخصم إذن الحالى = 800 ثم على نفس الـــ 1000 سنضيف 100 إذن الحالى = 900 ثم فى الخصم 400 إذن الحالى = 500 تشرفت بكم أخى الفاضل ***** تقبل وافر تقديرى واحترامى **** وجزاكم الله خيرا

هل تقصد هكذا ترحيل بيانات.rar

أخى الفاضل / nasersaeed أخى الفاضل / السمالوطى جزاكم الله خيرا على هذه الكلمات الطيبة

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

السلام عليكم انا فكرتي تختلف عن فكرة أخي سعيد ، وهذه ميزة أكثر من مشاركة في موضوع واحد فكرتي هي: 1. عمل جدول مؤقت باسم tbl_Temp ، ونُدخل فيه جميع الاشهر ، ابتداء من الشهر بعد تاريخ التوظيف ، الى الشهر الماضي ، لكل موظف ، 2. ثم نستعمل الاستعلام في مقارنة هذه الاشهر ، مع الاشهر المدفوعه ، ونطلب من الاستعلام ان يعطينا قائمة بالاشهر الغير موجودة الكود التالي يعمل العمل رقم 1: Private Sub cmd_Go_Click() On Error GoTo err_cmd_Go_Click Dim rstF As DAO.Recordset Dim rstT As DAO.Recordset 'empty tbl_Temp CurrentDb.Execute ("Delete * From tbl_Temp") 'table To Set rstT = CurrentDb.OpenRecordset("Select * From tbl_Temp") 'table From Set rstF = CurrentDb.OpenRecordset("Select * From akad_amel") rstF.MoveLast: rstF.MoveFirst RC = rstF.RecordCount 'Loop from table From, 'and get the w-code, and his starting date For i = 1 To RC Date_From = rstF!bad_akd 'Starting date Date_To = DateSerial(Year(Date), Month(Date), 0) 'Last month How_Many_Months = DateDiff("m", Date_From, Date_To) 'How many months in-between Last_Day_Of_Last_Month = DateSerial(Year(Date_From), Month(Date_From), 30) 'Last_Day_Of_Last_Month 'we will generate All the months for each Employee, from his start date to Last month For j = 1 To How_Many_Months 'start adding rstT.AddNew rstT!w_code = rstF!w_code 'w_code rstT!iDate = DateAdd("m", j, Last_Day_Of_Last_Month) 'the month rstT.Update Next j rstF.MoveNext Next i rstF.Close: Set rstF = Nothing rstT.Close: Set rstT = Nothing MsgBox "Done" Exit Sub err_cmd_Go_Click: If Err.Number = 3021 Then 'No Records Exit Sub Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub ثم النتيجة تكون في الاستعلام qry_Temp Without Matching raetb_tamb ، والذي يُفضل ان تعمل تقرير على اساسه ** ملاحظة ، بسبب استعمال الجدول المؤقت ، والذي يتم حذف جميع بياناته واضافة بيانات جديدة ، هذا يجعل حجم قاعدة البيانات تكبر ، فيجب استخدام الضغط والاصلاح بين كل فترة لإرجاع الحجم الى حقيقته جعفر 240.الشهر الغير موجود.mdb.zip

تفضل أخى تم فصل الكود الى كودين كما تريد ترحيل بيانات.rar

اخي الفاضل محرر الاكواد محمى بكلمة سر فارجو الغاء الحماية حتى يتسنى للجميع المساعدة

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

جزاكم الله خيرا إخوتى الأفاضل وان شاء الله يتم تطوير البرنامج لتبية كل الاحتياجات وتنفيذ كل الملاحظات

انا ايضا جربت الكود ولم تحدث معي اي مشكلة ... شكرا أخي ياسر على الكود الإكثر من رائع .. مع شكري للإستاذ رجب جاويش

ألف ألف مبرووووك.. وعقبال ال100 سنة وابن ابن الحفيد

جربت الكود شغال ومرفق النتيجه جزاك الله كل خير اخى ياسر ملف تجربة1.rar

أخى ياسر أخى محمد جربت عندى كود أخى ياسر وهو يعمل بشكل ممتاز وسريع بدون أى مشاكل

تجربة ناجحة تمام ا / ياسر

أخى ياسر أخى شبكة النبراس الإسلامية الكود يعمل عندى بشكل ممتاز تسلم ايديك أخى ياسر أنا اعمل على أوفيس 2010

أخى الفاضل جرب هذا الكود لعله يكون كما تريد Sub نقل() Dim Rng1 As Range, Rng2 As Range Dim LastRow2 As Long, LastRow3 As Long Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet '=========================================================== Set sh1 = Sheets("B"): Set sh2 = Sheets("D") Set sh3 = Sheets("Archive") Set Rng1 = sh1.Range("D8:BM39") Set Rng2 = sh1.Range("A40:BL40") '=========================================================== Application.ScreenUpdating = False LastRow2 = sh2.Range("A" & Rows.Count).End(xlUp).Row + 1 LastRow3 = sh3.Range("A" & Rows.Count).End(xlUp).Row + 1 '=========================================================== Rng1.Copy sh3.Range("A" & LastRow3).PasteSpecial Paste:=xlPasteValues Rng2.Copy sh2.Range("A" & LastRow2).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Application.ScreenUpdating = True End Sub ترحيل بيانات.rar

بارك الله فيك يا مبدع

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

ربما ينال اعجابك التأخيرات salim.rar

سبق ان رأيت مثل هذه الفكرة ولكن في ملف للاكسيل .. نتمنى ان نرى مثلها في الاكسس

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

السلام عليكم هذه بعض الفوائد: 1- تستطيع العمل على واجهات جميلة جدا تبهر بها المستخدم. 2- سهولة التعامل مع قاعدة البيانات من اضافة ,حذف ,تعديل , ..... الخ. 3- سهولة التحكم بالبيانات وكيفية عرضها للمستخدم. 4- سرعة التعامل مع البيانات. 5- أمنية عالية جدا لقاعدة البيانات. 6- تستطيع انشاء قاعدة بيانات أكسس وانشاء الجداول والحقول والتعامل معها عن طريق الـVisual

Private Sub txtQuant_AfterUpdate() If Me.txtQuant > Me.txtStock Then MsgBox "Le stock est insuffisant" غير كافي المخزون Me.txtQuant = Null Exit Sub End If سلام عليكم بخصوص ترك رسالة عن الكمية الموجودة في المخزن quant > stock

وتكون النتيجة كما بالملف المرفق spin.rar

وعليكم السلام أخي الغالي أبا الحسن والحسين إضافة لما تفضلت به في الملف المرفق من الكود ..إضافة بسيطة جداً لكي يعمل الكود على كلا النظامين 32 بت و64 بت (حيث أن الملف المرفق في المشاركة الخاصة بك سيعمل على 64 بت فقط) استبدال أسطر الإعلانات العامة في الموديول بهذه الأسطر #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hwnd As LongPtr) As Long #Else Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" ( ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" ( ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "User32" ( ByVal hwnd As Long) As Long #End If ليصبح الكود النهائي بهذا الشكل (الكود يوضع في حدث الفورم ) #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hwnd As LongPtr) As Long #Else Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" ( ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" ( ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "User32" ( ByVal hwnd As Long) As Long #End If Sub RemoveCaption(objForm As Object) Dim lStyle As Long Dim hMenu As Long Dim mhWndForm As Long If Val(Application.Version) < 9 Then mhWndForm = FindWindow("ThunderXFrame", objForm.Caption) 'XL97 Else mhWndForm = FindWindow("ThunderDFrame", objForm.Caption) 'XL2000+ End If lStyle = GetWindowLong(mhWndForm, -16) lStyle = lStyle And Not &HC00000 SetWindowLong mhWndForm, -16, lStyle DrawMenuBar mhWndForm End Sub Private Sub CommandButton1_Click() Unload Me End Sub Private Sub UserForm_Initialize() Call RemoveCaption(Me) End Sub ونقطة أخيرة للاستفادة الكاملة من الكود يمكنك وضع الإعلانات العامة والإجراء المسمى RemoveCaption في موديول عادي ..بينما يوضع حدث زر الأمر وحدث بدء تشغيل الفورم في حدث الفورم أي يمكن الفصل بينهما تقبل تحياتي

أخي الكريم نور وحيد إليك الملف التالي إثراءً للحل Multi Data Validation List YasserKhalil.rar أخي الحبيب ياسر العربي حلك رائع جداً ..إضافة بسيطة لحلك هو إمكانية جعل القوائم كلها مطاطية أي غير ثابتة إليك حل المتميز ياسر العربي بإضافة بسيطة وهي جعل القوائم ديناميكية Multi Data Validation List Araby.rar

بارك الله فيك

أخى الحبيب / فضل شكرا جزيلا أخى الحبيب على هذه الكلمات الطيبة وجزاك الله كل خير

أستاذى الحبيب / عبد الله باقشير دائما أتشرف بمرور أستاذى الحبيب وكلماته المشجعة تقبل أرق تحياتى وتقديرى

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

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

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

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

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

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

شوفولي هالبرامج إشي من الآخر بس والله حاب أسمع تعليقاتكم بدي دعمكم و لسى في كمان كثيييييييييييييييييييييييييييييييير FormsAndReports2000.zip PrintCurrentRecord2000.zip selectionfromcombobox2000.zip MsgBoxMove2000.zip Dialog.zip 2ListBox2000.zip Fatoorh2000.zip IIF2000.zip name2002.zip TreeView2000.zip

شوفولي هالبرنامج و إدعولي وما بدي أذكركم هاي برامج مجمعة من مواقع ومنتديات ، يعني مش أنا إلي عاملها وبشكر أصحاب هذه البرامج لأنها راح تكون مفيدة للجميع إنشاء الله wzbackup.zip

وهنا المزيد المزيد ،،،، سأقوم بوضع برامج بشكل يومي وبشكل كبير ، ، ، بس أهم شي زي ما وصيتكم الردود و الدعاء accarch154.zip accarch161.zip

وهنا برامج أخرى ،،،،، لا تنسونا بالدعاء زي ما وصيتكم ، ، ، accarch179.zip accarch171.zip