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

السلام عليكم لو كان هذا الكود هو لالغاء تمكين الحقل a فما هو الكود لتامين الحقل a me.a.enabled = True وكالعادة عند البحث في المنتدى اجد الحل ولاني لا استطيع حذف مشاركتي عدلت علهيا me.a.LOCK = True

نفس الكود استبدل True الى false

هل تقصد هذا Me.a.Locked = True

الطلبات اصبحت كثيرة جدا يمكنك استخدام معادلة المصفوفة =IFERROR(INDEX($A$5:$A$14,SMALL(IF($E$5:$E$14=FALSE,ROW(A$5:A$14)-ROW(A$5)+1),ROWS($L$5:L5))),"") تواتي 37.xlsx

جرب هذا الماكرو Option Explicit Sub Filter_Data() Dim Rg_A As Range, Rg_L As Range Dim Cret_Rg As Range With Sheets("Sheet1") On Error Resume Next .ShowAllData On Error GoTo 0 Set Rg_A = .Range("A4").CurrentRegion Set Rg_L = .Range("L4").CurrentRegion Rg_L.Clear .Range("R2").Formula = "=AND(D5>=$H$4,D5<=$J$4)" Set Cret_Rg = .Range("R1:R2") Rg_A.AdvancedFilter 2, Cret_Rg, Range("L4") Cret_Rg.Clear End With End Sub

تفضل تواتي 34.xlsm

تفضل هدا الماكرو يعتمد على تسجيل التاريخ اليوم في الخلية A1 ادا وجد تاريخ اليوم هو نفسه تاريخ اليوم . لن يشتغل الماكرو . و ان وجد تاريخ غير اليوم يشتغل عادي و يسجل تاريخ اليوم في الخلية A1 Book2.xlsm

وعليكم السلام-فقد نبهنا مئات المرات ,ان لا تنتظر اى مساعدة او استجابة من الأساتذة بدون رفع ملف مدعوم بشرح كافى عن المطلوب مع وضع شكل النتائج المرجوة ... حيث لا يمكن العمل على التخمين وتجنباً لعدم اهدار وقت الأساتذة وبما انك لم تقم برفع ملف فكان عليك لزاماً استخدام خاصية البحث بالمنتدى فبه طلبك : التعديل على كود إرسال ملف االاكسل عبر الايميل أو هذا طريقة ارسال الشيت عبر الايميل وهذه فيديوهات أيضاً لتوضيح وعمل المطلوب https://www.youtube.com/results?search_query=ارسال+الإميل+من+برنامج+الإكسيل

جواهر المنتدى هو انتم اخوانى واساتذتى فلست سوى طالب علم اتعلم منكم واساعد اخوانى كما اتعلم منكم جزاكم الله عنا خير الجزاء ورزقكم من فضله وعلمه 💐

واياك استاذي وجوهرة المنتدى @احمد الفلاحجي بارك الله فيك وجهودك الواضحة في المنتدى

تقضل ....... جمعية خيرية.accdb

بسم الله الرحمن الرحيم السلام عليكم اخواني الكرام الموضوع كيف يعامل مجموعة مستخدمين مع قاعدة البيانات من خلال الانترنت بدلا من الشبكة المحلية ( الداخلية ) لتباعد المسافات بين المستخدمين الفكرة سهلة كنا بنجمع الاجهزة علي الشبكة المحلية عن طريق وسيط وهو اسلاك بتربط الاجهزة ببعضها خلاص بيقي عايزين وسيط غير الاسلاك الوسيط هو موقع وله برنامج هننزله عنوان الموقع https://my.zerotier.com/login صفحة تحميل البرنامج https://www.zerotier.com/download/ 1 – نحمل البرنامج من صفحة التحميل 2 – نسطب البرنامج زي اي برنامج نسيب البرنامج بقي كدة خلاص نروح الموقع ونسجل فيه ندوس علي المربع الاصفر دي الصورة طبعا احنا عضو جديد ندوس علي ريجستر زي الصورة 1 2 اذهب الي الايميل بتاعك وفعل العضوية بعد ما تفعل العضوية هيدخلك علي الصفحة دي دوس علي نتوورك زي الصورة من اول هنا بقي يبدأ الجد ركز مع الصور اتبع الارقام الموجودة علي الصورة ونفذ الموجود بها وتوصل لرقم 3 وتضغط كما هو موضح بالصورة هيدخلك علي الصورة اللي جاية -- دي صفحة اعدادات الشبكة بتاعتك اتبع ما جاء بالصورة انسخ الرقم وضعه كما في الصورة القادمة كدة شبكتك تمام وجاهزة للشغل بس فيه سؤال هو كل واحد من المستخدمين هيعمل الدوشه دي كلها ؟؟؟ الاجابة : لا طبعا دي انت بس علشان انت صاحب الشبكة اما المستخدمين يعني الاجهزة التانية يا دوب هيسطب البرنامج ويحط الرقم اللي انت اديتهوله وهو بالنسبة للشبكة دي اللي عملناها دلوقت 885033839097d605 وكل شبكة طبعا ارقامها بتختلف عن غيرها أي واحد هيسطب البرنامج ويضيف الرقم ده في مكانه مثل الصورة وانا اقبله من عندي يبقي مشترك معايا علي الشبكة وممكن احذفه واضيف غيره يعني الاضافة والحذف براحتك سؤال تاني هو كام جهاز ممكن يشتركوا في الشبكة بتاعتي ؟ طبعا لان حضرتك عضو مجاني عندهم لك تضيف لغاية 100 جهار بعد كدة بفلوس طبعا انت مش محتاج كل ده المشاريع الصغيرة اللي عندنا يا دوب من 3 : 10 اجهزة يعني انت تبعنا في ابو بلاش ------------------------------------------------------------------------------------------------------------------------------------------------------------- كدة اللي فاضل نجهز قاعدة البيانات ونقسمها ونشيرها نفتح قاعدة البيانات بتاعتنا حدد مكان التقسيم في جهازك وخلاص اتقسمت اصبحت جزء باسم قاعدة البيانات لو اسمها مثلا ( اشرف ) والجزء الثاني اشرف ) وهو ده اللي فيه الجداول ده هو اللي هيتشير فقط _be ( يفضل اعدادات الشير – شوف يا باشا دي سهلة بس ركز مع الصور في جهازك روح علي Control Panel Network and Internet Network and Sharing Center Advanced sharing settings تلاقيها بالشكل ده يفضل ازاي نشير قاعدة البيانات اول حاجة نضع جزء الجداول في مجلد ونسميه اي حاجة ثم نضغط كليك يمين علي المجلد ونختار Give access to Specific people بكدة يبقي احنا شيرنا الملف اللي فيه الجداول نعطي بقي نسخة من الجزء الثاني من قاعدة البيانات للاحهزة المراد ضمها للشبكة وكل مستخدم يعدل مسار الجداول المرتبطة علي مكان الشير في جهازك اللي يعتبر سيرفر للتجربة انا مشير نموذج علي جهازي اللي عايز يجرب اولا يحمل البرنامج ويسطبه كما في الصور اعلاه ويضع الرقم 885033839097d605 وانا ان شاء الله هقبل اضافته للشبكة اللي عملناها دي ولما اقبله جهازي هيظهر عنده باسم اشرف ويحمل النموذج من الموضوع هنا ونتواصل مع بعض علي القاعدة دي عن بعد و يمكن من بلاد مختلفة لتوضيح الفكرة ولمعرفة سرعة استجابة القاعدة في التعامل وذلك بعد العاشرة مساء بتوقيت القاهرة او لما تلاقيني متواجد بالموقع ولمدة يومين فقط للتجربة بعدها ساغلق الشبكة ملاحظة : الجهاز اللي متشيره عليه الجداول يعتبر زي سيرفر يعني لو مغلق او النت مفصول فلا يمكن التواصل انتهي الموضوع اتمني ان يعجبكم اسف علي الاطالة لكن كان لازم التفصيل احتراما وتقديرا لطلب الاساتذة ( حلبي - Barna - أحمد الفلاحجى - الأمير هشام ) واي استفسارات انا معاكم ان شاء الله اشرف.accdb

ساعة ديجيتال موجودة على الفورم لمن يحتاجها طبعا الكود منقول مش عارف صاحبه اضعها لمن احتاجها رائعة فعلا احترامى ساعة ديجيتال.xlsm

Sub Printg() Application.Calculation = xlAutomatic For J = [Y2] To [Y1] If J <= [Y1] Then ActiveSheet.PrintOut Copies:=1, Collate:=True End If Next End Sub بيان ناجح 6.xls

السلام عليكم اخى @ازهر عبد العزيز مشاركه مع اخوانى واساتذتى @ابو تراب و @ابو ياسين المشولي جزاهم الله خيرا 💐 بالنسبه لهذا الاجراء فالماكرو كما تحب سيتم استخدام الخاصيه setproperty ولعدم التمكين نكتب اسم العنصر اى الحقل او الزر ثم نختار نوع الخاصيه وهنا ممكن والقيمه false وللتمكين مره اخرى تكون القيمه true تقبلوا تحياتى ومرورى اخوانى واساتذتى وفقكم الله azhr.accdb

اذا كنت تريد العكس استبدل هذا السطر في الكود sh.Range("MM2").Formula = "=AND(A2>=Sheet1!D1,A2<=Sheet1!$F$1)" ال هذا sh.Range("MM2").Formula = "=NOT(AND(A2>=Sheet1!D1,A2<=Sheet1!$F$1))"

نفذ الكود ثم خذ صورة للشيت 3 مثلاً ( الخلايا D1 و F1 يجب ان تكون تاريخاً موجوداَ في الجدول) من ناحية اخرى هل من المغقول بيت ملايين الخلايا ان لا تجد خليتين لادراح التاريخ (ضعهما في اخر عامودين من الاكسل وعدّل في الكود على عنوانهما) لو لاحظت الكود انا وضعت في الخلية MM2 (بعيدة جداً عن الجدول) معادلة تم مسحتها بد تنفيذ الكود مباشرة

بعد الضغط على فلتر اذهب الى الصفحات من 3 الى الأخير وشاهد ماذا جرى (أنت تريد استثناء الصفحتين الأولى والثانية)

لا أعتقد انه هناك حاحة لليوزر في هذه الحالة اكتب التاريخ الأصغر في الخلية D1 والتاريخ الأكبر في الخلية F1 من الصفحة Sheet1 ونفذ الماكرو الاول الماكرو الثاني لازالة الفلترة Sub MY_FILTER() 'First Macro+++++++++++++++++++++++++++++++++++ Dim sh As Worksheet For Each sh In Worksheets If sh.Name = "Sheet1" Or sh.Name = "Sheet2" Then Else On Error Resume Next sh.ShowAllData On Error GoTo 0 sh.Range("MM2").Formula = "=AND(A2>=Sheet1!D1,A2<=Sheet1!$F$1)" sh.Range("A1").CurrentRegion.AdvancedFilter 1, sh.Range("MM1:MM2") sh.Range("MM1:MM2").Clear End If Next End Sub 'Second Macro+++++++++++++++++++++++++++++++++++ Sub Show_all() Dim sh As Worksheet For Each sh In Worksheets On Error Resume Next sh.ShowAllData On Error GoTo 0 Next End Sub الملف مرفق Data_Between.xlsm

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

أول يوم وأخر يوم =DATE(2020,1,1) =DATE(2020,12,31)

ضع هدا الكود و يعمل معك 100//100 TextBox4.Value = Format(Sheets(1).Range("a5").Value, "HH:mm:ss") تواتي 34 (1).xlsm

ارف النموذج اللي فيه الخطاء للتجربه

جرب الآن واعلمني بالنتيجة إيقاف بالمدة.rar تحياتي

az2.accdb 608 kB · 1 تنزيلات الاستاذ المبدع ابو بسملة ماقصرت ربي يحفظك من كل سوء الاستاذ Abu Farid لن اعلق يكفي ما قالة الاستاذ ابو بسملة عن مشاركتك جزاكم الله عني كل خير

وعليكم السلام اخى @محمد التميمي اتفضل ان شاء الله يكون ما تريد =IIf([n1]<>"";DLookUp("piece";"[جدول القطع]";"ID=" & [n1]);0) بالتوفيق اخى piece.rar

اعلم اخى انه لتنوع الحلول ولكنى افضلها فعلا احسن الله اليك وجزاك الله خيرا 💐 وجزاك الله خيرا على ظنكم الحسن فى واسال الله ان اكون عند حسن ظنكم

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

جزاك الله خيرا اخى واستاذى @kanory 💐

حياك الله وبالتوفيق

استبدل الى هذا الماكرو (يجمع كل الألوان ما عدا الابيض) Option Explicit Private Sub Cmd_sum_Click() Dim s#, Sh As Worksheet, x As Boolean For Each Sh In Worksheets x = Sh.Range("A1").Interior.ColorIndex <> xlNone s = s + IIf(x, IIf(IsNumeric(Sh.Range("A1")), _ Sh.Range("A1"), 0), 0) Next Me.My_lebl.Caption = IIf(s <> 0, s, "No Numbers") End Sub الملف من جديد User_form_1.xlsm

الحلفات التكرارية مرهقة جداً للبرنامج من الافضل الابتعاد عنها 1-الكومبو بوكس يذكر جميع الاسماء دون تكرار (دون ادراج عامود اضافي لترقيم الاسماء) العامود A الذي لا حاجة له (قمت باخفائه و ليس حذفه) 2- تم تصغير حجم اليوزر لتغطية أقل مساحة ممكنة من الشاشة 3- يمكنك العمل على الصفحة حتى ولو كان اليوزر ظاهراً اليك هذا الكود الذي يفعل لك ما تريد بالاضافة الى تلوين المعطيات التي تبحث عنها Option Explicit Private Sub ComboBox1_Change() Dim Sh As Worksheet, Find_Range As Range Dim my_rg As Range Dim My_sum#, x As Boolean, T#, ro% Dim k%: k = 0 Dim First_Address Set Sh = Sheets("توزيع الموظفين") Me.TextBox1 = "": Me.ListBox1.Clear ro = Sh.Cells(Rows.Count, 4).End(3).Row Set my_rg = Sh.Range("B1:B" & ro) Range("A2:D" & ro).Interior.ColorIndex = xlNone Set Find_Range = my_rg.Find(Me.ComboBox1, Lookat:=1) Do While Not Find_Range Is Nothing If Not x Then First_Address = Find_Range.Address x = True End If Range("A" & Find_Range.Row).Resize(, 4).Interior.ColorIndex = 35 T = IIf(IsNumeric(Range("D" & Find_Range.Row)), _ Range("D" & Find_Range.Row), 0) My_sum = My_sum + T With Me.ListBox1 .AddItem .List(k, 0) = Sh.Range("B" & Find_Range.Row) .List(k, 1) = T End With k = k + 1 Set Find_Range = my_rg.FindNext(Find_Range) If First_Address = Find_Range.Address Then Exit Do Loop Me.ListBox1.AddItem Me.ListBox1.List(k, 0) = "المجموع :" Me.ListBox1.List(k, 1) = My_sum Me.TextBox1 = My_sum End Sub '+++++++++++++++++++++++++++++++++++++++++ Private Sub UserForm_Initialize() Dim My_sh As Worksheet, lr Dim dic As Object, i% Set My_sh = Sheets("توزيع الموظفين") Set dic = CreateObject("Scripting.Dictionary") lr = My_sh.Cells(Rows.Count, 1).End(3).Row For i = 2 To lr dic(My_sh.Cells(i, 2).Value) = "" Next Me.ComboBox1.List = dic.keys Set dic = Nothing: Set My_sh = Nothing End Sub '+++++++++++++++++++++++++++++++ Private Sub UserForm_Terminate() Dim Sh As Worksheet, ro% Set Sh = Sheets("توزيع الموظفين") ro = Sh.Cells(Rows.Count, 4).End(3).Row Range("A2:D" & ro).Interior.ColorIndex = xlNone Set Sh = Nothing End Sub الملف مرفق SAlim_USER_FORM.xlsm

انقلي بياناتك الى هذا الملف ( وقومي بتجربته) أو جربي ان تعدلي بعض البيانات فية وتري النتيجة اذا كانت كلها ممتازة استعمليه مكان الملف الذي تستعملينه صف الاسماء في الشيت Laho يأخذ ما يوجد في الشيت Menho أوتوماتيكياً لذلك لا يمكن كتابة شيء في صف الاسماء في شيت Laho تفادياً للخطأ Last_file.xlsm

السلام عليكم الخلل في عملك هو أن النطاق Plan_Material (النطاق B12:O23 وليس B13:O23) لم تدرجه كجدول بيانات حتى تصبح عناوين هذا الجدول (رؤوس الجدول من الصف 12) حقولا (ويتم ذلك بالطريقة التالية : تحديد النطاق B12:O23 ثم اختيار الأمر إدراج أو Insertion ثم اختيار الأمر جدول أو Table مع تسميته Plan_Material)... وهذا ما فعلتُه في الملف المرفق... بن علية حاجي Budget 2.xlsx

بعد اذن اخى عبد الفتاح ,على الرغم اننا نبهنا كثيراً انه لابد من رفع ملف مدعوم بشرح كافى عن المطلوب فى كل مشاركة وذلك تجنباً لعدم اهدار وقت الأساتذة ولأنه لا يمكن العمل على التخمين ..فيمكنك استخدام هذا الكود Sub MergeExcelFiles() Dim fnameList, fnameCurFile As Variant Dim countFiles, countSheets As Integer Dim wksCurSheet As Worksheet Dim wbkCurBook, wbkSrcBook As Workbook fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True) If (vbBoolean <> VarType(fnameList)) Then If (UBound(fnameList) > 0) Then countFiles = 0 countSheets = 0 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set wbkCurBook = ActiveWorkbook For Each fnameCurFile In fnameList countFiles = countFiles + 1 Set wbkSrcBook = Workbooks.Open(Filename:=fnameCurFile) For Each wksCurSheet In wbkSrcBook.Sheets countSheets = countSheets + 1 wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count) Next wbkSrcBook.Close SaveChanges:=False Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic MsgBox "Processed " & countFiles & " files" & vbCrLf & "Merged " & countSheets & " worksheets", Title:="Merge Excel files" End If Else MsgBox "No files selected", Title:="Merge Excel files" End If End Sub كما يمكنك الإستعانة بهذا الفيديو COMBINE Multiple Excel WORKBOOKS into One | ExcelJunction.com كما يمكنك استخدام هذا الكود أيضاً Sub ConslidateWorkbooks() 'Created by Sumit Bansal from https://trumpexcel.com Dim FolderPath As String Dim Filename As String Dim Sheet As Worksheet Application.ScreenUpdating = False FolderPath = Environ("userprofile") & "DesktopTest" Filename = Dir(FolderPath & "*.xls*") Do While Filename <> "" Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop Application.ScreenUpdating = True End Sub وهذا أيضاً كود ثالث لطلبك Sub mergeFiles() 'Merges all files in a folder to a main file. 'Define variables: Dim numberOfFilesChosen, i As Integer Dim tempFileDialog As fileDialog Dim mainWorkbook, sourceWorkbook As Workbook Dim tempWorkSheet As Worksheet Set mainWorkbook = Application.ActiveWorkbook Set tempFileDialog = Application.fileDialog(msoFileDialogFilePicker) 'Allow the user to select multiple workbooks tempFileDialog.AllowMultiSelect = True numberOfFilesChosen = tempFileDialog.Show 'Loop through all selected workbooks For i = 1 To tempFileDialog.SelectedItems.Count 'Open each workbook Workbooks.Open tempFileDialog.SelectedItems(i) Set sourceWorkbook = ActiveWorkbook 'Copy each worksheet to the end of the main workbook For Each tempWorkSheet In sourceWorkbook.Worksheets tempWorkSheet.Copy after:=mainWorkbook.Sheets(mainWorkbook.Worksheets.Count) Next tempWorkSheet 'Close the source workbook sourceWorkbook.Close Next i End Sub وفى هذا الرابط ايضاً عدة أكواد ستفيدك فى طلبك How to combine multiple workbooks into one master workbook in Excel?

ممتازة منك صديقي رائد (لكنها تدرج المكرر في حال وجوده) هذه معادلة احرى (بردو تدرج المكرر في حال وجوده) (سبق وان قلت ان استعمال الدالة IFERROR ) يفضل عدم استعمالها =IF(ROWS($A$1:A1)>SUMPRODUCT(--(YEAR($B$2:$B$50)=$G$1)),"",INDEX($A$2:$A$50,SMALL(IF($A$2:$A$50<>"",IF(YEAR($B$2:$B$50)=$G$1,ROW($A$2:$A$50)-ROW($A$2)+1)),ROWS($A$1:A1)))) اذا لم نتعمل معك استبدل الفاصلة "," بفاصلة منقوطة ";" مع (Ctrl+Shift+Enter) Prof_names.xlsm

بعد اذن حبيبي سليم معادلة صفيف. أكتب فقط السنة في الخلية g1 =IFERROR(INDEX($A$2:$A$170; MATCH(0;COUNTIF($G$3:G3; IF(($G$1=YEAR($B$2:$B$170)); $A$2:$A$170; $G$3)); 0)); "") إدراج الاسماء تلقائي.xlsx

جرب هذا الكود Option Explicit Sub get_Prof_names() Dim sh As Worksheet, Rg As Range Dim i%, Yer% Dim Salim As Object Set Salim = CreateObject("Scripting.Dictionary") Set sh = Sheets("sheet1") Set Rg = sh.Range("G3").CurrentRegion If Rg.Rows.Count > 1 Then _ Rg.Offset(1).Resize(Rg.Rows.Count - 1).Clear Yer = sh.Range("G1"): i = 2 Do Until sh.Cells(i, 1) = vbNullString If Year(Cells(i, 2)) = Yer Then Salim(Cells(i, 1).Value) = vbNullString End If i = i + 1 Loop If Salim.Count Then With sh.Range("G4").Resize(Salim.Count) .Value = Application.Transpose(Salim.Keys) .Borders.LineStyle = 1 .Font.Bold = True: .Font.Size = 16 .InsertIndent 1: .Interior.ColorIndex = 35 End With End If End Sub الملف مرفق Prof_names.xlsm

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

هناك طريقة ثانية بدون الشيت المساعد انظر الى الملف الزر : Print2 Test_Print_Areas 2 way.rar

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

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

اكتب : Between ("أ") And ("ي") Or >("ي") حروف عربية فقط.rar

السلام عليكم بعد أن تم التأكيد من الأخ فوكسمان أن البرنامج من صنع الأخ حسان ملكاوي على الرابط التالي : http://www.officena.net/ib/index.php?showt...=18590&st=0 فقد تم تعديل عنوان المشاركة

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