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

نبارك لأخينا وحبيبنا صالح حمادي قدوم أول مولود له الزهرة (غفران ) بورك فى الموهوب و شكرت الواهب و رزقت برها .. اللهم انبتها نباتا حسنا الف الف مبروك

تفضل يا سيدي: Private Sub cmdScan_Click() Dim Ret As Long, PictureFile As String PictureFile = mypathofdb() & "\PIC\" & "pic" & Me.ImageID & ".jpg" 'Ret = TWAIN_AcquireToFilename(Me.hwnd, PictureFile) Ret = TransferWithoutUI(300, RGB, 0, 0, 8.3, 11.7, PictureFile) If Ret = 0 Then Me.ImagePath = PictureFile Me![ImageFrame].Picture = Me![ImagePath] Else MsgBox "فشلت عملية المسح الضوئي", vbCritical, "تحذير" End If End Sub Private Sub cmdSelect_Click() 'TWAIN_SelectImageSource (Me.hwnd) PopupSelectSourceDialog End Sub . جعفر za-EMP.zip

استيدل الكود بهذا Sub copy_All_visible() Application.ScreenUpdating = False Dim My_sh As Worksheet Dim My_range As Range Dim k, m, lr, i, x As Integer Dim arrsh() As Integer k = Sheets.Count: m = 3: Set My_sh = Sheets(k): My_sh.Range("a3:m1000").ClearContents For i = 1 To k - 1 If Sheets(i).Visible = True Then t = t + 1: x = Sheets(i).Index ReDim Preserve arrsh(1 To t) arrsh(t) = Sheets(i).Index End If Next For y = 1 To UBound(arrsh) With Sheets(arrsh(y)) lr = .Cells(Rows.Count, 1).End(3).Row Set My_range = .Range("a6:k" & lr) End With With My_sh .Cells(m, 1) = Sheets(arrsh(y)).Cells(1, 2) .Cells(m, 2) = Sheets(arrsh(y)).Cells(2, 2) My_range.Copy .Range("c" & m).PasteSpecial xlPasteValues m = m + lr - 4 End With Next My_sh.Activate Range("a3").Select Erase arrsh Application.ScreenUpdating = True End Sub

شو الهدف؟ 1. بياناتك جداول ، 2. ثم تنقلها للورد!! هناك 3 طرق من تصدير التقرير والتي تحترم تنسيق التقرير ، acFormatHTML ,acFormatSNP, acFormatPDF : 1. acFormatHTML : صيغة HTML ، والتي يمكن للورد فتحها ، 2. acFormatSNP : وهي صورة ، ولا اعتقد ان الورد يستطيع فتحها ، 2. acFormatPDF : صيغة HTML ، والتي يمكن للورد 2013 فما فوق ان يفتحها ، هل ستقوم بتعديل البيانات بعد حفظها في الورد؟ جعفر

السلام عليكم هذا هو السطر المقصود .Range("A2:S2").AutoFilter Field:=4, Criteria1:=">=" & myDate1, Operator:=xlOr, Criteria2:="<=" & myDate2 تم تغير الجزء xlOr الى xlAnd

بارك الله فيك أخي الكريم الزباري اسمح لي بمشاركة بسيطة بالموضوع .. طالما أن كود الاستدعاء يمكن أن يستخدم أكثر من مرة فالأفضل وضعه في إجراء يمكن الاستدعاء منه ..اطلع على الكود وستعرف مقصدي Sub ImportAhmad() ReadString "ahmad", Sheet2 End Sub Sub ImportAli() ReadString "ali", Sheet3 End Sub Sub ImportYosuf() ReadString "yosuf", Sheet4 End Sub Sub ReadString(customer As String, sh As Worksheet) Dim sLine As String Dim sFName As String Dim intFNumber As Integer Dim lRow As Long Dim lColumn As Long Dim vDataValues As Variant Dim intCount As Integer sFName = ThisWorkbook.Path & "\Info\" & customer & ".txt" intFNumber = FreeFile On Error Resume Next Open sFName For Input As #intFNumber If Err.Number <> 0 Then MsgBox "Text File Not Found!", vbCritical, "Error!" Exit Sub End If On Error GoTo 0 sh.Cells.Clear lRow = 1 Do While Not EOF(intFNumber) Line Input #intFNumber, sLine vDataValues = Split(sLine, vbTab) With sh lColumn = 1 For intCount = LBound(vDataValues) To UBound(vDataValues) .Cells(lRow, lColumn) = vDataValues(intCount) lColumn = lColumn + 1 Next intCount .Cells.EntireColumn.AutoFit .Activate .Range("A1").Select End With lRow = lRow + 1 Loop Close #intFNumber MsgBox "Values From File '" & sFName & "' Were Imported To Sheet '" & sh.Name & "'!", vbInformation End Sub

السلام عليكم ورحمة الله وبركاته حسب رؤية الاخ ياسر خليل أبو البراء ان كثرت الدوال المعرفة التي تقوم بعمليات التفقيط بأن نقوم بإنشاء دالة جديدة تجمع مزايا كل دوال التفقيط المختلفة ..كدالة الأخ هادي ولكن بمزيد من التفاصيل مع شرح لبارامترات الدالة .. وأن تكون الدالة جامعة لتفقيط اللغة العربية واللغة الإنجليزية وبها كل مميزات دوال التفقيط الأخرى بدلاً من التشتت فيما بين هذه الدوال فقد رأيت ان افضل سبيل لذلك وهو دمج دالة عربية قوية مع افضل دالة انجليزية وعلي اساس ذلك تم دمج دالتي تفقيط عربية وانجليزية معا لتصبح دالة واحدة تعمل باللغتين العربية والانجليزية الدالة العربية هي دالة الاستاذ / أبوهاني والدالة الانجليزية للمؤلف الانجليزي Andy Wiggins من منتدي Byg Software Limited وكانت النتيجة هي دالة تفقيط واحدة عربي انجليزي تعمل باللغة العربية او الانجليزية وارجو من الاخوه اللذين يجربون هذه الدالة تفضلا لا امرا ان يذكر نتيجة التجربة مع ذكر اصدار الويندوز ونسخة الاكسيل اللتين يعمل عليهما المرفقات تشمل 1- ملف اكسيل به الدالة مع الشرح المصور 2- موديل به الدالة لمن يريد استيرادها الي اي ملف 3- فلدر به صور طريقة اضافة الدالة الي ملف 4- فلدر به صور شرح استخدام الدالة المرفقات دالة تفقيط عربي انجليزي.rar نبد بشرح مصور ل طريقة اضافة الدالة الي اي ملف اكسيل والان مع شرح مصور ل بارميترات الدالة وطريقة الاستخدام مع تمنياتي بالتوفيق للجميع

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اليكم برنامج خبور المحاسبي المعدل الذي قمت فيه باجراء بعض التعديلات التي اثمرها لنا تجاوبكم معي في الاصدارين الاول والثاني وكانت الاراء تنصب اساسا في التالي : اولا- الدليل المحاسبي : عملته بالشكل التالي : جدول للدليل تضبط من خلالها السلسلة الرقمية لكل اختيار من الاسم في الدليل , مثلا لو اخترنا اصول ثابتة نضبط السلسلة الرقمية لها مثلا من الرقم 11 الى الرقم 99 والبرنامج بيتعامل مع هذه السلسلة في اضافة الحسابات لهذا الاسم للعلم ان لك حرية اختيار السلسلة الاسمية والرقمية فقط ان تكون في ترتيب متسلسل داخل جدول الدليل يعني ممكن تعمل اسمان لسلسلة واحدة مثلا اصول متحركة / صناديق من 1201 الى 1500 اصول متحركة / بنوك من 1501 الى 2000 واثناء اضافتك لاي حساب سيظهر لك قائمة الاسماء التي وضعتها في جدول الدليل لاختيار الصنف الذي تريده لترتيب حساباتك في ميزان المراجعة 2- نتيجة لهذه الاضافات حذفت قائمة العملاء والموردين الموجوده في الاصدارات السابقة واضافتهم ستكون في ميزان المراجعة (الذي اصبح مكون من 1000 سجل ) حسب التسلسل الذي ستضبطه في دليلك ممكن تعمل للعملاء سلسلة رقمية وللموردين سلسلة رقمية اخرى صفحة ميزان المراجعة: تعمل التالي : 1- هي المحتوى الكلي للحسابات تظهر من خلالة جميع الحسابات متسلسلة بالضابط الدليلي مجاميع وارصدة بالعملة الرئيسية وارصدة العملات الاخرى مع تعريف للحساب اذاكان مدين اودائن واسماء العملات المستخدمة لكل حساب ويظهر فيه فرق سعر العملات التلقائي قبل المجاميع الكلية 2- تتحول اثناء استخدامك للتصفية من عمود الدليل الى كشوفات تحليلية للحسابات حسب الصنف الدليلي المختار مثلا اذا اخترت اصول ثابتة تظهر لك الحسابات المشتملة على هذا الاسم مع المجاميع والارصدة الخاصة بها ويتحول الاسم من ميزان المراجعة الى كشف تحليلي لحساب الاصول الثابتة وهكذا بالنسبة لجميع الاصناف الدليلية 3- تتحول اثناء استخدامك للتصفية من عمود العملة الى كشف بحسابات العملة المختارة. ثانيا: بالنسبة للتعديلات وهي ملاحظة الاخ تويتي يمكنك تعديل القيد مثلا: اذا كان لديك القيد الاتي 50000 من حـ مصروفات نثرية 50000 الى حـ الصندوق يمكنك التعديل الى 15000 من حساب مصروفات نثرية 35000 من حـ مصروفات صيانه 50000الى حـ الصندوق والعكس وطبعا لديك صفحة القيود تتكون من 200 سجل يمكنك التعديل بدون اي مشاكل لعدد السجلات في اي قيد ممكن تعدل القيد المكون من 2 سجل الى 200 سجل والعكس وهو ياخذ الترتيب التلقائي حسب رقم القيد ويمكنك التأكد من ذلك بنسخ البيانات ( وهو زر جديد) لنسخ البيانات في ملف جديد ستلاحظ الترتيب التسلسلي لبياناتك حسب الترتيب التصاعدي للقيود اضافات جديدة : 1- لا يفتح البرنامج الا باسم المستخدم وكلمة المرور اسم المستخدم " خبور" كلمة المرور"بسم الله" يمكنك بعد ذلك تعديل اسم المستخدم وكلمة المرور من زر اسم المستخدم في صفحة الاعدادات ويمكنك تعديل كلمة المرور للتعديلات من نفس الزر كلمة المرور للتعديلات "بسم الله" 2- صفحة القيود هي الصفحة التي يتم فيها التعديل واصبحت صفحة دفتر الاستاذ صفحة للتنقل السهل من القوائم لجميع الحسابات في ميزان المراجعة واختيار تواريخ اختيارية من القوائم للكشوفات ارجو من الله تعالى ان ينال رضاكم فقط لا تنسونا من الدعاء ولا تنسونا من ملاحظاتكم اخوكم خبور __________________________.rar

وعليكم السلام طبعا ، اتبع الخطوات وغيُر الى اسم برنامجك جعفر

رجاء تجربه على بقية الاجهزة ، القديمة والجديدة ، واخبرنا عن النتيجة جعفر

استاذ / سليم حاصبيا جزاك الله خيراً وجعله الله فى ميزان حسناتك

السلام عليكم تفضل أخى عمل الشهادات لأى مرخلة.rar

جرب هذا الماكرو Sub Copy_To_Next_Row() Dim my_sh As Worksheet Dim LastRow As Integer Set my_sh = Sheets("test") If ActiveSheet.Name <> "test" Then Exit Sub LastRow = Cells(Rows.Count, 1).End(3).Row For i = 2 To LastRow +7 Step 3 If Not IsEmpty(Cells(i, 2)) Then Cells(i + 2, 2) = Cells(i + 1, 2) End If Next End Sub

سليم حاصبيا اخى الفاضل ما شاء الله عليك

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

إضافة إلى إجابة الأستاذ العزيز و القدير تشفان: يمكن إستعمال هذا السطر فقط لحدث عند التغيير للكمبوبكس Me.kesm = DLookup("[kesm]", "users", "deCode([UName],'User')= user") ليقوم بالعمل

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

السلام عليكم هذا البرنامج وحسب تجربتي السابقة ، لا يدعم اللغة العربية. جعفر

الف مليون مبروك . اللهم أنبته نباتاً حسناً، واجعله قرة عين لوالديه واحفظه، وبارك لنا فيه واجعله من أهل الصلاح والتقوى

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

جرب هذا الماكرو Sub Copy_Data() Application.ScreenUpdating = False Dim ws1, ws2, ws3 As Worksheet Set ws1 = Sheets("Main"): Set ws2 = Sheets("Actual Login logout") _ : Set ws3 = Sheets("Scheduled Data") Dim Foundcel2, Foundcel3 As Range Dim R2, R3 As Integer Dim Lr1, Lr2, Lr3 As Integer Dim Cel As Range Dim Count_data2, Count_data3 As Integer Dim My_Rg1, My_Rg2, My_Rg3 As Range Lr1 = ws1.Cells(Rows.Count, 1).End(3).Row: Set My_Rg1 = ws1.Range("b2:b" & Lr1) Lr2 = ws2.Cells(Rows.Count, 1).End(3).Row: Set My_Rg2 = ws2.Range("a2:a" & Lr2) Lr3 = ws3.Cells(Rows.Count, 1).End(3).Row: Set My_Rg3 = ws3.Range("a2:a" & Lr3) ws1.Select ActiveSheet.Range("c2:f" & Lr1).ClearContents For Each Cel In My_Rg1 Count2 = Application.CountIf(My_Rg2, Cel): Count3 = Application.CountIf(My_Rg3, Cel) If Count2 + Count3 <> 2 Then GoTo 1 Set Foundcel2 = My_Rg2.Find(what:=Cel): R2 = Foundcel2.Row Set Foundcel3 = My_Rg3.Find(what:=Cel): R3 = Foundcel3.Row Cel.Offset(0, 1) = ws2.Cells(R2, 4): Cel.Offset(0, 2) = ws2.Cells(R2, 5) Cel.Offset(0, 3) = ws3.Cells(R3, 4): Cel.Offset(0, 4) = ws3.Cells(R3, 5) 1: Next Application.ScreenUpdating = True End Sub

من تجربة شخصية يحولة ل pdf ثم يستخدم برنامج Wondershare PDF Converter Pro ممتاز مع الاحرف العربية يحول لعدة صيغ

ارجو المساعدة

السلام عليكم هل تقصد هكذا بحث بين تاريخين.rar

ايش رايك بطريقة غير تقليدية ، وعصفورين بحجر واحد جعفر

نعيد برمجة ملف ابراهيم بطريقة أبوالبراء ابراهيم.rar

بارك الله فيك أخي العزيز الزباري على هذا الموضوع المتميز .. تقبل وافر تقديري واحترامي

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

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

اخى جرب هذه الطريقه افتح الملف ادخل الى محرر الاكواد ثم اضغط مرتين على ThisWorkbook سيفتح لك محرر الاكواد ضع هذ الكود فى محرر الاكود Private Sub Workbook_Open() Application.Calculation = xlAutomatic End Sub ثم قف بالماوس فى وسط الكود ثم اضغط F5 لتفعيل الكود ثم جرب عمل المعادله ستجدها تعمل ان شاء الله تقبل تحياتى

شكراً لتفاعلكم البناء.. نفس الفكرة كانت تراودني منذ فترة طويلة، وجربت طرق عديدة لكن لم أتوصل إلى أي نتيجة بسبب التعامل مع الماكرو الذي يعتبره الكمبيوتر على أنه فايروس، وكذلك عدم المقدرة على فتح الملف بأكثر من شخص، لذا لابد من التفكير بطريقة بدائية لتقسيم الملف ومن ثم إعادة تجميعه.. وقد قمنا في هذا المثال من تجميع بيانات من ملفات نصية (txt.*) وقراءتها باستخدام قائمة تجميعية، وكذلك تم توحيد مكان قراءة الملفات النصية حتى يمكن قراءتها لجميع المستخدمين دون أن يؤثر ذلك على مسار الملف المصدر (الإكسيل)، بمعنى أنه لو أنه تم نقل ملف الإكسيل إلى سطح الإكسيل مثلاً فإنه يتم قراءة الملفات النصية من مصدرها في الشبكة دون أن يفقد ارتباطها. وقبل أن ننقل الملفات إلى الشبكة سنجربها أولاً محلياً ، ومن ثم سنخبركم بما هو التغيير الذي يجب أن نفعله عندما ننقلها إلى الشبكة.. إليكم المرفقات، وقبل أن تبدأ انقل ملف الإكسيل مع المجلد إلى نفس المكان وليكن سطح المكتب مثلاً. my_sharing_files.rar أتمنى أن يشتغل معكم الملف كالتالي:

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

الاخوة الكرام بن علية هشام شلبي جزاكم الله كل خير علي سعيكم وسرعة ردكم وجعله الله في موازين حسناتكم يوم القامه وما تفضلتم به يفى بالغرض تمام مع سهوله العمل به فلقد حاولت ذلك بدله ( COUNTIF ) ولم افلح في الحل فلكم جزيل الشكر اخوكم/ جلال محمد

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

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

السلام عليكم ورحمة الله أهلا أخي وحبيبي هشام، من المفروض أن عملية الحساب والمطلوب هو كل القيم من المجال [25 ، 30[، أي هي القيم الأكبر من أو تساوي 25 والأصغر تماما من 30... (من العادة نعمل بهذه الطريقة بحكم عملي) وفي هذه الحالة كلتا الصيغتين صحيحتين، بالنسبة للأولى لم نختلف فيها إلا في حالة "=" وإذا كان الأخ يقصد القيم الأكبر تماما من 25 والأصغر تماما من 30 فإجابته هي ما قمت بتصحيحه في ردك (نحذف رمز "=" من العلاقة)... بالنسبة للصيغة الثانية : =COUNTIF($F$1:$F$10;"<30")-COUNTIF($F$1:$F$10;"<25") والتي هي أيضا صحيحة إلا إذا كانت القيم المطلوبة هي من الجال ]25 ، 30[ فيجب كتابة الصيغة على الشكل التالي: =COUNTIF($F$1:$F$10;"<30")-COUNTIF($F$1:$F$10;"<=25") وعمل هذه الصيغ (الأولى مثلا) يقوم بحساب الفرق بين عدد القيم الأصغر تماما من 30 وعدد القيم الأصغر تماما من 25، فيبقى، بالتالي، عدد القيم التي تنتمي إلى المجال [25 ، 30[ وهو المطلوب.. والله أعلم

السلام عليكم =========== اخى بن عليه بارك الله فيك طبعا الفكرة رائعة رائعة هناك ملحوظة اذا كان من فضلك يجب استبدال الدالة =SUMPRODUCT(($F$1:$F$10<30)*($F$1:$F$10>=25))[/code بالدالة او بمعنى ادق ازالة = ليكون الناتج صحيح [code]=SUMPRODUCT(($F$1:$F$10<30)*($F$1:$F$10>25)) اما هنا اخى =COUNTIF($F$1:$F$10;"<30")-COUNTIF($F$1:$F$10;"<25") اعتقد ان الصيغة للدالة اصلا غير صحيحة لان الشرطان عندما المدى المستهدف اصغر من 25 واصغر من 30 وهذا مخالف لواقع المطلوب هذا والله اعلم ( وهذا ما علمتنا انت اياه ) تقبل احترامى وتقدير لشخصكم الكريم بن عليه.rar

بسم الله الرحمن الرحيم برنامج كشـف صـرف النقـديـة بالفئـات المتـاحـة نسخة تعمل على اكسيل 11 ( 2003 ) المرفقات عبارة عن ::: 1 - ملف البرنامج وبه شرح لطريقة عمله 2 - ملف فيديو لطريقة عمل البرنامج أتمنى صالح الدعاء Omar.rar برنامج كشـف صـرف النقـديـة بالفئـات المتـاحـة نسخة تعمل على اكسيل 12 ( 2007 ) تم استبدال الايقونات بأزار فقط يرجى الاطلاع على تعليمات التشغيل لآكسيل 12 بداخل الملف المرفق _______________________________________________12__.rar

السلام عليكم ارسل لكم اليوم برنامج محاسبي بسيط يحتوي على ادوات تحكم بالماكرو ارجوا ان ينال اعجابكم لا تبخلو علينا بالردود _____________.xls.rar

السلام عليكم ورحمة الله وبركاته عملت برنامج حسابي علي اكسل مكون من 50 ورقه اريد عندما افتح الاكسل يظهر لي الصفحه الرئيسيه ولنفرض انها ورقه رقم 11 ولا اريده ان يظهر اخر ورقه تم فيها التعديل شاكر ومقدر

اول شيء مشكور على الامثلة القيمة. طلبي اخي الكريم هو في موضوعي الذي قمت بوضعه على المنتدى وهي رابط الموضوع http://www.officena.net/ib/index.php?showtopic=23611 وبارك الله فيك اخي الكريم

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

أخوتي الأعزاء في هذا المنتدى العزيز على قلبي : في البداية أود أن أشكر كل من رد على رسالتي هذه ، ,واعبر للجميع عن كامل حبي و إعتزازي لهم وكما وعدتكم فإنني أحب أن أرفق لكم هذه المجموعة من الأمثلة المثيرة و المفيدة بنفس الوقت و التي آمل أن تلاقي لديكم التقبل و الفائدة و الاعجاب وأعدكم بالمزيد المزيد من الامثلة المثيرة و المفيدة ،،،، مع جزيل شكري و إعتزازي للجميع ، ، ، ، autofill.zip autobkup2k.zip clipboard2k.zip BrowseAndOpenFile.zip password2k.zip wipeeffects2k.zip subformreference2k.zip wowaarch.zip boilerplate2k.zip

الف شكر على هذه المجموعة الرائعة وجزاك الله خير

مشكور اخي ابو سليمبالفعل انها امثلة روعة جزاك الله كل خير وجزا الله اصحابها كل خير

جزاك الله كل خير وغفر لنا ولك ولوالدينا اجعين

جزاك الله خيرا ووالدك أيضا نريد المزيد

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

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