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

اخي العزيز @Ahmed_J نصف الحل هو فهم السؤال وحضرتك لم تطرح السؤال بشكل مفصل .. وطرح الاستاذ @د.كاف يار في محله .. سأساعدك في الطرح حتى يتمكن الاخوة فهم السؤال .. لكل درجة وظيفية مراحل بالراتب تختلف عن الدرجة التي تليها وكل درجة لها خمسة مراحل يتزايد فيها الراتب فمثلا الدرجة الخامسة تتزايد سنويا بمقدار 6000 دينار لغاية المرتبة الخامسة ليصبح 453 والدرجة الرابعة تتزايد سنويا بمقدار 8000 دينار لغاية المرتبة الخامسة ليصبح 541 وهكذا لبقية الدرجات مع وافر احترامي

يمكنك استعمال هذا الكود في حدث الضغط على زر إدخال Private Sub CommandButton1_Click() Sheets(1).Activate lrow = Range("e" & Rows.Count).End(xlUp).Row + 1 If WorksheetFunction.CountIfs(Range("D2:D" & lrow), ComboBox1.Value, Range("E2:E" & lrow), ComboBox2.Value) = 0 Then Range("d" & lrow).Value = ComboBox1.Value Range("E" & lrow).Value = ComboBox2.Value ComboBox1.Value = "" ComboBox2.Value = "" Else MsgBox "إدخال مكرر" End If End Sub بالتوفيق

تفضل هذا التعديل salary.accdb و الله يا بش مهندس اني متابعك عن قرب الكون هذا الي عايشين فيه و سهل على البشر المعيشة في كوكب الأرض بناه مهندسين امثالك فكيف لا اعجب بتفكيرك و رؤيتك

نعم صحيح لم اضع معيار الدرجة تفضل التعديل salary.accdb

تفضل هذا التعديل نسيت ان احسب مرتبت الراتب و الدرجة هذا التعديل salary.accdb

تفضل هذا التعديل salary.accdb

هل هذا ماتريده؟ لكن لدي ملاحظتين..الاولى ان المرحلة بالراتب salary2 معكوسة ويجب تعديلها اقصد ان المرتبة الخامسة هي الاعلى وثانيا ان اي درجة سوف تحصل على مرتبة واحدة فقط وهذا خطأ..والمفروض ان الدرجة عند حصولها على مرتبة ينبغي جمعها مع المرتبة السابقة وهكذا salary.accdb

اتفضل Database1 (1).accdb

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

تفضل التعديل تجربة.accdb

تفضل هذا التعديل كما بالجدول salary.accdb

حمي الوطيس اجتمعوا عمالقة البرمجة

كلامك صحيح استاذ احمد .. لكن ليست كل الدوائر تعمل بهذا النظام .. بعضها يعتمد على المراحل الخمس لكل درجة وبعضها يستمر للمرحلة 11 ما احاول ايصاله لاستاذنا المبدع @د.كاف يار ان الموظف في الدرجة الاولى والمرتبة الاولى يكون راتبه 910000 وليس 930000 الا بعد مرور سنة وهكذا دواليك

استاذ @Ahmed_J الجدول لديك صحيح .. لكن اين المرتبة الخامسة بصراحة د.حسين الغالي .. انا احاول شحن الموضوع حتى نرى ابداعاتك 😍 تحياتي لك يا مبدع

تفضل هذا التعديل اذا كانت رواتب الدرجات مختلفة فستجد الموضوع اصبح اسهل من قبل Public Function Subsalary(TotalSalary As Double, Levelsalary As Double) As Double Dim SRank As Double, SGrade As Double SRank = DLookup("RankSalary", "Rank", "RankNO=" & TotalSalary) SGrade = DLookup("GradeSalary", "Degree", "GradeNO=" & Levelsalary) Subsalary = SRank + SGrade End Function salary.accdb

طيب <<<<<<<>>>>>>>> ضع هذا الحدث تحت الزر عندك ......... If Me.الوظيفة = "اداري" Then DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO 1 ( [رقم الكتاب], [تاريخ الكتاب], الاسم, الوظيفة, الموضوع, [اسم المستلم], [تاريخ الاستلام], المرحلة ) SELECT المعاملات.[رقم الكتاب], المعاملات.[تاريخ الكتاب], المعاملات.الاسم, المعاملات.الوظيفة, المعاملات.الموضوع, المعاملات.[اسم المستلم], المعاملات.[تاريخ الاستلام], المعاملات.المرحلة FROM المعاملات WHERE (((المعاملات.[رقم الكتاب])=[Forms]![ادخال بيانات]![رقم الكتاب]));" DoCmd.RunSQL "INSERT INTO 2 ( [رقم الكتاب], [تاريخ الكتاب], الاسم, الوظيفة, الموضوع, [اسم المستلم], [تاريخ الاستلام], المرحلة ) SELECT المعاملات.[رقم الكتاب], المعاملات.[تاريخ الكتاب], المعاملات.الاسم, المعاملات.الوظيفة, المعاملات.الموضوع, المعاملات.[اسم المستلم], المعاملات.[تاريخ الاستلام], المعاملات.المرحلة FROM المعاملات WHERE (((المعاملات.[رقم الكتاب])=[Forms]![ادخال بيانات]![رقم الكتاب]));" DoCmd.RunSQL "INSERT INTO 3 ( [رقم الكتاب], [تاريخ الكتاب], الاسم, الوظيفة, الموضوع, [اسم المستلم], [تاريخ الاستلام], المرحلة ) SELECT المعاملات.[رقم الكتاب], المعاملات.[تاريخ الكتاب], المعاملات.الاسم, المعاملات.الوظيفة, المعاملات.الموضوع, المعاملات.[اسم المستلم], المعاملات.[تاريخ الاستلام], المعاملات.المرحلة FROM المعاملات WHERE (((المعاملات.[رقم الكتاب])=[Forms]![ادخال بيانات]![رقم الكتاب]));" DoCmd.RunSQL "INSERT INTO 4 ( [رقم الكتاب], [تاريخ الكتاب], الاسم, الوظيفة, الموضوع, [اسم المستلم], [تاريخ الاستلام], المرحلة ) SELECT المعاملات.[رقم الكتاب], المعاملات.[تاريخ الكتاب], المعاملات.الاسم, المعاملات.الوظيفة, المعاملات.الموضوع, المعاملات.[اسم المستلم], المعاملات.[تاريخ الاستلام], المعاملات.المرحلة FROM المعاملات WHERE (((المعاملات.[رقم الكتاب])=[Forms]![ادخال بيانات]![رقم الكتاب]));" MsgBox Space(20) & "تمت العملية بنجاح.." & Space(20), msgstyle, "للمعلومية" DoCmd.SetWarnings True ElseIf Me.الوظيفة = "معلم" Then DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO 5 ( [رقم الكتاب], [تاريخ الكتاب], الاسم, الوظيفة, الموضوع, [اسم المستلم], [تاريخ الاستلام], المرحلة ) SELECT المعاملات.[رقم الكتاب], المعاملات.[تاريخ الكتاب], المعاملات.الاسم, المعاملات.الوظيفة, المعاملات.الموضوع, المعاملات.[اسم المستلم], المعاملات.[تاريخ الاستلام], المعاملات.المرحلة FROM المعاملات WHERE (((المعاملات.[رقم الكتاب])=[Forms]![ادخال بيانات]![رقم الكتاب]));" DoCmd.RunSQL "INSERT INTO 6 ( [رقم الكتاب], [تاريخ الكتاب], الاسم, الوظيفة, الموضوع, [اسم المستلم], [تاريخ الاستلام], المرحلة ) SELECT المعاملات.[رقم الكتاب], المعاملات.[تاريخ الكتاب], المعاملات.الاسم, المعاملات.الوظيفة, المعاملات.الموضوع, المعاملات.[اسم المستلم], المعاملات.[تاريخ الاستلام], المعاملات.المرحلة FROM المعاملات WHERE (((المعاملات.[رقم الكتاب])=[Forms]![ادخال بيانات]![رقم الكتاب]));" DoCmd.RunSQL "INSERT INTO 7 ( [رقم الكتاب], [تاريخ الكتاب], الاسم, الوظيفة, الموضوع, [اسم المستلم], [تاريخ الاستلام], المرحلة ) SELECT المعاملات.[رقم الكتاب], المعاملات.[تاريخ الكتاب], المعاملات.الاسم, المعاملات.الوظيفة, المعاملات.الموضوع, المعاملات.[اسم المستلم], المعاملات.[تاريخ الاستلام], المعاملات.المرحلة FROM المعاملات WHERE (((المعاملات.[رقم الكتاب])=[Forms]![ادخال بيانات]![رقم الكتاب]));" DoCmd.RunSQL "INSERT INTO 8 ( [رقم الكتاب], [تاريخ الكتاب], الاسم, الوظيفة, الموضوع, [اسم المستلم], [تاريخ الاستلام], المرحلة ) SELECT المعاملات.[رقم الكتاب], المعاملات.[تاريخ الكتاب], المعاملات.الاسم, المعاملات.الوظيفة, المعاملات.الموضوع, المعاملات.[اسم المستلم], المعاملات.[تاريخ الاستلام], المعاملات.المرحلة FROM المعاملات WHERE (((المعاملات.[رقم الكتاب])=[Forms]![ادخال بيانات]![رقم الكتاب]));" MsgBox Space(20) & "تمت العملية بنجاح.." & Space(20), msgstyle, "للمعلومية" Else MsgBox Space(20) & "الرجاء اختيار الوظيفة.." & Space(20), msgstyle, "تحذير" End If

تفضل التعديل Nz(DSum("[total]", "New_Request", "TCODE= 42 and doctor=" & [doctors] & _ " AND Ddate Between #" & CDate([Forms]![Q_All]![FROM]) & "# And #" & CDate([Forms]![Q_All]![TO]) & "#"), 0) كذلك اذا ما ضبط التنسيق في الأعلا جرب هذا لأنك قد تواجه مشكلة في تنسيق التاريخ حسب تعاملك مع و هذا هو الحل Nz(DSum("[total]", "New_Request", "TCODE= 42 and doctor=" & [doctors] & _ " AND Ddate Between " & Format$(CDate([Forms]![Q_All]![FROM]), "\#mm\/dd\/yyyy hh\:nn\:ss\#") & _ " And " & Format$(CDate([Forms]![Q_All]![TO]), "\#mm\/dd\/yyyy hh\:nn\:ss\#")), 0)

ملاحظة الأفضل انك تعمل جدول فيه الدرجة و الراتب و الوظيفة و تستدعيها من خلال الوحدة النمطية لأنك بهذي الطريقة راح تضطر تدخل تعدل في الوحدة النمطية كل ما احتجت للتعديل و هذا غير عملي

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

السلام عليكم اخي الكريم من رسالة الخطاء هناك قيمة غير صحيحة ... أعتقد بسبب المعرف ... ولكن لا استطيع ان اجزم على العموم عملت لك طريقة اخرى بواسطة VBA ان شاءالله تلبي طلبك وهي اسهل في التعامل بواسطة الاكواد. والطريقة الاولى ما زالت تعمل عن طريق Macro . القي نظره على الملف الجديد.. او ارفق ملفك حتى نتمكن من تشخيص الحطاء. تحياتي New.accdb

طيب <<<<<<<<>>>>>>>> اعمل زر وضع فيه هذا الحدث ............ Dim msgstyle Dim Rs As DAO.Recordset Dim Rs2 As DAO.Recordset Dim rstChild As Recordset Dim rstChild2 As Recordset Dim rstChild3 As Recordset Dim rstChild4 As Recordset Set Rs2 = CurrentDb.OpenRecordset("select * from proces where [id] Like '" & [id] & "*'") Set Rs = CurrentDb.OpenRecordset("local") Do While Not Rs2.EOF Rs.AddNew Set rstChild = Rs!vend.Value Set rstChild2 = Rs2!vend.Value Set rstChild3 = Rs!sisi.Value Set rstChild4 = Rs2!sisi.Value Rs!id_f = Rs2!id Do While Not rstChild2.EOF rstChild.AddNew rstChild.Fields(0) = rstChild2.Fields(0) rstChild.Update rstChild2.MoveNext Loop Do While Not rstChild4.EOF rstChild3.AddNew rstChild3.Fields(0) = rstChild4.Fields(0) rstChild3.Update rstChild4.MoveNext Loop Rs.Update Rs2.MoveNext Loop Set Rs = Nothing MsgBox Space(20) & "تمت العملية بنجاح.." & Space(20), msgstyle, "للمعلومية"

شكرا اخى الفاضل @ابا جودى

=IFERROR(IF(ISODD(MID(C182,13,1)),"ذكر","أنثي"),"")

جزاك الله خيرا استاذ محمد

Private Sub AddOneNO_Click() On Error GoTo err_rec Dim rs As Recordset Set rs = Me.Recordset.Clone rs.MoveFirst DoCmd.GoToRecord , , acNewRec numm = textNum & otuNum + 1 err_rec: If Err.Number = 3021 Then MsgBox "يجب ادخال السجل الأول يدويا" Exit Sub End If End Sub Private Function otuNum() Dim i As Integer Dim rs As dao.Recordset Dim strSQL As String strSQL = "SELECT Max(CInt(Right([numm],Len([numm])-InStrRev([numm],""/"")))) AS maxNum FROM Table1" Set rs = CurrentDb.OpenRecordset(strSQL) i = rs!maxNum rs.Close Set rs = Nothing otuNum = i End Function Private Function textNum() Dim i As String Dim rs As dao.Recordset Dim strSQL As String strSQL = "SELECT top 1 Left([numm],Len([numm])-Len(Right([numm],Len([numm])-InStrRev([numm],""/"")))) AS textfld " & _ "FROM Table1" Set rs = CurrentDb.OpenRecordset(strSQL) i = rs!textfld rs.Close Set rs = Nothing textNum = i End Function مشاركة مع احبتي بطريقة اخرى خاصة وان اخي كاف يار قام بتوحيد العبارة النصية التي تسبق الرقم tjrobh.accdb

ارى ان الخطأ منطقي لأن السطر الملون بالاصفر DoCmd.GoToRecord , , acNewRec هو امر باضافة سجل جديد والمستخدم لم تمنحه صلاحية الاضافة جرب كما ااشار الــ د. كاف يار اضافة سطر تجاوز الاخطاء قبل السطر اعلاه ليصبح On Error Resume Next DoCmd.GoToRecord , , acNewRec

قم بإيقاف رسالة الخطأ بإستخدام On Error Resume Next

حسنأ اخي الكريم ساضع لك الكود بطريقة محتلفة وواضحة جدا ويمكن اضافة المعايير التي تريدها فيما بعد بنفس الطريقة Dim myWhere As String myWhere = myWhere & "iPage>1" myWhere = myWhere & " and YEAR = " & Me.Combo97 myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'" Me.Text20 = DSum("iAmount", "tbl_Items", myWhere) DATA1041-5.rar تحياتي

تفضل هذا التعديل كارت الصنف.accdb

مرحبا، ربما يفيدك هذا الملف. Booking Hall.xlsm

يمكنك استعمال هذا الكود في حدث عند تغيير التحديد Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 5 Or Target.Column = 7 Then Range("ad2").Value = Target.Value End If End Sub وهذا ملفك بعد إضافة الكود وتغيير الامتداد بالتوفيق Select.xlsb

جميعا بإذنه تعالى

بارك الله فيك وربي يوفقك

الشكر لله تحياتي

الشكر لله وفقنا الله جميعا لكل خير

إذا كان المطلوب بالمعادلات فيمكنك وضع هذه المعادلة في الخلية D16 =IFERROR(INDEX(التعداد!B$3:B$17,SMALL(IF(التعداد!$D$3:$D$17<>"",ROW($1:$15)),$C16)),"") ثم سحب مقبض التعبئة لأسفل ثم إلى اليسار مع تغيير تنسيق عمودي التاريخ بالتوفيق

Sub Test() With Sheet1 Sheet2.Range("C15").CurrentRegion.Offset(1).Clear .[J2].Formula = Replace("='#'!D3<>""""", "#", .Name) .[A2].CurrentRegion.AdvancedFilter 2, .[J1:J2], Sheet2.[C15:H15] .[J2].Clear End With End Sub

وفقنا الله جميعا لكل ما يحبه ويرضاه

السلام عليكم اولا: يتم عمل الجدول بجميع المعادلات والقيم السليمة مثل التامينات وحدود الضرائب وغيرها (بمعنى حساب الصافى كما هو معتاد) ثانيا: استخدام خاصية الـــ Goal Seek فى الاكسيل كما فى المثال البسيط المرفق صورة مع ملاحظة ارقام الخلايا بالصور اتمنى ان تنجح معك السلام عليكم اولا: يتم عمل الجدول بجميع المعادلات والقيم السليمة مثل التامينات وحدود الضرائب وغيرها (بمعنى حساب الصافى كما هو معتاد) ثانيا: استخدام خاصية الـــ Goal Seek فى الاكسيل كما فى المثال البسيط المرفق صورة مع ملاحظة ارقام الخلايا بالصور اتمنى ان تنجح معك

جميعا بإذن الله تعالى

اخواني الكرام اضع بين ايديكم الجزء الاول من شرح الترحيل وبإنتظار تعليقاتكم واستفسارتكم ابواحمد الجزء الاول من الشرح ملف شرح الجزء الاول الترحيل.rar الجزء الثاني من الشرح ملف شرح الجزء الثانى الترحيل2.rar الجزء الثالث من الشرح (ترحيل القيم - ترحيل محدوود) ملف شرح الجزء الثالث الترحيل3.rar الجزء الرابع من شروحات الترحيل ملف شرح الجزء الرابع ترحيل حسب اسم الشيت.rar لا تنسوني أخوتي من الدعاء لي بظهر الغيب

شكرا لك أخي الكريم mhrrd وبانتظار رأي الأخ سعيد فيما تقدم وبانتظار تواصل الأعضاء المحترفين في المعادلات في الموضوع لإثرائه

بسم الله الرحمن الرحيم الحمد لله رب العالمين والصلاة والسلام على سيد الخلق أجمعين وبعد إنه لشرف لي أن أنال ثقة القائمين على هذا الصرح العلمي الكبير ويتم إعطائي الفرصة في الإشراف على القسم الجديد قسم برمجة الويب وأبدأ معكم إخوتي بمقدمة ينبغي معرفتها اسم إنترنت يتكون من البادئة (إنتر inter) التي تعني بالإنجليزية "بين" و كلمة (نت net) التي تعني بالإنجليزية "شبكة"، أي "الشبكة البينية" و الاسم دلالة على بنية إنترنت باعتبارها "شبكةً ما بين الشبكات" أو "شبكةً من شبكاتٍ"، و مع هذا فقد شاعت خطأ في وسائل الإعلام العربية تسمية "الشبكة الدولية للمعلومات" ظنا أن المقطع inter في الاسم هو اختصار الكلمة الإنجليزية "international" التي تعني "دولي"، و هو ما يوحي على غير الواقع بأن الشبكة مشروع أممي. وبداية موضوع الشبكة هذا هو يشابه القول الإسلامي :"المرء قليل بنفسه كثير بإخوانه" وهذا ما يحدث حينما يكون لديك جهاز ولدى أخ لك جهاز آخر ويحتوي جهازك على مقتنيات غير التي عند أخيك وتريد ويريد أخوك الإطلاع على محتويات الجهازين في نفس الوقت ومن هنا ظهرت فكرة الشبكة كانت الإنترنت نتيجة لمشروع أربانت الذي أطلق عام 1969، وهو مشروع من وزارة دفاع الولايات المتحدة. أنشئ هذا المشروع من أجل مسا عدة الجيش الأمريكي عبر شبكات الحاسب الآلي وربط الجامعات ومؤسسات الأبحاث لاستغلال أمثل للقدرات الحسابية للحواسيب المتوفرة. وفي الأول من يناير 1983 استبدلت وزارة دفاع الولايات المتحدة البروتوكول) NCP المعمول به في الشبكة واستعاضت عنه بميفاق حزمة موافيق (بروتوكولات ) الإنترنت. من الأمور التي أسهمت في نمو الشبكة هو ربط "المؤسسة الوطنية للعلوم" جامعات الولايات المتحدة ألامريكية بعضها ببعض مما سهّل عملية الاتّصال بين طلبة الجامعات وتبادل الرسائل الإلكترونية و المعلومات ، بدخول الجامعات إلى الشبكة ، أخذت الشبكة في التوسع والتّقدم وأخد طلبة الجامعات يسهمون بمعلوماتهم ورأى النور المتصفح "موزاييك"، والباحث "جوفر" و "آرشي" بل إن الشركة العملاقة "نتسكيب" هي في الأصل من جهود طلبة الجامعة قبل أن يتبنّاها العقل التجاري و يوصلها إلى ما آلت إليه فيما بعد. لم يكن لدى المهندسين الذين خططوا للشبكة في بداية عهدها أدنى تصور لما آلت إليه الشبكة اليوم، ويعزى نجاحها العملاق اليوم للا مركزية الشبكة أو بمعنى آخر لا يوجد جهة واحدة تسيطر على مجريات الأمور بشأن الشبكة. يحكم الشبكة ميفاقا (بروتوكول ) للإتّصال والذي يقرر عمل هذا الميفاق هم "مهندسو شبكة الإنترنت" وهي جهة مستقلّة تتدارس وتقرر أنواع الموافيق المعمول به لشتى خدمات الشبكة ( HTTP, FTP, IRC ) الخ.. مهندسو الشابكة ( الإنترنت ) هم أحد عوامل نجاح الشبكة حيث أن الهيئة عامة ومفتوحة للجميع ليدلي بدلوه. فلولا الإنترنت ، ما كنت لتجلس في بيتك وتقرأ هذا المقال ولما قامت العديد من الشركات الكبرى الموجودة اليوم التي تعتمد على تزويد الخدمات في شبكة الإنترنت. لم يجري استخدام الشابكة بشكل واسع حتى أوائل التسعينات من القرن العشرين وبالرغم من توفرالتطبيقات الأساسية والمبادئ التوجيهيه التي تجعل من استخدام الانترنت ممكن و موجود منذ ما يقرب من عقد. وفي 6 آب / اغسطس ، 1991 ، وفي المختبر الأوروبي للفيزياء والجزيئات CERN ، والذي يقع على الحدود بين فرنسا وسويسرا ، نشر مشروع الشبكة العالمية الويب والتي تم اختراعها من قبل العالم الإنجليزي تيم بيرنرز لي في عام 1989. وهناك طور المتصفح للويب violawww ، استنادا إلى hypercard. ولحقه متصفح ويب "موزاييك"MOSAIC. وفي عام 1993 ، وفي المركز الوطني لتطبيقات supercomputing في جامعة الينوي تم إصدار نسخة 1،0 من MOSAIC "موزاييك"، وبحلول اواخر عام 1994 كان هناك تزايد ملحوظ في اهتمام الجمهور بما كان سابقا اهتمام للاكاديمين فقط. وبحلول عام 1996 صار استخدام كلمة الشابكة قد أصبح شائعا ، وبالتالي ، كان ذلك سببا للخلط في استعمال كلمة إنترنت على أنها إشارة إلى الشبكة العالمية الويب. وفي غضون ذلك ، وعلى مدار العقد ، زاد استخدام الشابكة ( الإنترنت ) بشكل مطرد. وخلال التسعينات ، كانت التقديرات تشير إلى أن الشابكة قد زاد بنسبة 100 ٪ سنويا ، ومع فترة وجيزة من النمو الانفجاري في عامي 1996 و 1997. وهذا النمو هو في كثير من الأحيان يرجع إلى عدم وجود الإدارة المركزية ، مما يتيح النمو العضوي للشبكه ، وكذلك بسبب الملكيه المفتوحة لموافيق (بروتوكولات )الإنترنت ، التي تشجع الأشخاص والشركات على تطوير أنطمة وبيعها وهي أيضا تمنع شركة واحدة من ممارسة الكثير من السيطرة على الشبكة. أهم مراحل الانترنت التاريخية وضعت أول أربعة نقاط اتصال لشبكة " أربانيت " في مواقع جامعات أمريكية منتقاة بعناية . 1972 أول عرض عام لشبكة " أربانيت " في مؤتمر العاصمة واشنطن بعنوان العالم يريد أن يتصل ، والسيد راي توملنس يخترع البريد الإلكتروني ويرسل أول رسالة على " أربانيت " . 1973 إضافة النرويج وإنجلترا إلى الشبكة . 1974 الإعلان عن تفاصيل بروتوكول التحكم بالنقل ، إحدى التقنيات التي ستحدد " إنترنيت " . 1977 أصبحت شركات الكمبيوتر تبتدع مواقع خاصة بها على الشبكة . 1983 أصبح البروتوكول TCP/IP معيارياً لشبكة " أربانيت " . 1984 أخذت مؤسسة العلوم الأمريكية NSF على عاتقها مسئولية " أربانيت " ، وتقديم نظام أعطاء أسماء لأجهزة الكمبيوتر الموصولة بالشبكة المسمى Domain Name System (DNS) 1985 أول شركة كمبيوتر تسجل ملكية " إنترنيت " خاصة بها . 1986 أنشأت مؤسسة العلوم العالمية شبكتها الأسرع TNSFNE مع ظهور بروتوكول نقل الأخبار الشبكية Network News Transfer Protocol جاعلا أندية النقاش التفاعلي المباشر أمرا ممكنا ، وإحدى شركات الكمبيوتر تبني أول جدار حماية لشبكة " إنترنيت" . 1990 تم إغلاق " أربانيت " و"إنترنيت " تتولى المهمة بالمقابل . 1991 جامعة مينيسوتا الأمريكية تقدم برنامج " غوفر" Gopher وهو برنامج لاسترجاع المعلومات من الأجهزة الخادمة في الشبكة . 1992 مؤسسة الأبحاث الفيزيائية العالمية CERN في سويسرا ، تقدم شيفرة النص المترابط Hypertext المبدأ البرمجي الذي أدى إلى تطوير الشبكة العالمية Word Wide Web 1993 قد ابتدأ الإبحار ، من خلال إصدار أول برنامج مستعرض الشبكة " موزاييك " ثم تبعه آخرون مثل برنامج " نتسكيب " وبرنامج " مايكروسوفت " . الرئيس الأمريكي كلينتون يطلق صفحته الخاصة على الشبكة العالمية http://whitehouse.gov 1995 اتصل بشبكة " إنترنيت " ستة ملايين جهاز خادم و50.000 شبكة ، وإحدى شركات الكمبيوتر تطلق برنامج البحث في الشبكة العالمية . 1996 أصبحت " إنترنيت " و " وب " كلمات متداولة عبر العالم . في الشرق الوسط أصبحت " إنترنيت " من المواضيع الساخنة ، ابتداء من التصميم الأول لشبكة وحتى اليوم ، واصبح هناك عدد من مزودي خدمة " إنترنيت " يقدمون خدماتهم . ومعظمنا يعرف غالبية استخدامات الانترنت ابتداء من مجرد قراءة الصفحات إلى خدمات البريد إلى خدمات رفع الملفات إلى التسوق و ......و......و...... ولمزيد من المعلومات يمكنكم الرجوع إلى هذا الموضوع في الموسوعة الحرة هنـــــا وأول شيء يجب الحديث عنه بعد المعرفة السابقة عن بدايات الانترنت هو لغة HTML والتي هي أبسط لغة لتصميم المواقع وصفحات الانترنت وهي عبارة عن رموز لكلمات Hyper Text Markup Language وتعني لغة ترميز النصوص المتشعبة ومن مميزات هذه اللغة: 1- تعمل على جميع أنظمة التشغيل 2- يمكن استعراضها من الجهاز مباشرة بدون وضعها على خادم 3- لاتحتاج إلى مفسر أو مترجم وإنما تحتاج لمتصفح مثل انترنت إكسبلورر لعرض نتيجة أكوادها 4- إمكانية إدراج ملفات الوسائط المتعددة في صفحاتها 5- وغيرها من المزايا والسهولة وغيرها ستكتشفها بنفسك ونلتقي في درس جديد من دروس تعليم لغة HTML لا ينقصني سوى دعاؤكم أخوكم أبو عبد الله محمد صالح

يا ريت تشرح المشكلة من أولها وبإذن الله نصل للحل سويا

سعيد بمرورك العطر أخي زياد زادك الله علما ومالا وخلقا وفقنا الله جميعا لكل ما يحبه ويرضاه وأؤمن على دعائك الخاص بأخينا محمد طاهر آمين

وإياك أخي وصديقي مهندس محمد طاهر كل عام أنتم بخير

بارك الله فيك أخي عادل وشاكر لهذا الإطراء وجعلني الله عند حسن ظنكم وكل عام وجميع الإخوة والأخوات بخير

وإياك أخي يحيى انتظر المزيد في سلسلة تعلم لغة HTML وأرجو أن يخبر أحدكم صاحبه بوجود هذه الدورة لتعلم اساسيات لغة هتمل والانطلاق منها إلى لغات تصميم المواقع والتي أرى أنها أمتع لغات البرمجة وأسهلها وسيتبين ذلك كل متابع لنا في هذا القسم الجديد

وهذا التعديل يمكننا من إلغاء خلية عدد العملاء حيث يقوم بعد العملاء الموجودين في العمود b ويتم نسخ المعادلة بعددهم فقط mas123-example-2.rar

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