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

السلام عليكم ورحمة الله تعالى وبركاته هو شرح بسيط اتمنى من الله ان يساعد احدا منكم يوما هذا الشرح عبارة عن مقالات قراتها قديما ولكن نجمعها هنا باذن الله ممكن تقول عن الموضوع الاسس العلمية او الاسس الصحيحة لبناء قاعدة بينات متكاملة دا ان صح التعبير يعنى لانى لست اهلا لذلك نصيحة لو عاوز تتعلم بجد اكسس عليك بالورقة والقلم والة حاسبة كمان .... ودى بجد حقيقة ولو فكرت تفتح الاكسس قاوم نفسك واستمتع بالتطبيق على الورق اولا ثم جرب على الاكسس فى النهاية واى سؤال هتبداه بكيف ؟؟ صدقنى مش هتفهم حاجة هتبقى مجرد الة بتنقل وخلاص انا عاوزك انت تكون الاكسس يعنى تسال نفسك اولا كيف ؟؟ ثم تعقبها مباشرة بلماذا ؟؟ لانى كيف ؟؟ سهلة جدا ... اعمل كذا وكذا وكذا وكذا بس هتصنع منك مقلدا عظيما اما لماذا عاوزة فهم عاوزة هدوء عاوزة شرح لان انت لو اتعلمت بجد الاسس الصحيحة البرامج دى Access . FoxPro. . Clipper . DBase . Microsoft SQL . Oracle . Sybase هتبقى سهلة جدا معاك البرامج اللى فاتت دى عبارة عن برامج لشركات تستخدم ادوات قواعد البيانات مثال بسيط كلمة تليفون او موبايل لما تيجى تتكلم عنها هتتكلم عن طريقة عملها الصناعة بتاعتها او صيانتها بس مش هتتكلم عن نوع معين من التليفونات يلا اقفل الاكسس وابتدى اسال نفسك لماذا ننشأ هذا الجدول؟ لماذا بهذه الطريقة ؟ لماذا الاستعلام وما هى اهميته ؟ مش كيف ننشأ هذا الجدول انما لماذا ننشا هذا الجدول ؟؟ مفيش اكسس كله مقفول انت الاكسس صدقنى لو جربت الموضوع دا هتكون وضعت قدمك على الطريق الصحيح لانشاء قاعدة بيانات متكاملة قواعد البيانات خلى بالك من كلمة البيانات دى هى عبارة عن مجموعة لا معنى لها من الارقام والكلمات زى كدا "ربح " "خسارة" "2000 " ...... دى اسمها بيانات البيانات لا تعنى شيئا ولا يستفاد منها اطلاقا الخاصية الثانية للبيانات هى الحجم حيث البيانات تعنى الضخامة والكبر من حيث العدد اذا فالبيانات ضخمة ومتشعبة وكثيرة وفى نفس لوقت لا تعنى شيئا ندخل بقى فى مصطلح قاعدة قاعدة هو تنظيم الشئ على اسس ودا اللى بيحصل قى قواعد البيانات تنظيممها .. ثم تحليلها ... ليه بقى ؟؟ظ لان من خلال معالجة البيانات هتحولها لمعلومات ... يبقى الهدف من البيانات ه تحويلها لمعلومات السؤال برضو .. لمــــــــــــــــــــــــاذا نقوم بتحويل البيانات الى معلومات علشان سببين مهمين جدا اولا .. اتخاذ القرارات ثانيا ... التخطيط مثال بسيط اوى .. بلدى الغالية مصر ربنا يحفظها عندة قاعدة بينات لتعداد السكان فى مصر .. اللى هما اصلا مش بيبطلو خلفة هههههههه هي بينات ملهاش قيمة انما بقى لما اجى اعالجها علشام احولها لمعلومات علشان اقدر اخطط واتخذ القرارات هلاقى مثلا مثلا عندى اطفال لسه صغيرين مثلا 20 % دى لحد كدا معلومة عايزة تخطيط لبناء مدارس وهكذا مثلا ... ومننساش اننا لازم نحول البيانات الى معلومات علشان نقدر نتخذ القرارات اخى الكريم قواعد البينات تندرج تحت مصطلح علم للبرمجة أسمه Tier 3 أي الطبقات الثلاثة هههههههههههه الاستاذ InternetMaster - الفريق العربى للبرمجة عندما سال فى احد مشاركاته ان هذه الطبقات هو طراز قديم او تصميم قديم قال احفظوها كما هى حتى لو قيل انها خطأ .. الطبقة الأولىFirst Tier وهو ما يسمى بالمقدمة أو واجهة المستخدم User Interface الطبقة الثانية Second Tier وهوما يسمى بطبقة المنطق والقوانين Logic Interface الطبقة الثالثة Third Tier وهو ما يسمى بالخلفيه Back End ليه انا بقولك على الطبقات الثلاثة دى تعالى لننسى النماذج . وننسى التقارير ملحوظة النماذج والتقارير الموجودة فى الاسس ليست للاحتراف او البرامج القوية ليه واجع دماغنا بكل دا لان مفيش حاجة اسمها فى قواعد البينات اسمه نماذج او تقارير النماذج والتقارير تصنع فى الطبقة الاولى اما قواعد البينات فى الطبقة الثالثة لماذا الآكسس و FoxPro و Dbase و Clipper و MySQL يستخدمون الطبقات الثلاثة مع بعضها البعض ف محتوى واحد؟ علشان دى برامج تعبانة . ودى حقيقةعلى قدها يعنى علشان البرامج دى لا تصلح الا للاستخدام الشخصى فقط او البرامج الى لا يزيد عدد مستخدميها عن 10 اشخاص فقط اخوانى اعضاء منتديات اوفيسنا . قسم الاكسس تحديدا . او اى قارئ تخيل ان قاعدة البيانات فى 5000 جدول ان كل جدول فى قاعدة البيانات يحتوى على 10 ملايين سجل انه يوجد 30 الف مستخدم يتعاملون مع القاعدة فى نفس الوقت خلى بالك من التخيل دا علشان انا بقول كدا ليه فى مصطلحين لازم تعرفهم اولا وهم اللى هيوصلولك التخيل الصحيح الذى ادرجته مسبقا Server و Client Client الواجهات والنماذج والتقارير دائما وأبدا على Client -- الطبقة الأولى Server قواعد البيالنات دائما وأبداً على Server -- الطبقة الثالثة ------------------------ المسافة بين Client وال Server دائماغير معروفة، قد تكون 5 سم او الاف كيلو متر 10 عند بداية تصميم اى قاعدة بينات نبدأ بمعرفة اين يقع Client واين يقع server ثم يجب تحديد عدد المستخدمين لبرنامجك ولذلك ضمان مستوى كفائ الطبقة الثالثة وهو الخادم حتى لا يتعطل ونروح فى داهية ههههههههههه اخوانى اهم شئ الورقة والقلم ولبناء قاعدة بينات صحيحة يجب اولا بتحديد المخرجات - التقارير- فابدا بالتقارير ثم الجداول ثم الاستعلامات ثم ...... ومتنساش بالورقة والقلم الاول اتمنى من الله ان يساعد هذا الموضوع شخصا ما يوما .. وكما قلت مسبقا هو خلاصة ما تعلمته من استاذتى تحياتى مارد

السلام عليكم و رحمة الله و بركاته عيد مبارك سعيد أخي زوهير كان عليك توضيح طلبك أكثر .. كلّنا هنا نُفيد و نستفيد .. إن لم أُفِدْك أستفد منك .. البحث عن ماذا و النتيجة المتوقّعة من عملية البحث .. أين أكتب معيار البحث و الملف به 10 تاكست بوكس ..الخ لا تقلق أرجوك من كلامي فقط لتسهيل العملية للسائل و المجيب أخوك / عبد العزيز البسكري

جرب الملف التالي .. يتم مسح البيانات القديمة أولاً قبل ترحيل البيانات الجديدة ثم يتم ترحيل البيانات الجديدة من ملفات المجلد الأول إلى ملفات المجلد الثاني Officena.rar

طلبك أخي الكريم سهل للغاية يمكنك العمل على حدث تغير ورقة العمل ... بفرض أن لديك الماكرو التالي في موديول Sub MyMacro() MsgBox "Hello Officena" End Sub قم بعمل كليك يمين على اسم ورقة العمل ثم View Code ثم ضع الكود التالي في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$2" Then Call MyMacro End If End Sub عند حدوث تغيير في الخلية C2 سيتم تنفيذ الماكرو المسمى MyMacro

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

أخي الكريم أبو سليمان جرب هذا التعديل Sub AboSoliman() Dim ArrFiles, Cell As Range, I As Long, E As Long, str1 As String Dim strFolderSource As String, strFolderTarget As String, wbSource As Workbook, wbTarget As Workbook, wsSource As Worksheet, wsTarget As Worksheet 'اسم المجلد المصدر الي يتم ترحيل البيانات منه strFolderSource = "مجلد رقم 1" 'اسم المجلد الهدف المراد ترحيل البيانات إليه strFolderTarget = "مجلد رقم 2" Application.ScreenUpdating = False ReDim ArrFiles(1 To 1000): I = 0 Do If Len(str1) = 0 Then str1 = Dir(ThisWorkbook.Path & "\" & strFolderSource & "\*.xls*") Else str1 = Dir I = I + 1: ArrFiles(I) = str1 Loop Until Len(str1) = 0 If I = 1 Then Exit Sub Else ReDim Preserve ArrFiles(1 To I - 1) For I = 1 To UBound(ArrFiles) If Len(Dir(ThisWorkbook.Path & "\" & strFolderTarget & "\" & ArrFiles(I))) = 0 Then FileCopy ThisWorkbook.Path & "\" & strFolderSource & "\" & ArrFiles(I), ThisWorkbook.Path & "\" & strFolderTarget & "\" & ArrFiles(I) Else Name ThisWorkbook.Path & "\" & strFolderTarget & "\" & ArrFiles(I) As ThisWorkbook.Path & "\" & strFolderTarget & "\Temp_" & ArrFiles(I) Set wbSource = Workbooks.Open(ThisWorkbook.Path & "\" & strFolderSource & "\" & ArrFiles(I)) Set wbTarget = Workbooks.Open(ThisWorkbook.Path & "\" & strFolderTarget & "\Temp_" & ArrFiles(I)) For Each wsSource In wbSource.Worksheets On Error Resume Next Set wsTarget = wbTarget.Worksheets(wsSource.Name) E = Err.Number On Error GoTo 0 If E <> 0 Then wbTarget.Worksheets.Add after:=wbTarget.Worksheets(wbTarget.Worksheets.Count) Set wsTarget = wbTarget.Worksheets(wbTarget.Worksheets.Count) wsTarget.Name = wsSource.Name End If With wsTarget .Range("A1:L1000").ClearContents Set Cell = .Range("A1") If (Cell.Row = 2) And (Application.WorksheetFunction.CountA(.Rows(1)) = 0) Then Set Cell = Cell.Offset(-1) End With wsSource.UsedRange.Copy Cell.PasteSpecial xlPasteValues Next wsSource wbSource.Close SaveChanges:=False wbTarget.Close SaveChanges:=True Name ThisWorkbook.Path & "\" & strFolderTarget & "\Temp_" & ArrFiles(I) As ThisWorkbook.Path & "\" & strFolderTarget & "\" & ArrFiles(I) End If Next I Application.ScreenUpdating = True End Sub

الحمد لله أن تم 50% على الأقل ميبقاش الموضوع مفيش مشاركة فيه عايز أفهم ... بصرف النظر عن وضع مجلد جديد مكان الأول أو لا .. هل عملية الترحيل بشكل عام تتم فيتم مسح البيانات القديمة في المجلد الثاني أم ماذا ؟ لأنك لما ضربت مثال بطلاب الصف الثاني قلت دول ياحرااااااام محجوزين .. معنى الكلام إن البيانات تفضل زي ما هي وتضاف إليها البيانات الجديدة ؟؟؟؟!! فسؤالي : هل يتم مسح البيانات القديمة مع عملية الترحيل الجديدة؟

السلام عليكم و رحمة الله و بركاته عيد مبارك كود الأستاذ محمدي عبد السميع لتغيير الكتابة للغة العربية : Private Sub Workbook_Open() hosami "00000401", 1 End Sub وهذا الكود الموجود في الملف لكلمة المرور : Private Sub Workbook_Open() Dim pwd As String: pwd = "123456" Cells(Rows.Count, Columns.Count).Activate If Application.InputBox("برجاء إدخال كلمة المرور للدخول للبرنامج", "كلمة المرور", "") <> pwd Then Sheets("شاشة دخول").Activate MsgBox "الباسورد غير صحيحة ", 0, "كلمة المرور" Application.DisplayAlerts = False ThisWorkbook.Close Application.Quit Exit Sub Else MsgBox "مرحباً بك", 32, "دخول ناجح" Range("A1").Activate End If Feuil1.Activate hosami "00000401", 1 End Sub عليك سيدي الفاضل أن تضع بين عينيك دائما و أبدًا أنه لا يمكن في THISWORKBOOK كتابة الأجزاء الملونة بالآحمر مرتين أو ثلاثة أو أربعة..مثلا عندك كوديْن أو ثلاثة طبعا كلها سوف تبدأ بنفس الأجزاء الملونة بالأحمر ما عليك فعله هو أخد عبارة PRIVATE SUB WORKBOOK OPENوتكتبها أعلى الكود وتأخذ عبارة END SUB و تضعها أسفل الكود وتقوم بجمع كل أكوادك التي سوف تضعها في ال THISWORKBOOK بدون هذه الأجزاء الملونة بالآحمر شاهد الصورة والجزء الخاص بتغيير اللغة العربية باللون بالأخضر أين هو تحياتي / عبد العزيز البسكري MAYAM 3.rar

الاخ الكريم ممدوح يبدو أنك لم تستجب لطلبي ... لا غيرت اسم الظهور للغة العربية ولا أرفقت النتائج المتوقعة كما طلبت منك عموماً إليك هذا الكود عله يفي بالغرض يتم ترتيب الطلاب على أساس الدرجة فإذا تساوى الطلاب في الدرجة يتم الاحتساب على أساس تاريخ الميلاد فإذا تساوى الطلاب في الدرجة وتاريخ الميلاد يكتب كلمة مكرر ... Sub TopTenYasserKhalil() Dim Cell As Range, shTemp As Worksheet, ArrRanks ArrRanks = Array("الأول", "الثاني", "الثالث", "الرابع", "الخامس", "السادس", "السابع", "الثامن", "التاسع", "العاشر") Application.ScreenUpdating = False Set shTemp = Sheets.Add With Sheets("الرصد") Intersect(Union(.Columns("E"), .Columns("G"), .Columns("H"), .Columns("DQ")), .Rows("12:" & .UsedRange.Rows.Count)).Copy End With With shTemp.Range("A2") .PasteSpecial xlPasteValues .CurrentRegion.Sort Key1:=.Columns("D"), Order1:=xlDescending, _ Key2:=.Columns("C"), Order2:=xlAscending, _ Header:=xlNo With .Parent.Range("E2:E11") For Each Cell In .Cells With Cell If (.Offset(0, -1).Value = .Offset(-1, -1).Value) And (.Offset(0, -2).Value = .Offset(-1, -2).Value) Then .Value = .Offset(-1).Value Else .Value = .Offset(-1).Value + 1 End If End With Next Cell For Each Cell In .Cells With Cell .Value = ArrRanks(.Value - 1) If .Value = .Offset(-1).Value Then .Value = .Value & " مكرر" End With Next Cell End With With .Parent .Columns("C").Delete xlShiftToLeft .Range("A2:D11").Copy Sheets("أوائل التيرم الأول ").Range("G11").PasteSpecial (xlPasteValues) End With End With Application.DisplayAlerts = False shTemp.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub كل عام وأنت بخير :gift2: كنترول ممدوح للمرحلة الإعدادية .rar

أخي الكريم أبو سليمان كل عام وأنت بخير إليك الكود الحلاونجي التالي عله يفي بالغرض .. يتم الترحيل من كل الملفات الموجود في المجلد الأول إلى كل الملفات بنفس الاسم في المجلد الثاني تم إنشاء مصنف باسم "الحلوى" بجانب المجلدين لتنفيذ مهمة الحلوى إن شاء الله يفي بالغرض Sub AboSoliman() Dim ArrFiles, Cell As Range, I As Long, E As Long, str1 As String Dim strFolderSource As String, strFolderTarget As String, wbSource As Workbook, wbTarget As Workbook, wsSource As Worksheet, wsTarget As Worksheet 'اسم المجلد المصدر الي يتم ترحيل البيانات منه strFolderSource = "مجلد رقم 1" 'اسم المجلد الهدف المراد ترحيل البيانات إليه strFolderTarget = "مجلد رقم 2" Application.ScreenUpdating = False ReDim ArrFiles(1 To 1000): I = 0 Do If Len(str1) = 0 Then str1 = Dir(ThisWorkbook.Path & "\" & strFolderSource & "\*.xls*") Else str1 = Dir I = I + 1: ArrFiles(I) = str1 Loop Until Len(str1) = 0 If I = 1 Then Exit Sub Else ReDim Preserve ArrFiles(1 To I - 1) For I = 1 To UBound(ArrFiles) If Len(Dir(ThisWorkbook.Path & "\" & strFolderTarget & "\" & ArrFiles(I))) = 0 Then FileCopy ThisWorkbook.Path & "\" & strFolderSource & "\" & ArrFiles(I), ThisWorkbook.Path & "\" & strFolderTarget & "\" & ArrFiles(I) Else Name ThisWorkbook.Path & "\" & strFolderTarget & "\" & ArrFiles(I) As ThisWorkbook.Path & "\" & strFolderTarget & "\Temp_" & ArrFiles(I) Set wbSource = Workbooks.Open(ThisWorkbook.Path & "\" & strFolderSource & "\" & ArrFiles(I)) Set wbTarget = Workbooks.Open(ThisWorkbook.Path & "\" & strFolderTarget & "\Temp_" & ArrFiles(I)) For Each wsSource In wbSource.Worksheets On Error Resume Next Set wsTarget = wbTarget.Worksheets(wsSource.Name) E = Err.Number On Error GoTo 0 If E <> 0 Then wbTarget.Worksheets.Add after:=wbTarget.Worksheets(wbTarget.Worksheets.Count) Set wsTarget = wbTarget.Worksheets(wbTarget.Worksheets.Count) wsTarget.Name = wsSource.Name End If With wsTarget Set Cell = .UsedRange.Offset(.UsedRange.Rows.Count).Resize(1, 1) If (Cell.Row = 2) And (Application.WorksheetFunction.CountA(.Rows(1)) = 0) Then Set Cell = Cell.Offset(-1) End With wsSource.UsedRange.Copy Cell.PasteSpecial xlPasteValues Next wsSource wbSource.Close SaveChanges:=False wbTarget.Close SaveChanges:=True Name ThisWorkbook.Path & "\" & strFolderTarget & "\Temp_" & ArrFiles(I) As ThisWorkbook.Path & "\" & strFolderTarget & "\" & ArrFiles(I) End If Next I Application.ScreenUpdating = True End Sub تقبل الله منا ومنكم وكل عام وأنت بخير :fff: أوفيسنا.rar

هدية وعيدية يابو احمد جعلها الله في موازين اعمالك كل عام وانتم بخير

كل سنه وانت طيب وجزاك الله كل خير

تفضل أخي المنور نور أنور Rasd2015.rar