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

برنامج القيود المحاسبية برنامج صغير لمتابعة العمل بشكل مبسط إجعل الصفحة الأولى للأرصدة الإفتتاحية ويكون تاريخ الأرصدة بداية السنة المالية نرجو من الأخوة الإفادة وخاصة المحاسبين خواتم مباركة accounts.zip

اخي الفاضل ابو يوسف تقريبا ألاخ السائل قد نسخ المعادله التي تمت كتابتها كما هي بدون اي تغيير =NoToTxt(الرقم;العملة;أجزاء العملة) ولم يعدلها =NoToTxt(A1;"جنيه";"قرش")

السلام عليكم ولكم بمثل ما دعوتم آمين تفضل أخي الكريم تم التعديل على الجداول دون Pivot Table تقبل تحياتي Abu Rafat.xlsx

جربت احد مواقع برامج الذكاء الصناعى chatgpt فى توليد كود اكسس لسحب اكثر من ورقة من خلال سكانر فيدار ( يمكن سحب كمية من الورق ) بصيغة pdf بحيث يكون الناتج ملف واحد وكانت إجابته كالتالى: حاولت تطبيق الكود لدى ولكن لم يفلح فهل اجابته سليمه ()Private Sub cmdScan_Click On Error GoTo ErrorHandler ' Create a WIA object Dim wia As Object Set wia = CreateObject("WIA.CommonDialog") ' Set scanner properties Dim img As Object Dim imgFiles As Object Dim fileName As String Dim i As Integer Set imgFiles = CreateObject("WIA.Vector") For i = 1 To 5 ' تعديل عدد الصفحات الذي تريد سحبها Set img = wia.ShowAcquireImage( _ FormatID:="{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}", _ Intent:="Color", _ ItemType:=1, _ PromptUser:=True, _ ShowPreview:=True, _ ShowUserInterface:=True) fileName = "C:\temp\scan" & i & ".jpg" img.SaveFile fileName ' Add image file to vector imgFiles.Add fileName Next i ' Convert images to PDF Dim pdf As Object Set pdf = CreateObject("AcroExch.PDDoc") If pdf.Create = True Then For i = 0 To imgFiles.Count - 1 pdf.Open imgFiles(i) pdf.Save 1, "C:\temp\scan.pdf" pdf.Close Next i End If ' Show PDF file Application.FollowHyperlink "C:\temp\scan.pdf" Exit Sub ErrorHandler: MsgBox "An error occurred while scanning: " & Err.Description End Sub

تفضل أخي . DD133.mdb

تفضل أخي . قيدين لمبلغ واحد_دائن_ومدين.accdb

عن اذن استاذي @kkhalifa1960 هل هذا ماتريد debit.rar

عرض النموذج يوجد فيه إجمالي العمليات الدائنة والمدينة وأرصدة العملاء فقط لا غير

اعتقد هذا الموضوع يفيدك..وفيه ملف جاهز

أخي الحبيب @حسونة حسين أرجو أن يصل إلى النتيجة المطلوبة أو أن يرسل ملفه للعمل عليه.

يرجى إرفاق الملف الذي ترغب بوضع الكود له وشكراً

بعد وضع الكود فى الموديول وكتابه المعادله تظهر هذه الرساله compile error expected : line number or label or ststement or end of ststement

أستاذي العزيز محي الدين... بعد التحربة وجد ان عند اضافة الاشهر الثلاثة اللاحقة لمارس لاتظهر ويتم اضافة القيم على انها الأشهر الثلاثة الأولى أستاذي الكريم محمد حسن المحمد... بعد التجربة وجدت انها أنيقة التعامل ولا تحتاج للVBA وعند اضافة الاشهر الثلاثة اللاحقة تظهر بشكل اعتيادي عكس نموذج الأستاذ العزيز محي الدين أستاذي العزيز ليون... بعد التجربة وجدت انها رائعة والتعامل معاها اسهل وعند اضافة الاشهر الثلاثة اللاحقة تظهر دون مشاكل.. بيض الله وجيهكم وكتب لكم الأجر.. جميع المشاركات تؤدي إلى نفس النتيجة لكن هنا اختلفت الأفكار واللمسات والنتيجة ذاتها.. وإن سمحتم لي بعد اذنكم عندي اضافة بسيطة.. النموذج السابق كان عبارة عن مبلغ الخصم امام كل شهر.. علما ان لكل موظف راتب محدد وبحسب الكفاءة يتم زيادة الراتب.. هل استطيع اضافة عمود لمعرفة كم نسبة الخصم% اعتمادا على مجموع الراتب لثلاثة أشهر.. مثال: م الراتب الاسم الشهر الخصم 1 1000 محمد سعيد يناير 700 2 1100 محمد سعيد فبراير 900 3 1000 محمد سعيد مارس 1000 4 1200 احمد صالح يناير 950 5 1800 احمد صالح فبراير 450 6 1000 احمد صالح مارس 600 7 1000 عبدالرحمن علي يناير 700 8 1000 عبدالرحمن علي فبراير 600 9 1000 عبدالرحمن علي مارس 300 والنتيجة م الاسم يناير فبراير مارس نسبة الخصم 1 محمد سعيد 700 900 1000 2 احمد صالح 950 450 600 3 عبدالرحمن علي 700 600 300 مثال الموظف الأول محمد سعيد إجمالي رواتبه لثلاثة أشهر 3100 ومبلغ الخصم لثلاثة أشهر 2600 من المفترض نسبة الخصم تتعدى 80%.. هل في إمكانية لعمل ذلك؟ وجزاكم الله خير وجعله في ميزان حسناتكم

السلام عليكم تفضل التعديل استاذي العزيز تم التعديل ايضا على الجداول ارجو ان تكون التعديلات موفقة ملاحظة : يتم اختيار قيمة السلفة وعدد الاقساط وتاريخ القسط الاول ثم توليد الاقساط S&M_2.rar

هذا صحيح لاننا الحقنا القيمة في الجدول وتم حفظها كسجل الحقيقة ان هذه الطريقة تستخدم في العادة لغرض تحديد الصلاحيات للمستخدمين مثلا محمد له صلاحية form2 وعلى form3 وهكذا في مثل هذه الحالات ممكن نستخدم الاستعلام مباشرة ولن تواجهنا مشكلة عند تغيير اسم النموذج على كل حال لو فتحت جدول MSysObjects ستجد ان هناك رقم id لكل كائن في القاعدة هذا الرقم يمثل معرف فريد وبالتالي ممكن استخدامه لاجراء التعديل بدون الحاجة للتعديل اليدوي ولكن من وجهة نظري ان التعديل على اسماء النماذج ليس من الامور التي تتكرر باستمرار وبالتالي اتوقف هنا اما اذا اردنا اعطاء المستخدم صلاحيات تعديل اسماء الكائنات فممكن استخدام الامر وانا ضد ذلك DoCmd.Rename ثم حينها نضع بعده امر تحديث اسم النموذج بمعرف الايدي الذي اشرنا اليه واتوقف هنا قالت العرب خير الزاد ما بلغك المحل تحياتي

من خصائص الملف اشر على الموجود في الصورة

اخي ياسر ما رأيك بهذا الكود Sub last_cel() Range(Cells(1, 1), Cells(UsedRange.Rows.Count, UsedRange.Columns.Count)).Select End Sub

السلام عليكم ورحمة الله أخي الكريم، كما وعدتك في رد سابق أني سأحاول في ملفك إن لم يقم آخر بذلك وتراني لم أنسك ولم أنس الموضوع... لذا قمت بعمل التنسيقات اللازمة على جداول ورقات (شيتات) الشهور... وبإذن الله أقول إن المطلوب الأخير تم إنجازه والحمد لله... وأنوه أنه إذا كانت أخطاء أخرى أو تقصير في هذا العمل أو كانت طلبات أخرى أن تحصيها وتسردها في رد آخر حتى يكتمل الملف وعمله على أحسن حال... أتمنى أن تروقك التعديلات الجديدة على الملف والتي تمت في أوفيس 2010. أخوك بن علية Emmpl-Attendance_Calendar_V1.22test4.rar