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

طريقة البحث في نموذج عناصر متعددة من خلال التنسيق الشرطي ( اللون ) اترككم مع الصور ومع ملف العمل color.accdb

جرب المرفق ولو عملناها في النموذج تكون النتيجة افضل لكونها تحفظ مباشرة في الجدول هجري.accdb

ماشاء الله جزاك الله خيرا اخى صالح

شكرا جزيلا أخي

ابداع أخي @صالح حمادي ما شاء الله تبارك الله

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

كان من المفروض ان تذكر المشاركة الثّانية رأساُ لعدم اهدار الوقت باشياء غير مدروسة الكود Option Explicit Sub test() Dim RgA As Range, RgC As Range Dim Find_rg As Range, Rgl As Range Dim Dic_Yes As Object Dim m%, x%, R%, arr Set RgA = Sheets(1).Range("A4", Range("A3").End(4)) Set RgC = Sheets(1).Range("C4", Range("C3").End(4)) '=========================== Set Rgl = Sheets(1).Range("L4").CurrentRegion R = Rgl.Rows.Count If R > 1 Then Rgl.Offset(1).Resize(R - 1).Clear End If '============================ Set Dic_Yes = CreateObject("Scripting.Dictionary") For x = 1 To RgA.Rows.Count Set Find_rg = RgC.Find(RgA.Cells(x), lookat:=1) If Not Find_rg Is Nothing Then R = Find_rg.Row arr = Sheets(1).Cells(R, 3).Resize(, 8).Value arr = Application.Transpose(Application.Transpose(arr)) Dic_Yes.Add m, Join(arr, "*") m = m + 1 End If Next For x = 0 To Dic_Yes.Count - 1 Range("L" & x + 4).Resize(, 8).Value = Split(Dic_Yes.Item(x), "*") Next x = x + 4 For m = 1 To RgC.Rows.Count If RgC.Cells(m).Interior.ColorIndex > 0 Then RgC.Cells(m).Resize(, 8).Copy Cells(x, "L") x = x + 1 End If Next With Range("l4").Resize(x - 4, 8) .Value = .Value .Borders.LineStyle = 1 .Font.Bold = True .Font.Size = 14 .InsertIndent 1 End With Set RgA = Nothing: Set RgC = Nothing Set Find_rg = Nothing: Set Rgl = Nothing Set Dic_Yes = Nothing: Erase arr End Sub الملف Farz.xlsm

تقصد بدون اكواد وبدون وحدة نمطية نعم ممكن ولكن بعدة خطوات اولا نحتاج الى اضافة جدول يحتوي على كافة التواريخ الميلادية وما يقابلها من تواريخ هجرية ثانيا في الاستعلام نجعل قيمة حقل التاريخ الهجري يساوي الاتي DLookUp("[h_date]";"tbl1";"[m_date]=" & Format([dates_m];"\#mm\/dd\/yyyy\#")) اي اننا نطلب قيمة التاريخ الهجري من الجدول الاضافي اذا كان التاريخ الميلادي في الجدول الاضافي يساوي التاريخ الميلادي في الاستعلام وبالتنسيق المحدد في دالة format ثالثا بعد الحصول على قيمة التاريخ الهجري يمكننا بسهولة الحصول على حقل اليوم والشهر والسنة المثال مرفق استعلام q2 هجري2.accdb

السلام عليكم امتداداً لتطويرات برنامج الخليل المحاسبي يسرني أهدي لكم الإصدار الثاني مع تعديلات وإضافات جميلة كما أشكر أستاذي الفاضل @sandanet لقد استفدت من طريقته في الحماية حسب مشاركته القيمة : اترك لكم البرنامج . وآملاً أن اتلقى ملاحظاتكم القيمة بعد استخدام البرنامج . تقبلوا فائق المحبة والتقدير BuySal20_V14.accdb BuySal20_V14.accdb.mdb.zip

الأخ سليم حاصبيا أصبت المطلوب، جزاك الله خيراً وزادك علماً. نعم، لم أنتبه لطلبي الثاني إلا متأخراً شكراً جزيلا على المساعدة.

بارك الله بجهودكم

بعد اذن الاخ علي جرب هذا الكود Option Explicit Sub Salim() Dim My_rg1 As Range, RO%, m%, n%, x% Dim Arr1, Ful_arr(), Arr2() Set My_rg1 = Range(Sheets(1).Range("A4"), Sheets(1).Range("A4").End(4)) Arr1 = Application.Transpose(My_rg1) RO = Sheets(2).Cells(Rows.Count, 1).End(3).Row Sheets(2).Range("C4").CurrentRegion.Clear m = 1: n = 1 For x = 4 To RO If IsError(Application.Match(Sheets(2).Range("A" & x), Arr1, 0)) Then ReDim Preserve Arr2(1 To m) Arr2(m) = Sheets(2).Range("A" & x).Value m = m + 1 Else ReDim Preserve Ful_arr(1 To n) Ful_arr(n) = Sheets(2).Range("A" & x).Value n = n + 1 End If Next With Sheets(2).Range("C4").Resize(n - 1) .Value = Application.Transpose(Ful_arr) .Borders.LineStyle = 1 .Interior.ColorIndex = 20 .Font.Bold = True .Font.Size = 14 .InsertIndent 1 If m <> 1 Then With .Offset(n - 1).Resize(m - 1) .Value = Application.Transpose(Arr2) .Borders.LineStyle = 1 .Interior.ColorIndex = 19 .Font.Bold = True .Font.Size = 14 .InsertIndent 1 End With End If End With Erase Arr1: Erase Ful_arr(): Erase Arr2() End Sub الملف مرفق Tartib.xlsm

مجهود ممتاز استاذ عبد اللطيف بارك الله فيك

مثال جميل ابو اشرف

عمل ممتاز أستاذ / عبد اللطيف

السلام عليكم اارجوا من اخوتى في المنتدى مامعنى هذة الرسالة التى تظههر عند الضغط علي زر تراجع بعد تسجيل البيانات وما هو الحل NEW.rar

جرب اعمل اوامر الفتح من خلال المايكرو يشتغل معك تمام احيانا اوامر الفيجوال بيسك تحدث شيء من هذا القبيل

وعليكم السلام - تفضل الم تطلع على الملف تم تنفيذ المطلوب بهذا الكود Sub arrange() Sheet1.Activate Columns("A:A").Select Selection.Copy Sheet2.Activate Columns("b:b").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub ترتيب بيانات الصفوف حسب القائمة الأساسية.xlsm

السلام عليكم انظر اخي الكريم الاستعلام Query1 Library_5.rar تحياتي

السلام عليكم أضفت حقلاً للاستعلام ليظهر انطباق النتيجة على المطلوب، يمكن حذفه دون تغيير في النتيجة. أرجو أن يكون هذا ما تحتاج. temp kam2EDIT.accdb

يمكنك استخدام الكود هكذا فى حدث ThisWorkBook Private Sub Workbook_Open() ActiveWorkbook.Sheets(1).Select Range("a1").Activate Dim aa As Byte If IsNull(Range("b65535").Value) Then Range("b65535").Value = 1 End If aa = Range("b65535").Value If aa = 5 Then MsgBox "Used for 5 times , no more use is allowed !!" Application.ActiveWorkbook.Close Exit Sub Else Dim bb As String bb = Str(aa + 1) MsgBox "This File was used " & bb & " Times " End If Range("b65535").Value = aa + 1 Application.ActiveWorkbook.Save If Date >= DateValue("26/6/2021") Or Sheets("Sheet1").Range("S1") >= Date Then Sheets("Sheet1").Range("S1") = Date MsgBox " expire انتهت صلاحية الملف " ThisWorkbook.Save Application.Quit End If End Sub

العفو استاذي @jo_2010 واذا كنت مازلت ترغب في التصفية عن طريق امر لكل مدينة مع ان الفكرة غير عملية حاليا لديك 3 مدن وربما غدا 10 مدن او اكثر فلا توجد مشكلة ممكن عملها لكل زر امر نضع الكود التالي مع تغيير اسم المدينة Dim myfilter As String myfilter = "[city]='" & "الرياض" & "'" Me.tbl1.Form.Filter = myfilter Me.tbl1.Form.FilterOn = True ولعرض الكل Me.tbl1.Form.FilterOn = False ولكن اعيد ان هذه الطريقة ليست عمليه المثال في المرفق بحث3.accdb استاذنا الفاضل @أحمد الفلاحجى جزاك الله خير

kha9009lid شكراجزيلا

كذلك هذه الرسالة ما معناها ؟؟ وما حلها ؟؟ هي تذهب حينما افتح محرر الأكواد ثم أغلقه مباشرة ..

تفضل اخي الكريم تحياتي

ادحل على مصدر بيانات مربع التحرير وسرد / RowSource ثم من اسفل حقل Teacher اختار تنازلي / Ascending Library - نسخة (2).rar تحياتي

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

معناها الأمر تراجع غير متاح حاليا

بعد أذن اخونا سليم حاصبيا جرب هذا بحث سريع.xlsm

جزاك الله خيرا أخى واستاذى الغالى خالد @kha9009lid احسنت احسن الله اليك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

المثال السابق يبحث في نفس النموذج واذا كنت تستخدم نموذج رئيسي ونموذج فرعي Dim myfilter As String myfilter = "[city]='" & [tx2] & "'" Me.tbl1.Form.Filter = myfilter Me.tbl1.Form.FilterOn = True المثال مرفق بحث2.accdb

جرب المرفق كود بسيط DoCmd.ApplyFilter , "[city]='" & [tx2] & "'" بحث.accdb

من كل تطبيق مثل الوورد مثلا يمكنك معرفة مكان الملفات من File options save auto-recover file location و الذهاب للمجلد و حذف الملفات

تفضبل اخي الكريم Private Sub Command41_Click() ' تفريغ مصدر النموذج الفرعي SourceObject Me.frm.SourceObject = "" ' اعلان عن متغيير عددي Dim FormCount As Integer Dim i As Integer 'سيكون المتغيير FormCount = عدد النماذج المفتوحة FormCount = Forms.Count ' عمل خلقة تكريرية For i = FormCount - 1 To 0 Step -1 ' استثناء نماذج محددة من الاغلاق وذلك بالشرط التالي ' اذا كان النموذح المفتوح غير النموذج frmHome login ونموذج If Forms(i).Name <> "frmHome" And Forms(i).Name <> "login" Then ' تنفيذ امر الاغلاق DoCmd.Close acForm, Forms(i).Name ' انهاء الشرط End If ' تشغيل الحلقة التكرارية Next i End Sub والله اعلم تحياتي

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

تسطيع عمل الكشف الدوري بدون محاسب الكشف الوري.xlsx

الشكر لله ثم لاخواننا واساتذتنا الذين تعلمنا ونتعلم منهم كل يوم واخواننا واساتذتنا لايقصرون وكل منا على حسبه وقته وجهده وعلمه فارجو منك التماس العذر لاخوانك ولعلى اولهم ولكنى لست اعلمهم فاننى مبتدء واتعلم من اخوانى واساتذتى واجيب على قدر معرفتى واخى محمد حلبى وخالد قد جاوبوك فى موضوعك الاخر ولم ترد على اخر مشاركه لاخى واستاذى خالد ولم يقصروا وكل منا يسعى للاجر والثواب من الله واقتبس من اخى واستاذى خالد ولا نريد سوى دعوه في ظهر الغيب قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ : ( مَنْ صُنِعَ إِلَيْهِ مَعْرُوفٌ فَقَالَ لِفَاعِلِهِ : جَزَاكَ اللَّهُ خَيْرًا فَقَدْ أَبْلَغَ فِي الثَّنَاءِ ) صل الله عليه وسلم تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

اخى الفاضل فضلا لا امر عدل اسمك بالموقع لمنادتك به وعدم رفع المواضيع القديمه بل افتح موضوع جديد خاص بك ان لم تستطع عمل ذلك وقم بارفاق الموضوع القديم بموضوعك ارجوا ان تتقبل كلامى بصدر رحب وانا اخوك الصغير نعم يمكن ذلك استعنت بالمثال الاخير بمشاركه اخى الفاضل محمد ندى جزاه الله خيرا هو واخى @Bluemind انظر للجدول قد قمت باضافه حق باسم ADm افتح الاستعلام SELECT Table1.ID, Table1.Start_Date, DateAdd("m",[ADM],[Start_Date]) AS [End Date], [End Date]-Date() AS Remarks FROM Table1; ستجد قمت باسبدال الرقم بالاستعلام للحقل بالجدول DateAdd("m",[ADM],[Start_Date]) تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق dayslife.rar

أستاذ الأمير هشام أين الضغط على الإعجاب ؟!💙

اخي الكريم جرب تغيير العلامة المائلة من / الى \ هكذا F:\fils\"&[BillNo]&".pdf او ارفق مثال لنفهم سوياً اين المشكلة تحياتي

السلام عليكم ورحمة الله وبركاته الاستعلام يُعتبر العمود الفقري لقواعد البيانات ، وكلما زادت معرفتنا به ، كلما يصبح البرنامج افضل واسرع 🙂 البحث/التصفية في الاستعلام من الطرق المهمة ، ولكن وللأسف الشديد ، ارى الكثير من المبرمجين لا يعرفون الطريقة الصحيحة في عملها ، فالطريقة الغير صحيحة قد تعطيك النتائج ولكن على حساب وقت تنفيذ الاستعلام 😞 الامثله هنا تقوم على انه يوجد لدينا نموذج اسمه frm_Main ، وبه حقل الاسم fName ، وحقل التاريخ:من Date_From ، وحقل التاريخ:الى Date_To ، والحقول في الاستعلام ، حقل الاسم fName ، وحقل التاريخ DateX . 1. اذا اردنا البحث عن اسم كامل (وليس جزء من اسم) ، فيجب ان يكون المعيار في الاستعلام: [forms]![frm_Main]![fName] 2. واذا كان حقل الاسم فارغا في النموذج ، ونريد ان نرى جميع الاسماء ، فالمعيار يصبح: iif(len([forms]![frm_Main]![fName] & '')=0,[fName],[forms]![frm_Main]![fName]) والشرح للتأكد بأن الحقل فارغ في النموذج، بدل ان نكتب IsNull([forms]![frm_Main]![fName]) or [forms]![frm_Main]![fName]=0 فإننا نختصر هذين الشرطين بشرط واحد len([forms]![frm_Main]![fName] & '')=0 iif(كان الحقل فارغ في النموذج,[fName] اعطنا جميع بيانات الحقل,[forms]![frm_Main]![fName]واذا كان الحقل به قيمة فاستعمل هذه القيمة) . 3. اذا اردنا البحث عن جزء من الاسم Like IIf(Len([forms]![frm_Main]![fName] & '')=0,"*","*" & [forms]![frm_Main]![fName] & "*") والشرح IIf(Len([forms]![frm_Main]![fName] & '')=0 نعم Like "*" لا Like "*" & [forms]![frm_Main]![fName] & "*") . 4. اذا اردنا البحث بين تاريخين بدون سجلات التاريخ الفارغة Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) والشرح Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) مع سجلات التاريخ الفارغة Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) Or [DateX] Is Null والشرح Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) Or [DateX] Is Null او طريقة استاذنا واخونا العود ابو خليل Between nz([forms]![frm_main]![Date_From];"01/01/1900") And nz([forms]![frm_main]![Date_To];"01/01/2100") . جعفر

وأياك أخي الكريم صلاح

اتفضل هذا تطبيقى على نقل التركيز ويتم نقل التركيز من نموذج فرعى الى نموذج رئيسى ثم الى نموذج فرعى ثانى ثم الى النموذج الفرعى الاول نقل التركيز.rar

السلام عليكم اسمحوا لي بالمشاركة معكم هذا الكود كامل بالمطلوب ويمكنكم تسمية النسخة واللاحقة بما تريدون يتم اخذ النسخة عند اغلاق النموذج / انظر المرفق Dim DBOld As String Dim DBNew As String Private Sub Form_Load() DBOld = CurrentProject.Path & "\Data.mdb" 'اختيار قاعدة بيانات الجداول DBNew = CurrentProject.Path & "\Backup" 'اختيار مكان حفظ النسخة End Sub Private Sub Form_Close() On Error Resume Next Shell "cmd.exe /C copy " & """" & DBOld & """" & " " & """" & DBNew & "\" & "Data.mdb" & """", 0 End Sub xxxx.rar

جرب هذا الكود Private Sub Form_Close() On Error GoTo err_Form_Close 'make a backup of BE BE_or_FE = "D:\prog" Backup_Folder = "D:\back_folder" 'Do a copy from a PC name jj ONLY ' If VBA.Environ("Computername") <> "wael" Then Exit Sub 'Delete the old saved accdb Kill Backup_Folder & "\AA_BE_*.accdb" 'Now lets work on saving the new accdb''Is this PC name = jj' ' BE_Address = BE_or_FE & "\AA_BE.accdb" BK_Address = Backup_Folder & "\AA_BE_" & Format(Now(), "yyyy-mm-dd_hh-mm-ss") & ".accdb*" 'Debug.Print "xcopy " & Chr(34) & BE_Address & Chr(34) & " " & Chr(34) & BK_Address & Chr(34) Call Shell("xcopy " & Chr(34) & BE_Address & Chr(34) & " " & Chr(34) & BK_Address & Chr(34), vbHide) Exit Sub err_Form_Close: If Err.Number = 2450 Or Err.Number = 53 Then 'ignor Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub انا انتظر جوابك بسرعة لوسمحت ، حتى نحصل على نتيجة قبل ان انام ان شاء الله جعفر عفوا شئ آخر مهم: الكود يشتغل اذا اغلقت النموذج ، ولا يشتغل اذا اغلقت البرنامج. جعفر

السلام عليكم وهذه النسخة الكاملة للموضوع (البارحة بعد ان كتبت كل شئ ، اتضح ان المنتدى اُغلق للصيانة ، وراح كل الشغل ) 2. عندما تستخدم البرنامج في شبكة بين مجموعة مستخدمين ، لا تريد البرنامج ان يعمل نسخة كلما خرج احد المستخدمين من البرنامج ، ولكن تريد ان يتم عمل النسخة عندما يخرج المستخدم الذي يعمل على الكمبيوتر jj فقط (طبعا يمكن استخدام اسم المستخدم بدلا من اسم الكمبيوتر): if vba.Environ ("Computername")<> "jj" then Exit Sub 3. السطر التالي يحذف جميع الملفات القديمة لهذا الملف: Kill Backup_Folder & "\Program\Haj_BE_*.accdb" Private Sub Form_Close() On Error GoTo err_Form_Close 'make a backup of BE BE_or_FE = "C:" Backup_Folder = "D:" 'Do a copy from a PC name jj ONLY if vba.Environ ("Computername")<> "jj" then Exit Sub 'Delete the old saved accdb Kill Backup_Folder & "\Program\Haj_BE_*.accdb" 'Now lets work on saving the new accdb''Is this PC name = jj' ' BE_Address = BE_or_FE & "\Haj_BE.accdb" BK_Address = Backup_Folder & "\Program\Haj_BE_" & Format(Now(), "yyyy-mm-dd_-hh-mm-ss") & ".accdb*" Call Shell("xcopy " & BE_Address & " " & BK_Address, vbHide) Exit Sub err_Form_Close: If Err.Number = 2450 or err.number=53 Then 'ignor Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر

وعليكم السلام أخي وائل اخذت لك هذا الكود من احد برامجي Private Sub Form_Close() On Error GoTo err_Form_Close 'make a backup of BE BE_or_FE = "C:" Backup_Folder = "D:" BE_Address = BE_or_FE & "\Haj_BE.accdb" BK_Address = Backup_Folder & "\Program\Haj_BE_" & Format(Now(), "yyyy-mm-dd_-hh-mm-ss") & ".accdb*" Call Shell("xcopy " & BE_Address & " " & BK_Address, vbHide) Exit Sub err_Form_Close: If Err.Number = 2450 Then 'ignor Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub وهذا الكود لنسخ الملف وليس لحذف القديم ، وفي هذا الرابط ستجد طريقة مشابهة لما تريد (اعذرني ، فوقتي لا يسمح لي بعمل المطلوب الان :( ) http://www.officena.net/ib/topic/61847-تعديل-على-كود-حفظ-مكان-الصورة/?do=findComment&comment=399928 جعفر

السلام عليكم و رحمة الله أخي أنور يمكنك إخفاء القيمة الصفرية بإستخام تنسيق الخلايا من مخصص ضع الرموز التالية 0.000;-0.000;

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