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

تفضل هذا للأستاذ الفاضل @Moosak

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

تفضل أخي .. إشراف (1).accdb

والان المرفق الجديد وتم مراعاة الآتي عدم الاعتماد على المكتبات المدمجة بالأكسس والتي تؤدى الى مشاكل باختلاف النسخ اذا تم التعامل مع نسخ اقل في الإصدار عدم الاعتماد كذلك على دوال الـ API والتي تسبب مشكل مع اختلاف انوية الاكسس X32 , x64 إمكانية ارفاق أي عدد من الصور الى مجلد يتم انشاءه آليا بجوار القاعدة في نفس مسارها دون تكرار الصور عند محاولة تكرارها الصور سوف تبدأ دائما برقم الموديل إضافة أسماء الصور في الجدول الخاص بها وهو الذى سوف يتم الاعتماد عليه مستقبلا في عرض الصور على هيئة كتالوج والذى سوف يتم من خلاله استعراض الصور في زوايا البرنامج Photo Catalog v2.4.mdb

السلام عليكم ورحمة الله استخدم تلك المعادلة =SUMIFS($F$14:$F$35;$I$14:$I$35;"مدفوع")

تفضل اخى الكريم example-1.xlsx

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

(كود) لعله يكون المطلوب Sub test() d = Split(Join(Application.Transpose(Sheets("Excursion").Range(Sheets("Excursion").Range("C2"), Sheets("Excursion").Range("C2").End(xlDown))), "#") & "#" _ & Join(Application.Transpose(Sheets("Shopping").Range(Sheets("Shopping").Range("C4"), Sheets("Shopping").Range("C4").End(xlDown))), "#") & "#" _ & Join(Application.Transpose(Sheets("Bonus").Range(Sheets("Bonus").Range("B4"), Sheets("Bonus").Range("B4").End(xlDown))), "#"), "#") With CreateObject("scripting.dictionary") For i = 0 To UBound(d) If Not .exists(d(i)) Then .Add d(i), .Count + 1 End If Next Sheets("Total").Cells(2, 3).Resize(.Count) = Application.Transpose(.keys) End With End Sub

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

ضع رقم المعرف في الخلية B2 من خلال القائمة في العمود E ملاحظة : يمكنك مسح القائمة فقط لتجربة الكود كيف يعمل. كما يوجد خلايا مدمجة لتجنب اي مشاكل مستقبلية قد تحدث خطا في الكود نتيجة الخلايا المدمجة خصوصا خلية رقم الهوية يجب الغاء دمجها اخيرا نظرا لسرية المعلومات يجب حماية محرر الاكواد برقم سري حتى لا يستطيع احد الولولج من داخله واظهار الاوراق . تحياتي hide specific sheets.xlsm

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

فقط قم بتعديل اللغة الى العربية من خلال محرر SQL مع تعديل database الى اسم قاعدة البيانات لديك ALTER DATABASE [database] SET SINGLE_USER WITH ROLLBACK IMMEDIATE; GO ALTER DATABASE [database] COLLATE ARABIC_CI_AS; GO ALTER DATABASE [database] SET MULTI_USER; GO

كيف يعني تنسخ جدول الى مجلد ؟ تفضل جرب هذا التعديل On Error GoTo ErrH Dim fso As Object, fldrname As String, fldrpath As String, fldrpathNow As String fldrname = "pp2" Application.FileDialog(msoFileDialogFolderPicker).Show fldrpathNow = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\*" Set fso = CreateObject("scripting.filesystemobject") fldrpath = Environ("USERPROFILE") & "\Desktop\" & fldrname If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) fso.CopyFile fldrpathNow, fldrpath Else MsgBox "تم انشاء المجلد مسبقا", vbExclamation + vbMsgBoxRight, "تنبيه" End If Exit Sub ErrH: MsgBox "رقم الخطأ" & " : " & Err.Number & _ vbNewLine & "وصف الخطأ" & vbNewLine & Err.Description, vbCritical + vbMsgBoxRight, "تنبيه"

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

تفضل هذا المقترح يجب ان يكون لديك جدول للمجموعات و كل مجموعة تأخذ رقم فريد يتم من خلاله الفرز بناء على رقم المجموعة سيكون العرض في التقرير test1.zip

لإنشاء مجلد جديد استخدم الكود التالي Dim fso As Object, fldrname As String, fldrpath As String fldrname = " ضع هنا اسم المجلد " Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\" & fldrname If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If

حاولت فتحها لتصحيح الخطأ لكن لم تفتح حاولت تمكين الشيفت ومع ذلك لم تفتح

تفضل التعديل s.zip

الاجابة في هذا الملف cylingder _volume.rar