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

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

تفضل يا سيدي: 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

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

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

حياك الله

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

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

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

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

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

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

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

اللهمّ اجعلها ممن تواضع لك فرفعته، واستكان لهيبتك فأحببته، وتقرّب إليك فقرّبته، وسألك فأجبته.

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

الف مبروك استاذ صالح الله يحفظها ويبارك فيها

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أقدم لكم طريقة جيدة لجعل الاكسل يقوم مقام البرامج الجاهزة وهي أدخال البيانات في صفحة ثم عرض هذه البيانات بطرق مختلفة مع أظهار بعض الأعمدة واخفاء بعضها وكذلك تغيرر راس تزيل الصفحة وقد وضعت بعض البيانات الوهمية لعرض الفكرة فقط وقد أستخدمت نموزج قائمة النيجة لأن الكل يعرفها ولعرض الفكرة غير طرق العرض المخصصة ثم أعرض معاينة قبل الطباعة لترى ما تغير في الرأس والله الموفق جدول واحد وطرق عرض مختلفة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 والضغط على زر النسخ راح - تلاحظ كل دقيقه يتم الضغط فيها يتم نسخ مره واحده ولا يكرر النسخ في نفس الدقيقه وسلامتك

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

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

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

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

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

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

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

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

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

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

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

الاخوه الكرام السلام عليكم في المثال المرفق اريد جمع عدد الخلايا اللتى تقع بين عددين فقط ( مثلا عدد الخلايا بين (رقم 25 و 30 ) وذلك الاستخراج نسب الطلاب الحاصلين علي معدل درجات مثلا الحاصلن علي درجات تقع بين رقمى ( 50 و 45 ) او ( بين 45 و40 ) وغيرها ولكم جزيل الشكر Book1.rar

السلام عليكم =========== اخى بن عليه بارك الله فيك طبعا الفكرة رائعة رائعة هناك ملحوظة اذا كان من فضلك يجب استبدال الدالة =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

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

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

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

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

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