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

تصحيح المعادلات في الصف الخامس (ضروري) جرب هذا الكود Option Explicit Sub MERGE_CELLS() Dim RG As Range Dim i%, x% Application.ScreenUpdating = False x = Cells(5, Columns.Count).End(1).Column Application.DisplayAlerts = False With Range("d4").Resize(, x) .UnMerge .Value = vbNullString .Borders.LineStyle = 1 End With Application.DisplayAlerts = True Set RG = Cells(4, 4) For i = 4 To x If Month(Cells(5, i)) = Month(Cells(5, i + 1)) Then Set RG = Union(RG, RG.Offset(, 1)) RG.Merge Else Set RG = Cells(4, i + 1) End If RG = " شهر:" & Month(Cells(5, i)) Next Cells(4, x + 1).Resize(50, 20).Clear Application.ScreenUpdating = True End Sub '+++++++++++++++ Sub Unmge() Dim x% x = Cells(5, Columns.Count).End(1).Column Application.DisplayAlerts = False With Range("d4").Resize(, x) .UnMerge .Value = vbNullString .Borders.LineStyle = 1 End With Application.DisplayAlerts = True End Sub الملف مرفق Merge_Fouzy.xlsm

السلام عليكم 🙂 وهذه طريقة اخرى ، دون المساس بـ Registry الكمبيوتر جعفر

تم معالجة الأمر Odd_Even_Numbering.xlsm

كيفية تصحيح اسم مجلد قاعدة البيانات الافتراضى الرساله بتقول الملف غير موجود تم انشاء ملف جديد بالاسم والحمد لله اشكركم

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

انا لم اجذف الشيتات بل احفيتها لحسن الرؤية

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

حبيبي استاذ عبد العليم انا بخدمتك ودعوة طيبة منك تكفي وتزيد

كلمة شكراً ما تكفي، والمعنى أكبر ما توفيه، لو بيدي العمر أعطيه أعبّر له عن مدى شكري

وهذه محاولة باضافة استعلام واحد فقط ارجو ان تكون ناجحة من بعد اذن استاذنا husamwahab المحترم 2moh-212.accdb

1-للمرة الـ 100 بعد الألف اختصار الملف ( لماذا اكثر من 500 طالب في كل ورقة) 2- انت وضعت 6 لجان كل واحدة تحتوي عل 15 اسم اي 90 طالب ما ادراك بعدد الطلاب (دور ثاني - ذكور او أناث) كيف تعرف ان 6 لجان نكفيهم ربما نحتاج الى 7 مثلاً أو 5 أو 10 3- كيف نعرف ان الطالب دور ثاني 4- على كل حال جرب هذا الماكرو Option Explicit Sub Get_data() Application.EnableEvents = False Dim s_rg As Range, find_rg As Range Dim Mou3addaL#, last_Clas%, I%, m%, col% Dim Mal_Femal$ Dim First_sheet As Worksheet Dim Second_sheet As Worksheet Dim Position%, k% Position = 19 Set First_sheet = Sheets("ف.1.أ") Set Second_sheet = Sheets("اللجنة") Mal_Femal$ = Second_sheet.Cells(1, 7) For I = 4 To 300 Step Position If Second_sheet.Cells(I - 1, 2) = "" Then Exit For Second_sheet.Cells(I, 2).Resize(15, 3).ClearContents Next If Mal_Femal = "" Then Exit Sub last_Clas = First_sheet.Cells(Rows.count, 2).End(3).Row Set find_rg = First_sheet.Rows(4).Find(Second_sheet.Cells(1, 6), lookat:=1) If find_rg Is Nothing Then Exit Sub col = find_rg.Column + 8 Mou3addaL = Val(First_sheet.Cells(8, col)) / 2 m = 4: k = 1 For I = 10 To last_Clas If First_sheet.Cells(I, col) < Mou3addaL And _ First_sheet.Cells(I, 4) = Mal_Femal Then If m Mod 19 = 0 Then m = m + 4: k = 1 With Second_sheet.Cells(m, 2) .Value = k .Offset(, 1) = First_sheet.Cells(I, 3) .Offset(, 2) = First_sheet.Cells(I, 6) End With m = m + 1: k = k + 1 End If Next Application.EnableEvents = True End Sub الملف نموذجي مرفق Ligann.xlsm

للأسف لم اجد طريقة مع كثرة المحاولات حاولت اجعل مصدر التقرير ( استعلام التجميع ) استعلام الشرط لكنه نفس النتيجة Between [Forms]![employee1]![datefrom] And [Forms]![employee1]![dateto] فهل عندي خطأ في انشاء قاعدة البيانات لاني قرأت ان لو القاعدة منشأة بطريقة صحيحة سيكون من السهل انشاء الاستعلامات وعليه انشاء التقارير ولكني اجد مشكلة وتعقيد في النتائج

تفضل التعديل ارجو ان يكون طلبك ترقيم تلقائى-3.rar

في نهاية الكود قبل End Sub هذا السطر With P Union(.[G7], .[C4], .[C8], .[H8], .[C9]) = vbNullString End With

اتفضل الملف لعله يفى بالغرض ولكن النص والارقام مرتبطه مع بعضهما نسخة من نص معكوس.xlsm

وعليكم السلام-تفضل ما تريد بالتنسيقات الشرطية. وتم ايضاً لعمل قائمة منسدلة لإختيار الحروف المطلوبة نظام التقييم للصف االاول بالألوان1.xlsx

المعذرة استاذ علي لم الحظ ردك لا بعد ان رفعت الملف جرب هذا الملف Facture.xlsx

وعليكم السلام لا يمكنك عمل هذا بمعادلة فلكوب العادية الا بعد عمل عمود مساعد او يمكنك استخدامها بطريقة مباشرة بعد جلب أول عمود بالفاتورة بهذه المعادلة المصفوفة (Ctrl+Shift+Enter) =IFERROR(INDEX(التفاصيل!$C$4:$C$800,SMALL(IF($F$6=التفاصيل!$A$4:$A$800,ROW($A$4:$A$800)-3),ROW(A1))),"") برنامج فواتير.xlsx

السلام عليكم وهذا تعديل من الاخ shod90 (شكرا اخي شادي) على ملف Seq.vbs ، بحيث يعمل الكود في المجلد الذي يكون فيه ، فلا يحتاج الى كتابة اسم المسار: dim fso: set fso = CreateObject("Scripting.FileSystemObject") dim CurrentDirectory CurrentDirectory = fso.GetAbsolutePathName(".") dim Directory Directory = CurrentDirectory & "\Seq.mdb" 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 Directory o.usercontrol=true set o=nothing . جعفر

السلام عليكم تم التعديل على الكود والبرنامج ليعمل: 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

السلام عليكم ورحمة الله وبركاته انا تأخرت كتير على هذا الموضوع الجميل انا استخدمت على ويندوز 7 - 32 بت اوفيس 2010 - 32 بت وحقا طريقة رائعة جدا اسمح لي ان ارد عليك يا @kaser906 اتفضل اليك هذا وفتحه هل وصلت للنتيجة المطلوبة ؟ jj.rar

وعليكم السلام أخوي ابوخليل ما استغرب ، وما خليت بالي على هذه القضية المرفق فيه ملف vbs واللي عادة يكون فيه برنامج مخرب للكمبيوتر ، وفيه برنامج exe كذلك واللي ممكن يخرب الكمبيوتر!! انا جتني هذه الرسالة: . فضغطت على Keep وتم التنزيل سأعمل مجموعة محاولات ، وعلى اساسها سارفع المرفق الصحيح جعفر توصلت الى المرفق الصحيح ، فسأرفعه الان الى رابط الموضوع الاصلي: http://www.officena.net/ib/topic/66836-تشغيل-برنامج-الاكسس-في-اي-مجلد-،-وبدون-رسائل-الأمان/ جعفر

السلام عليكم أخوي أبوخليل انت تطوعت للتجربة وضعت موضوع خاص على هذا الرابط: http://www.officena.net/ib/topic/66836-تشغيل-برنامج-الاكسس-في-اي-مجلد-،-وبدون-رسائل-الأمان/ جعفر

السلام عليكم اخوي ابوخليل كلامك جميل وواقعي بحثت في هذا الموضوع ، واتضح ان هناك طريقة بديلة تتماشى مع "المجلد الموثوق به" ، وهي إضافة "مجلد موثوق به" عن طريق ملف vbs (طبعا استعماله يكون مثل ما تفضلت ، عند تحزيم البرنامج) ، وعليه تستطيع ان تنصب برنامجك فيه وتنحلّ المشكلة هناك الكثير من الاكواد المتوفرة لهذا الغرض يعني بدل تخفيض مستوى الامان ، نعمل مجلد موثوق به جعفر

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

السلام عليكم في وقت ما ، اصبحت برامج المايكروسوفت اداة في ايدي المبرمجين المخربين ، واستغلّوا قدرة برامج المايكروسوفت على التحكم في الكمبيوتر عن طريق الـ VBA و Macro ، لذا ، اضطرت شركة مايكروسوفت الى القيام بإيقاف هذه البرامج عن طريق "مستوى أمان البرنامج" ، والطريقة التي تم الوصول لها للحماية ، اصبحت تتغير وتتحسن في اصدارات الاوفيس. اليك الطريقة الصحيحة في تمكين البرامج في استخدام VBA و Macro في الاصدار 2010: افتح برنامج الاكسس مباشرة ، وقم بإتباع الخطوات: بهذه الطريقة تستطيع ان تخبر الاكسس ان احد/بعض المجلدات هو امين/موثوق به ، وان اكسس يمكنه ان يفتح برامجك فيه وبدون رسالة الامان انا شخصيا لا اسمح لأي برنامج ان يغيّر اعدادات كمبيوتري ، واعتبره برنامج غير مرغوب فيه ، واحذفه على طول لذا ، اُفضل اتباع الخطوات اعلاه لأي كمبيوتر اتعامل معاه جعفر

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