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

برنامج تأليف و تلخيص الكتب ************************ برنامج مجانى لا ابيح فتح مصدره (محتواه البرمجى) و لا استخدامه تجاريا ************************************************************* رابط شرح البرنامج https://www.youtube.com/watch?v=pKjRK737QXk ************************************************ رابط تحميل Microsoft Access 2010 Runtime https://www.microsoft.com/en-us/download/details.aspx… ****************************************************** رابط تحميل البرنامج http://www.mediafire.com/download/ol2ca1fnri9s7m8/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC+%D8%AA%D8%A3%D9%84%D9%8A%D9%81+%D8%A7%D9%84%D9%83%D8%AA%D8%A8+.accdb ****************************************************** اسم المستخدم : الله المستعان كلمة السر : الله المستعان ********************************** لا تنسى الإعجاب بالصفحة حتى يصلك كل جديد https://www.facebook.com/mahmoudelhamahmy1000 ******************************************************

من المواضيع المتجددة والمفيدة في الحياة العملية وخاصة لأصحاب العقارات، وقد تم طرحه سابقاً، وهي كيفية معرفة العقود التي قاربت على الانتهاء خلال 30 يوماً من خلال الفورم.. تحيـــــــــــــــــــــــاتي القلبيــــــــــــــــــــــة تذكير بتاريخ الانتهاء.rar

تذكير بتاريخ الانتهاء.rar لا أعلم مالمشكلة ولكن تمت إعادة رفع الملف

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

السلام عليكم و رحمة الله ارجوا من الاخوة مساعدتي في اكمال ملف اكسال 1 توسيع الفورم و اضافة بعض الازرار مثل ' تعديل ، بحث عن الزبون ....الخ 2 ربط الاوراق ببعضها في الفورم مع اضافة ازرار ‫سند السلعة ديسمبر.rar

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

اتفضل انا غيرت شوية حجات البحث عملته بطريقه جديده علشان يكون عندك اكثر من طريقة اكواد الاضافة والتعديل والحذف تم اضافتها بحث واضافة-update2.rar

السلام عليكم ورحمة الله جرب المعادلة التالية في الخلية B18 ثم السحب إلى اليسار ثم إلى الأسفل: =SUMPRODUCT(($B$3:$B$14=$A18)*($D$3:$D$14=B$17)*($C$3:$C$14)) أرجو أن تفي المعادلة بالغرض المطلوب... بن علية

السلام عليكم تحية للاستاذ سعيد صواب وللاستاذ عبد الله وجميع الاخوه والاخوات اخ عبدالله على اي دريف (سواقه ) تم تنصيب ال sql server و SQl server Management على ال C او ال D تاكد من المساحه الحره على الدرايف الذي اخترت لوضع SQl server Management فهوه يحتاج الى مساحه اكبر كاجراء اول بالتوفيق السلام عليكم تحية للاستاذ سعيد صواب وللاستاذ عبد الله وجميع الاخوه والاخوات اخ عبدالله على اي دريف (سواقه ) تم تنصيب ال sql server و SQl server Management على ال C او ال D تاكد من المساحه الحره على الدرايف الذي اخترت لوضع SQl server Management فهوه يحتاج الى مساحه اكبر كاجراء اول بالتوفيق

حضرتك انا جاوبت على البحث والتعديل لان هذا هو ما كان مطلوب كما فى هذه المشاركة جارى التعديل ابشر بالخير ☺

اخى الحبيب فقط قم بعمل نسخة من القاعدة وامسح كل بيانات العمل وارفق القاعدة حتى تتضح الرؤية ☺

إنت حيرتني أكتر بالنتائج المرفقة نسبة الـ 10 % في النتائج الخاصة بم مختلفة !!!!!!!!!!!!!!؟؟؟؟؟ مرة 30.32 ومرة 63.31 ةمرة 54.78 ؟ فكيف ذلك عموماً جرب المعادلة التالية في الخلية G6 =($E$6*F6)/SUM($F$6:$F$10) النتائج حسب المعادلة هي 39.6 و 59.4 و 59.4 و 39.6 و 39.6 أي نسب الـ 10 % متساوية ونسب الـ 15 % متساوية !! إذا لم يكن المطلوب يرجى مزيد من التوضيح حول المسألة لتتضح صورة طلبك تقبل تحياتي

خاصمتها إثر ذنبٍ في المسا حصلا * ورحتُ دونَ وداعٍ أقصدُ العملاوفي الظهيرةِ عُدتُ البيت مُكتئِبـا * وصلتُ لكن سرور الروحِ ما وصلارأيتها عندَ فتحِ الباب باكـــيةً * ودمعُها أغرقَ الخدّينَ والمُقــــــــــــــلاعانقتها عندَ ظني أنها ندِمت * وصرتُ أسردُ في توصيفها غــــــــــزلايا أقرب الناس مِن قلبي كفى ألماً * فدمعُ عينيكِ لولا الحبّ ما نزلا ففارقتني وقالت لم يكُن ألماً * بل كنتُ أقطعُ بالسكّـينةِ البصـــــــلا

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

و عليكم السلام ... من رخصة الاساتذة ... استعمل Visible بدلا من Enabled و عليكم السلام ... من رخصة الاساتذة ... استعمل Visible بدلا من Enabled

ممكن استأذن حضرتك مرفق لقاعدة البيانات التى تحتوى على هذه المشكلة

السلام عليكم اخوانى وأساتذتى فى المنتدى وكل عام وأنتم بخير بمناسبة عيد الفطر اليوم أقدم لكم كيفية عمل اختصار لملف اكسل به صورتك على سطح المكتب فقد لفت نظرى طلب أحد الأخوة لهذا الموضوع لذلك قررت أن أضع بين أيديكم الطريقة الآتية 1 - فى ملف اكسل أدرج هذا المديول Option Explicit Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Integer) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function GetActiveWindow Lib "user32" () As Integer Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long Const CSIDL_PERSONAL = &H5 Private Type SHITEMID cb As Long abID As Byte End Type Private Type ITEMIDLIST mkid As SHITEMID End Type Dim FSO As New FileSystemObject Dim FLD As Folder Function UserNameOffice() As String UserNameOffice = Application.UserName End Function Public Function DesktopAddress() As String DesktopAddress = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator End Function Private Function GetSpecialFolder(CSIDL As Long) As String Dim Path As String Dim FolderPath As Object Dim IDL As ITEMIDLIST Dim sh As New Shell32.Shell Set FolderPath = sh.NameSpace(5) If Not FolderPath Is Nothing Then GetSpecialFolder = FolderPath.Self.Path Exit Function End If GetSpecialFolder = "" End Function Function DirExists(strDirectory As String) As Boolean DirExists = (Dir(strDirectory, vbDirectory) <> "") End Function Sub Desktop_Shortcut() Dim WBName As String, Path As String, WB_Link As String, WB_Name As String Dim DesktopPath As String, TargetPath As String, StrSave As String Dim WSHShell As Object, MyShortcut As Object Set WSHShell = CreateObject("WScript.Shell") Dim FSO As Object, Folder As Object, File As Object Set FSO = CreateObject("Scripting.FileSystemObject") Dim WB As Workbook Set WB = ThisWorkbook Dim WSh As Worksheet Set WSh = Sheet1 WBName = WB.Name Path = "MyFile" DesktopPath = WSHShell.SpecialFolders("Desktop") WSh.Range("C2").Value = WB.Name WB_Name = WSh.Range("C3").Value WB_Link = WSh.Range("C4").Value On Error GoTo ErrHandle If Not DirExists("C:\" & WB_Name) Then 'Check C Drive If Not DirExists(GetSpecialFolder(CSIDL_PERSONAL) & "\" & WB_Name) Then 'Check My Documents Set FSO = CreateObject("Scripting.FileSystemObject") 'If not in C Drive or My Documents - then create shortcut FSO.CreateFolder "C:\" & WB_Name ChDir "C:\" & WB_Name SavePicture Sheet1.Image1.Picture, WB_Name & ".ico" 'Picture pasted onto Image1 on Sheet 1 - Link Shortcut Set FSO = CreateObject("Scripting.FileSystemObject") Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\" & WB_Link) With MyShortcut .TargetPath = WB.FullName .IconLocation = "C:\" & WB_Name & "\" & WB_Name & ".ico" .WindowStyle = 1 .Description = "EEZIAdmin" .WorkingDirectory = WB.Path .Save End With Else End If End If ErrHandle: Set WSHShell = Nothing End Sub 2 - فى شيت 1 الخلية C3 ضع المعادلة =IF($C$2="";"";IF(MID($C$2;(LEN($C$2)-4);"1")=".";LEFT($C$2;LEN($C$2)-5);IF(MID($C$2;(LEN($C$2)-3);"1")=".";LEFT($C$2;LEN($C$2)-4);""))) وفى الخلية C4 ضع المعادلة الآتية =IF($C$3<>"";$C$3&".lnk";"") 3 - فى شيت 1 ادراج Image وعليها صورة : ندرج الـ Image كالتالى من developet tab ثم insert ثم more controls ثم Microsoft forms 2.0 image ثم ok ارسم الـــــ Image فى الشيت وبعدين كليك يمين عليها واخنر Properties فى قائمة الخصائص التى تظهر دور على الخيار Picture واعمل ادراج لأى صورة من على جهازك على الـ Image واحفظ وشغل الكود لكم كل التحية والتقدير Desktop Shortcut mokhtar.rar

السلام عليكم جرب المثال المرفق لأحد الإخوة الكرام وللاستزادة اطلع على هذه المشاركة لشجرة الحسابات db1up.rar

وعليكم السلام ورحمة الله وبركاته آسف جدا لتأخرى عن الرد فقد كنت منشغلا بالفترة الأخيرة ويبدو أننى عندما قلت: قد فهم كلامى خطأ وانا عنيت بهذا تجربت برنامجى الذى أتحدث عنه عندما قلت: وأعتذر عن هذا الخطأ الغير مقصود ... أما عن برنامج حضرتك فهو يعمل 100% والحمد لله وجزاك الله عنا خيرا وقد أفدت منه جدا فقد استللت منه كودا لصناعة الرسائل وهذا مرفق لتعم الفائدة وبالمرفق أيضا نموذج لتغير أسماء عناصر التحكم بالنماذج والتقارير دفعة واحدة دون الحاجة لغير اسم كل عنصر على حدة وهذا خلاصة ما توصلت اليه بالموضوع... ولكن وللأسف وبعد كل هذه المعاناة فى تغير أسماء عناصر التحكم بالنماذج والتقارير بمشروعى هذا والذى يحوى على 42 نموذجا وما يقارب من 38 تقريرا تقريبا وتعديل ما يلزم من تغير بالأكواد تبعا لتغير أسماء عناصر التحكم الا أن رسالة الخطأ ظهرة معى مجددا عند تشغيل البرنامج على جهاز آخر ولا أدرى الآن ما أصنع حيال هذا. MassageMaker.rar

أو هذه الصيغة - بعد إذن أستاذنا الحبيب سليم لأن كل الدروب تؤدي إلى الطاحون كما يفال - بالسوري نسبة خصم.rar

نعم ولكنها تكتب بتلك الطريقة Is Null وهذا رابط من موقع مايكروسوفت يوضح امثله للمعاير بانواعها https://support.office.com/ar-sa/article/%D8%A3%D9%85%D8%AB%D9%84%D8%A9-%D9%84%D9%85%D8%B9%D8%A7%D9%8A%D9%8A%D8%B1-%D8%A7%D9%84%D8%A7%D8%B3%D8%AA%D8%B9%D9%84%D8%A7%D9%85-3197228c-8684-4552-ac03-aba746fb29d8

بارك الله فيك هو هذا المطلوب اني مدين لك بدعوه في ظهر الغيب اشكرك ياخوي الله يسعدك

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

أخي الكريم مراد يرجى تغيير اسم الظهور للغة العربية إليك الكود التالي ..قف في أي خلية في الجدول الذي يحتوي البيانات ثم نفذ الكود Sub FilterDeleteRows() Dim rTable As Range Dim rCol As Range, rCell As Range Dim lCol As Long, iRow As Long Dim xlCalc As XlCalculation Dim vCriteria On Error Resume Next With Selection If .Cells.Count > 1 Then Set rTable = Selection Else Set rTable = .CurrentRegion End If End With On Error GoTo 0 If rTable Is Nothing Or rTable.Cells.Count = 1 Or WorksheetFunction.CountA(rTable) < 2 Then MsgBox "Could Not Determine Your Table Range.", vbCritical, "Exit Sub" Exit Sub End If ''''''''''''''''''''''''''''''''''''''''''''' 'الشرط vCriteria = "False" 'رقم أول صف للبيانات iRow = 6 'رقم العمود المراد فلترته lCol = 19 ''''''''''''''''''''''''''''''''''''''''''''' If lCol = 0 Then Exit Sub Set rCol = rTable.Columns(lCol) Set rCell = rCol.Cells(iRow, 1) With Application .Calculation = xlCalculationManual: .EnableEvents = False: .ScreenUpdating = False End With For lCol = 1 To WorksheetFunction.CountIf(rCol, vCriteria) Set rCell = rCol.Find(What:=vCriteria, After:=rCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Offset(-1, 0) rCell.Offset(1, 0).EntireRow.Delete Next lCol With Application .Calculation = xlCalculationAutomatic: .EnableEvents = True: .ScreenUpdating = True End With End Sub تقبل تحياتي

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

رحمها الله وجعلها شفيعا له ولزوجه ولكم

السلام عليكم أخي شعراوي أليك الحل الآتي افتح شيت البيانات ثم اكتب اسم الموظف وتاريخ تعيينه وراتبه الأساسي سيتم حساب سنوات الخدمة بالمعادلة ثم اضغط زر (حساب العلاوة الدورية ) ستجد العلاوة في العمود الأصفر تحياتي العلاوة الدورية2.rar

أخي الكريم تفضل شرح مبسط للكود Private Sub Worksheet_Change(ByVal Target As Range) 'إذا كان عدد الخلايا التي سيتم فيها التغيير أكثر من خلية يتم الخروج من الإجراء الفرعي If Target.Cells.CountLarge > 1 Then Exit Sub 'في حالة التعامل مع العمود الثاني والصف أكبر من 1 أي التعامل مع الصفوف بدايةً من الصف الثاني If Target.Row > 1 And Target.Column = 2 Then 'إلغاء خاصية تمكين الحدث Application.EnableEvents = False 'الخلية في العمود الثالث التالي للخلية الهدف يساوي 'قيمة الخلية الهدف التي يتم الكتابة فيها × الخلية في العمود الاول Target.Offset(0, 1).Value = Target.Value * Target.Offset(0, -1).Value 'استرجاع الخاصية مرة أخرى وتفعيلها Application.EnableEvents = True End If 'في حالة التعامل مع العمود الثالث والصف أكبر من 1 أي التعامل مع الصفوف بدايةً من الصف الثاني If Target.Row > 1 And Target.Column = 3 Then Application.EnableEvents = False 'الخلية في العمود الثاني السابقة للخلية الهدف تساوي 'قيمة الخلية الهدف التي في العمود الثالث / الخلية في العمود الأول Target.Offset(0, -1).Value = Target.Value / Target.Offset(0, -2).Value Application.EnableEvents = True End If End Sub

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

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

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

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

بسم الله الرحمن الرحيم أستاذي الفاضل أبو خليل أود أولاً أن أُعِرب عن مدى امتناني لك وللبرنامج الذي رفعته هنا كرد على استفساري وإنه حقاً برنامج رائع. برغم أن البرنامج رائع جداً إلا أنه لا يحقق كثيراً مما أصبو إليه لأن المطلوب من برنامجي الآتي كما أوضحت سابقاً: 1) أريد أن تقوم كل مدرسة مادة بتعبئة الدرجات بنفسها لكافة فصولها شهرياً بحيث تضاف درجات أعمال الشهر(واجبات،شفوي،تحريري) فقط كل شهر في موعده لاستخراج التقارير الشهرية لكل طالبة وتسليمها لأولياء الأمور للاطلاع على مستوى الطالبات شهرياً. 2) أن تظهر نافذة جديدة لكل مادة فيها جدول يحتوي على اسم الطالبة +الصف + شعبتها + درجاتها الشهرية (واجبات،شفوي،تحريري) كما في ورقة الأكسل التي رفعتها سابقاً، ويكون كل شهر على حده أو كل فصل دراسي بشهوره الثلاثة منفصلاً عن الفصل الدراسي الثاني بشهوره الثلاثة. 3) أن يظهر جدول آخر يتكون من أربعة عناصر ( المحصلة الأولى + الامتحان النصفي + المحصلة الثانية + الفصل الثاني + المجموع الكلي)واعتقد أن هذا سيكون باستعلام أو نموذج لست متأكدة. إضافة إلى أنه لدي في تصميمي الجديد في الأكسس جدول بيانات الطالبات جاهز كاملاً محتوياً على البيانات الخاصة بكل طالبة وفيما بعد فهم واستيعاب طريقة تصميم برنامج الدرجات سوف يتم عمل استعلامات وتقارير ونماذج تشمل جميع الجداول(البيانات+الدرجات وغيرها مما سنحتاج إليه مستقبلاً) سؤالي عن البرنامج الذي رفعته هنا: 1) هل هناك إمكانية فتحه والاطلاع على تصميم الجداول أو الاستعلامات والنماذج والعلاقات علني استطيع أن أفهم منه شيء عن طريقة التصميم وكيفية تطبيق ما أصبو إليه في برنامجي.هذا بعد إذن المصمم لهذا البرنامج. 2) وهل هناك إمكانية استيراد أسماء الطالبات الخاص بي من برنامج الإكسل والتصدير إليه في البرنامج الذي رفعته؟ أخيراً ومعذرة للإطالة أنا اطبق المقولة (لا تعطني سمكاً بل علمني كيف اصطاد) لأني حقاً راغبة بأن أعمل كل شيء بنفسي بجهدي وتعبي ليكون للنجاح طعم خاص لا يتذوقه إلا المجتهدون. وللجميع جزيل الشكر والاحترام والتقدير. ملاحظة: عند فتح البرنامج ظهرت هذه الصورة هل ممكن تفسيرها لي من بعد إذنكم

سلمت يدك استاذ ابو خليل

برنامج مدارس اليمن الرقم السري= 1975 وجدته في مكتبتي مفتوح المصدر العيوب = الكائنات والحقول كتبت بحروف عربية وهذا فيه صعوبة على من يريد تعلم اللغة البرمجية المكتوبة قد لا يحقق كامل المطلوب : ولكن يفتح الذهن ويعطي تصور لكيفة العمل داخل بيئة اكسس school.rar

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

الأخ الفاضل/ أشكرك للإهتمام البرنامج لمدرسة يمنية (برغم اختلاف البرامج ونظم الدرجات التي يتم تطبيقها في المدارس اليمنية) إلا أني أرغب بأن أحول برنامجي الذي صممته بالأكسل ليكون بالأكسس وهذا التصميم لمدرستي التي أعمل فيها كمسئولة شئون طالبات. في الملف الذي حملته تجد أنه في النموذج المصمم بالأكسس أريده أن يكون لجميع المراحل من الصف الأول الابتدائي حتى الثالث الثانوي بفرعيه). وهناك نموذج بالأكسسل لطريقة توزيع الرصد الشهري والذي أريد تطبيقه في الأكسس سؤالي أين أضع درجات الرصد الشهري هل في جدول منفرد لكل مادة أم كل مادة فيها جميع الدرجات للسنة كامل وكل مادة في جدول منفرد ومن ثم استطيع بموجب التصميم الأساسي للجداول الحصول على الاستعلامات والنماذج وغيرها من عمليات حسابية وما يستلزمه البرنامج من أشياء أخرى سأحاول أن أتعلمها. مع جزيل الشكر لمشرفي أوفيسنا وكل من ساهم أو اطلع أو رد لإعطاء جزءً من وقتهم الثمين. في المرفق مخطط تنظيمي للبرنامج بشكل مصغر على وعسى أن يكون كافياُ لتوصيل ما أعنيه وأعذروني على الإطالة. My Idea.rar

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

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

انظر الى هذا البرنامج طبعا هذا البرنامج صمم الى مدارس عراقية ولا اعتقد انه يناسبك 100% لكن تستطيع الاستفادة من الجداول والعلاقات وكذلك الاستعلامات وايضا الفكرة من ايجاد النتائج والمعدلات ومعرفة من هم الطلاب المسؤول عنهم استاذ معين وكيفية اظهار مستوى الطالب في ضعفه او مستواه الدراسي في بعض الدروس وكذك ابين فيه بالالوان المواد الدراسية التي فيها الطالب متفوق وضعيف ومتوسط .... الخ Student .rar

برنامج حسابات يساعد المحاسب الحديث امساك حسابات ومخزون شركة بالاكسس فقط حساب الفائدة من البرنامج الفائدة البسيطة = تعلم تكوين نظام بسيط أو قاعدة بيانات للحسابات شركة الفائدة المركبة = يمكن تعديلة واستخدامه الفائدة الشخصية = الدعاء ---------------------------------------------------- الفائدة العامة = اجمالي الفوائدة السابقة x عدد مرات التحميل - (من لم يحالفه الحظ ) أليكم الرابط: www.4shared.c...ng_program.html