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

الصفحة الرئيسية للمنتدى ( من هنا) لكي تشارك معنا قم بالتسجيل ( من هنا) الأخوة الكرام، أعضاء و خبراء و زوار منتدى أوفيسنا بعد ما يزيد عن 14 عاماً تبنى خلالها موقع أوفيسنا للتخصص فى الاوفيس فقط بصورة أساسية ( الاكسيل، الاكسيس، الوورد، الباوربوينت، الاوتلوك، الفيزيو، و باقي التطبيقات) من خلال مختلف مستويات الاستخدام الاحترافية وصولا الى برمجة هذه التطبيقات و بناء برامج كاملة بها. و بعد أن تخطى عدد الأعضاء المائة و خمسون ألف عضو ببضعة آلاف ، و بعد تكوين قاعدة بيانات قاربت النصف مليون مشاركة فيما يزيد عن 60 الف موضوع و رغبة من فريق الموقع فى تعظيم الفائدة من الموقع ، قررنا التوسع فى عدة محاور لتحقيق رغبات أعضاء المنتدى فى توفير كافة الاقسام التي يحتاجونها تحت مظلة و احدة و أول هذه المحاور الذي نستهل به هذا التوسع هو محور البحث العلمي و علوم البيانات و الذي تضمن عدد من الأفسام التي تم افتتاحها اليوم بحمد الله و سبب اختيار البدء بهذا المحور هو فائدته و الحاجة اليه فى الوقت الحالي و فى المستقبل، و ضرورة العمل على الإسراع فى نقل و تبادل المعرفة فى هذا المجال الهام، و هو من الأهمية بمكان لعلى كافة المستويات ، لذا علينا الاهتمام به و العمل على متابعة احدث مستجداته. و ندعو من لديه خبرة فى هذه الأقسام بالبدء فى مشاركة معلوماته به و التطوع لنشر العلم فى مجالات الاقسام الجديدة و المشاركة فى إدارة هذه الأقسام لمن لديه الخبرة و المعرفة بمجالات الأقسام الجديدة و هي: البحث العلمي و علوم البيانات مناهج البحث العلمي علم الاحصاء SPSS R Orange تطبيق تحليل البيانات الذكاء الاصطناعي و التنقيب فى البيانات Data Mining @Risk وتم افتتاح الاقسام التالية على التوالي: الجزء الثاني لغات و أدوات البرمجة General Web Discussons PHP JAVA Script MY SQL VB.net C#.net C++.net Python Delphi Crystal Report File Maker الجزء الثالث : أفشام الدعم الفني ًWindows Systems Lynux Networks Security الجزء الرابع : تطبيقات الجرافيك الفوتوشوب إن ديزاين اليستراتور كورل درو الجزء الخامس : التصميم الهندسي و يشمل: الريفيت الأوتوكاد الساب نظم المعلومات الجغرافية

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

حياك االله أخوي شفان

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

السلام عليكم تم التعديل على الكود والبرنامج ليعمل: 1. تشغيل الاكسس بدون رسائل أمان ، 2. تشغيل الاكسس بدون إطار/نافذة الوندوز (للنواتين 32بت و64بت). 1. مثل الخطوات السابقة ، احفظ الكود التالي في ملف بصيغة txt ، ثم غيّر صيغة الملف الى vbs (طبعا تستطيع ان تضع برنامج قاعدة البيانات في اي مكان شئت في الكمبيوتر ، فقط عليك تعديل الاسم والمسار) : rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional) dim o set o=createobject ("Access.Application") o.automationsecurity=1 ' set macro security LOW. o.opencurrentdatabase "C:\jj\Seq.mdb" o.usercontrol=false o.quit set o=nothing 2. لتشغيل الاكسس بدون اطار ، يجب ان يكون النموذج منبثق ، ولكننا بدل ان نغير اعدادات النموذج ، نستطيع ان نفتحه منبثق مباشرة ( Dialog )، وبما اننا نستعمل الماكرو AutoExec (والذي يعمل عند فتح البرنامج مباشرة ) ، فإننا سنفتح النموذج بهذه الطريقة: النموذج: . والماكرو . وهذا كود النموذج: Option Compare Database Private Sub cmd_Quit_Click() DoCmd.Quit End Sub Private Sub Form_Open(Cancel As Integer) Call HideAccess End Sub وهذه الوحدة النمطية التي بها كود الاخفاء: Option Compare Database Option Explicit Global Const SW_HIDE = 0 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3 #If VBA7 Then Private Declare PtrSafe Function ShowWindow Lib "USER32" _ (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Boolean #Else Private Declare Function ShowWindow Lib "USER32" _ (ByVal hwnd As Long, ByVal nCmdShow As Long) As Boolean #End If ' Public Sub HideAccess() #If VBA7 Then Dim hWndAccessApp As LongPtr #Else Dim hWndAccessApp As Long #End If Call ShowWindow(Access.hWndAccessApp, SW_HIDE) End Sub Public Sub ShowAccess() #If VBA7 Then Dim hWndAccessApp As LongPtr #Else Dim hWndAccessApp As Long #End If Call ShowWindow(Access.hWndAccessApp, SW_SHOWMAXIMIZED) End Sub جعفر 739.No_Warning_and_No_Access_Window.zip

ههههههههههههههههههه .. ممتاز كالعادة استاذ سليم أعجبنى جدا إضافة سليم كطالب حاصل على الدرجة النهائية

السلام عليكم يعطيك ألف ألف ألف عافية نعم هذا ما قصدت سهّل الله لك أمرك وأطال عمرك آنت وكل من يمدُّ يد العون في هذا المنتدى المبارك تحياتي (الشاعر)

عليكم السلام اضبط خصائص العلاقة كما هو ظاهر في الصورة

السلام عليكم اخي علي ، وحسب البحث الذي قمت به ، رجاء: استبدال السطر Win_Struct.lStructSize = Len(Win_Struct) بالسطر Win_Struct.lStructSize = LenB(Win_Struct) او تستطيع ان تستبدل كودك بهذا الكود: Dim f As Object Set f = Application.FileDialog(3) f.AllowMultiSelect = True f.Show MsgBox "file choosen = " & f.SelectedItems.Count كما ان الموقع التالي به اداة لعمل الكود المطلوب ، والذي يعمل على 32 و 64 بت، http://www.avenius.de/en/index.php?Products:IDBE_Tools جعفر

وعليكم السلام وجسب البحث الذي عملته ، فكلام اخي عمرو صحيح ، وللأسف لا يمكن استعمال البرنامج على جهازين مختلفين !! لذلك يجب ان يكون عندك جهاز 32بت وآخر 64بت ، وتستعمل كل منهم لتحويل برنامجك الى accde!! هناك طريقة اخرى ، ولكن يجب عليك تضبيطها ، وهي ان تكون قد جربت برنامجك Accdb على النظامين ، ووجدت انه يعمل بطريقة صحيحة ، والخطوة المتبقية هي تحويله الى Accde حسب 32 او 64 بت ، فتستطيع بطريقة ما ، استعمال الكود لتحويل البرنامج بإستخدام نواة كمبيوتر المستخدم ، يعني تعطي المستخدم نسخة من صيغة Accdb ، واول ما يشتغل البرنامج ، يشتغل الكود التالي (من المنتدى: https://www.mrexcel.com/forum/microsoft-access/493961-vba-convert-accdb-accde.html#post2439046 ) ، والذي يحول البرنامج الى صيغة Accde Function ConvertToaccDE() sourcedb = "C:\Users\Trevor G\Documents\sample back.accdb" targetdb = "C:\Users\Trevor G\Documents\sample back.accde" Dim accessApplication As Access.Application Set accessApplication = New Access.Application With accessApplication .SysCmd 603, sourcedb, targetdb End With 'Set accessApplication = Nothing End Function وبعدها تجعل الكود يحذف البرنامج الاصل Accdb. جعفر

وعليكم السلام من الواضح انك يجب ان تشتري/تسجل الاداة اعلاه، ولكن هناك طرق اخرى ، احدها في هذا المرفق: https://bytes.com/attachments/attachment/1237d1209368957/anigif.zip جعفر

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

وعليكم السلام تم عمل مثال حسب الطلب احتساب التأخر بين فترتين .rar

تم اضافة الجزء الرابع : التصميم الهندسي و يشمل: الريفيت الأوتوكاد الساب نظم المعلومات الجغرافية

تم اضافة أفشام الدعم الفني ًWindows Systems Lynux Networks Security تم اضافة الجزء الثالث تطبيقات الجرافيك الفوتوشوب إن ديزاين اليستراتور كورل درو

تم اضافة الجزء الثاني الجزء الثاني لغات و أدوات البرمجة General Web Discussons PHP JAVA Script MY SQL VB.net C#.net C++.net Python Delphi Crystal Report File Maker

جرب هذا الملف exam_salim.rar

جعلها الله فى ميزان حسناتك

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

السلام عليكم اهداء لهذا المنتدى الرائع سبحان الله متحركة الكود المستخدم ....... عند عداد الوقت 1500 ...... If Me.NewRecord Then DoCmd.GoToRecord , , acFirst Else DoCmd.GoToRecord , , acNext End If سبحان الله1.rar

اتفضل اختيار متعدد.rar

هذا المثال فى الملف المرفق اعددته بناء على طلب أحد الزملاء ،ليقوم بعد الخلايا التي لها لون معين و أطرح هنا مثالين فيما يلي : الأول يقوم بعد الخلايا فى مجال معين و التي لها نفس لون الخلية التي بها الدالة و هو يحتاج لمتغير واحد وهو المجال المطلوب عد الخلايا فيه CountByCellColor2.rar و طبعا عند التجربة و تعديل لون الخلية يحب تحرير الخلية لاعادة تفعيل الدالة و ذلك عن طريق F2 ثم Enter يتم تطبيق الدالة فى المثال الاول كما يلي =countmycolor2(coloredarea) اذا كان المجال له اسم مثل coloredarea او مباشرة كما يلي =countmycolor2(E7:J17) و الدالة فى المثال الاول هي Function countmycolor2(Myrange As range) Dim Mycolor As Integer Mycolor = activecell.Interior.ColorIndex Dim Myrow As Long, MyCol As Long Myrow = Myrange.Rows.Count MyCol = Myrange.Columns.Count Mycells = Myrange.Cells.Count Dim colorcounter As Integer, counterx As Integer For i = 0 To Myrow - 1 For j = 0 To MyCol - 1 counterx = counterx + 1 If Myrange.Cells(counterx).Interior.ColorIndex = Mycolor Then colorcounter = colorcounter + 1 End If Next j Next i countmycolor2 = colorcounter End Function المثال الثاني و الثاني هو يقوم بعد الخلايا الملونة بلون معين فى نطاق محدد باستخدام الكود، و يحتاج الي متغيرين الأول هو المجال المطلوب عد الخلايا بداخله و الثاني هو كود اللون المطلوب عد الخلايا التي تم تلوينها به CountByCellColor.rar و يتم تطبيق الدالة فى المثال الثاني كالتالي: مثال =countmycolor(coloredarea,3) اذا كان المجال له اسم مثل coloredarea او مباشرة كما يلي =countmycolor(E7:J17,8) Function countmycolor(Myrange As range, Mycolor As Integer) If IsNull(Mycolor) Or Mycolor > 56 Or Not IsNumeric(Mycolor) Then MsgBox " choose a number between 0 and 56" End If Dim Myrow As Long, MyCol As Long Myrow = Myrange.Rows.Count MyCol = Myrange.Columns.Count Mycells = Myrange.Cells.Count Dim colorcounter As Integer, counterx As Integer For i = 0 To Myrow - 1 For j = 0 To MyCol - 1 counterx = counterx + 1 If Myrange.Cells(counterx).Interior.ColorIndex = Mycolor Then colorcounter = colorcounter + 1 End If Next j Next i countmycolor = colorcounter End Function و هنا سنحتاج لمعرفة اكواد الالون لذا اضفت دالة لسردها و جدير بالذكر أن طلب صاحب الملف لا يشتمل ألوان متغيرة ، و لكن الألوان لديه ثابتة لذا يحتاج لمعرفة اللون مرة واحدة فقط ، مثلا الاحمر كوده 3 و لمعرفة اكواد الالون شغل الدالة التالية مع وقوف المؤشر فى عمود خالي و سيسرد لك البيانات و الوانها Sub Listcolors() ActiveCell.Offset(0, 0).Value = "ColorIndex" ActiveCell.Offset(0, 1).Value = "Color" For i = 1 To 56 ActiveCell.Offset(i, 0).Value = i ActiveCell.Offset(i, 1).Interior.ColorIndex = i Next i End Sub

السلام عليكم اخي الحسامي و انت ايضا فكرتك رائعة كعادتك التي نتمني ان لا نحرم منها ابدا و اسمح لي باضافة بسيطة تحياتي COLOR.rar

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

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