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

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

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

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

جرب هذه الطريقه

Sub printpreview1() On Error GoTo ErrorHandler ThisWorkbook.Windows(1).Visible = True Application.Visible = True Dim lastRow As Long Dim ws As Worksheet ' تحديد ورقة العمل المطلوبة Set ws = ThisWorkbook.Sheets("sheet") ' العثور على آخر صف يحتوي على بيانات lastRow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row If lastRow > 0 Then ' إعداد منطقة الطباعة لتشمل كل الأعمدة With ws .PageSetup.PrintArea = .Cells(1, 1).Resize(lastRow, ws.Columns.Count).Address .PrintPreview End With End If Exit Sub ErrorHandler: MsgBox "حدث خطأ: " & Err.Description, vbExclamation, "خطأ" End Sub تمام تفضل اخي الكريم

بالنسبة للحفظ والحذف اكسس يحفظ آليا بدون أمر .. بمجرد الكتابة اما الحذف فأرى ان يتم الحذف من نموذج التعديل ,, لأن البيانات ستكون ظاهرة فيه الرئيسي اعمل له زر ماكرو .... والفرعي جاهز فقط يتم التحديد على السجل ثم زر delet ---------------------------------- اعجبني مثالك .. اذا وجدت الوقت الكافي سوف اعمل تحسينات جوهرية عليه ----------------------------------------------- تفضل هذه طريقة الترقيم الخاص Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer xLast = DMax("moveCode", "tblInvoiceHeader", "Left(moveCode, 1) ='" & "W" & "'") prtyr = Left(xLast, 1) If IsNull(xLast) Then xNext = 1 prtyr = "W" Else xNext = Val(Mid(xLast, 2, 5)) + 1 End If Me!moveCode = prtyr & Format(xNext, "00000") stock10 .rar

تمام استاذنا وهذا ما اريده بس هستئذن حضرتك ممكن تعديل على الكود بحيث يتم الغاء رساله تخيير تصدر اكسل او PDF

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

تم التعديل test (1).xls

المهم كون الفكرة صحيحة سوف اعطيك خطوات او سيناريوا الفكرة .. حاول تطبيقها الأدوات : 1- جدول كنترول تحكم يسجل فيه قيمة كل رسم ... ( 7 حقول في سجل واحد ) .. قد تتغير من سنة لأخرى لذا وضعنا هذه القيم في جدول تحكم 2- جدول مشابه لجدول التحكم تماما ( جدول الرسوم ) ويرتبط كجدول فرعي بجدول اسماء الطلاب 3- جدول الدفعات فرعي مرتبط بجدول الطلاب .. عبارة عن حقل واحد للمبلغ وحقل للتاريخ .. من اجل رصد الدفعة وتاريخها واخراج وصل بها يهمنا الآن مجموع الدفعات ( وهو الرقم المستهدف ) ومنطقيا سيتجدد بالزيادة -------------------------------------------------------- يمكنك الآن عمل جملتك البرمجية لتوزيع المبلغ بالترتيب ________________________________________ اذا لم تتمكن واردت المساعدة ارفع مرفقا بالادوات المذكورة اعلاه مراعيا الطريقة العلمية الصحيحة في التصميم

تم التعديل يمكن الاختيار بالفارة ويمكنك الخروج عن طريق علامة × في الفورم test.xls

طيب .. اخبرني : 1- ما اسم قاعدة الجداول ( الاسم كامل مع الصيغة ) مثلا : data.accdb 2- اسم الجدول 3- اسم الحقل الذي ستحفظ به التاريخ المشفر ملحوظه : يجب ان يحتوي الجدول على سجل واحد فقط مثل الجدول المستخدم لبيانات المنشأة ------------------------------ حسب البيانات اعلاه يمكننا تحديث التاريخ ولكن يجب ان نلصق ملف التحديث بجانب قاعدة الجداول ثم نقوم بتشغيله اما لو اردنا تشغيل الملف من اي مكان على الكمبيوتر فيجب معرفة موقع قاعدة الجداول بالضبط ( الامتداد الكامل)

تفضل Database2.rar

اين تريد النتائج في اي صفحة واي مدى

مرفق ملف للترجمه بواسطه السيلينيوم * لابد من تصطيب السيلينيوم ويمكنك تحميله من هذا الرابط * وتحديث درايفر الكروم من هذا الرابط Translator.xlsm