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

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

تفضل يا سيدي: 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 نبد بشرح مصور ل طريقة اضافة الدالة الي اي ملف اكسيل والان مع شرح مصور ل بارميترات الدالة وطريقة الاستخدام مع تمنياتي بالتوفيق للجميع

تهدف هذه الأداة الي عمل تقييم ذاتي لمعايير الإدارة الحكومية المتميزة بصورة اليكترونية و سريعة هذا الاصدار الأولى من التطبيق يساعد على عمل تقييم للمكنات و النتائج و الحصول على نتيجة استرشادية للإدارة ككل هذه النسخة التجريبية الأولى ، برجاء اضافة اية ملاحظات حول المحتوي أو طريقة الحساب ليتم مراعتها فى الاصدار الاول. كيفية الاستخدام الملف يحوي 3 ورقات عمل - الممكنات - النتائج - النتيجة النهايئة يتم تقييم كل معيار فرعي على حدة تحوي كل من ورقتي عمل الممكنات و النتائج على سبعة محاور للتقييم ، و يقوم المقييم بتقييم كل من المعايير الفرعية على حدة يتم تسجيل التقييم لكل محور من المحاور السبعة بعمل نقر مذدوج على المربع الخاص بالتقييم المناظر و عندها سيتغير لون المحور من اللون الأحمر ليدل على أنه قد تم تقييم هذا المحور و يمكن تعديل التقييم فى أي وقت عند استكمال التقييم سيختفي اللون الأحمر و هذا يعني أنك قد انتهيت من تقييم هذا المحور بعد المراجعة قم بالطباعة اذا اردت أو نسخ ورقة العمل و حفظها كورقة عمل جديدة للاحتفاظ بالتقييم و تسمية ورقة العمل الجديدة برقم المعيار كخيار متاح و الان اتجه لورقة العمل الاخيرة Score لتسجيل التقييم فى ورقة النتئجة النهائية كما يلي: اختر رقم المعيار الفرعي المناظر سواء من الممكنات او النتائج ثم اضغط على زر جلب النتيجة و سيأتيك تأكيد قبل التسجيل اذا كانت هناك محاور لم يتم تقييمها سيرفض التطبيق حفظ النتيجة و يعطيك رسالة خطأ سيتم حساب النتيجة بطريقة آلية و يظهر تأثير تقييم المعيار الفرعي على نتيجة المعيار و نتيجة الإدارة ككل. لحذف جميع النتائج من الملخص اضغط زر Clear all Scores لحذف جميع النتائج من ورقة عمل تقييم الممكنات او النتائج لهدف بدء تقييم جديد يمكن الضغط على ارزار Clear Enablers, Clear Results فى ورقة العمل مناظرة فى انتظار ملاحظاتكم لتصحيح و تطوير النسخة المبدئية من هذا التطبيق نسخة اوفيس 2010 Evaluation02p.zip

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

حياك الله

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

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

جرب هذا الماكرو 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

نفس النسخه الموجوده بالموقع العمل كالتالي 1- حدد مسار (القاعده ) المراد نسخها 2- حدد مكان مجلد النسخ 3- حدد نوع الصيغه 4- اضغط على زر (نسخة احتياطية لقاعدة بيانات المرتبطة بدون ضغط و إصلاح) 5- تحدد خيار كل ساعه 5- حفظ الاعدادات 6- الذهاب الى نموج TestForm والضغط على زر النسخ راح - تلاحظ كل دقيقه يتم الضغط فيها يتم نسخ مره واحده ولا يكرر النسخ في نفس الدقيقه وسلامتك

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

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

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

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

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

جرب هذا الماكرو Sub copy_All() Application.ScreenUpdating = False Dim My_sh As Worksheet Dim My_range As Range Dim k, m, lr, i As Integer k = Sheets.Count m = 3 Set My_sh = Sheets(k) My_sh.Range("a3:m1000").ClearContents For i = 2 To k - 1 With Sheets(i) lr = .Cells(Rows.Count, 1).End(3).Row Set My_range = .Range("a6:k" & lr) End With With My_sh .Cells(m, 1) = Sheets(i).Cells(1, 2) .Cells(m, 2) = Sheets(i).Cells(2, 2) My_range.Copy .Range("c" & m).PasteSpecial xlPasteValues m = m + lr - 4 End With Next My_sh.Activate Range("a3").Select Application.ScreenUpdating = True End Sub

وعليكم السلام بدل ان نعمل الالوان في الكود ، استبدلت مربع النص ، بأحد كائنات الاكسس التي بها الوان ، ولكني تحكمت بالالوان: الجدول اصبح ، ولاحظ اني استعملت الموقف رقم 1 و 11: . النموذج ، والكائن الجديد ، وطريقة اختيار الالوان: . والنتيجة: . جعفر 532.MAP PARING.accdb.zip

وعليكم السلام قم بالإطلاع على الملف بالرابط التالي الرابط من هنا

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

السلام عليكم اخواني الكرام في الملف المرفق مجموعة من الصيدليات تصل الى اكثر من 500 صيدلية مع اسم المنطقة واسم المندوب وهنا لدي فواتير مبيعات ما مطلوب هو عندما اكتب اسم الصيدلية في العمود الأول يدرج في العمومد الثاني والثالث اسم المنطقة واسم المندوب وجربت دالة lookup ولكن عندما اضيف اسم صيدلية جديدة لا يستجيب ويعطي معلومات خطا . ما اتمنى منكم مساعدتي بأي دالة في سبيل الوصول الى هدفي وهو عندما اكتب اسم الصيدلية احصل على اسم المنطقة واسم المندوب تلقائي اتمنى او اكون وصلت الفكرة وبارك الله في فيكم اخوكم ابو شرف حسابات تجارية.rar

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

الاخوة الكرام بن علية هشام شلبي جزاكم الله كل خير علي سعيكم وسرعة ردكم وجعله الله في موازين حسناتكم يوم القامه وما تفضلتم به يفى بالغرض تمام مع سهوله العمل به فلقد حاولت ذلك بدله ( 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[ وهو المطلوب.. والله أعلم

السلام عليكم ورحمة الله أخي الكريم جلال أقدم لك في الملف المرفق صيغتين (حلين) أحدهما باستعمال COUNTIF والآخر باستعمال SUMPRODUCT وهناك حلول أخرى.. أخوك بن علية Book1.rar

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

شكرا لك بارك الله لك

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

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

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

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

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

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

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

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