Barna

هل انت تسخدم مفتاح الادخال ( Enter ) للانتقال ..... اذا كانت الاجابة نعم ..... جرب المرفق ....... تحديث المجاميع.rar

كل من استفيد منه فيعتبر استاذي وتاج رأسي ايضا .... بارك الله في تواضعك اخي الكريم

مشاركة مه استاذي الكريم @Eng.Qassim استخدم في حدث بعد التحديث هذا .... Me.Recalc

طبق الموجود في الصورة ...........

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

ووجهك ابيض اخي الكريم انظر الصورة وغير اسم الورقة حسب ما تريد Dim ExcelObj As Excel.Application Set ExcelObj = CreateObject("Excel.Application") ExcelObj.Workbooks.Open "C:\file1.xlsx" ExcelObj.Sheets("ورقة1").PrintOut ExcelObj.Quit Set ExcelObj = Nothing

جرب هذا ................. Dim ExcelObj As Excel.Application Set ExcelObj = CreateObject("Excel.Application") ExcelObj.Workbooks.Open "C:\file1.xlsx" ExcelObj.Sheets.PrintOut ExcelObj.Quit Set ExcelObj = Nothing

فكرة ::::::: ممكن تعمل حقل شيك ... هذا الحقل عند الاعتماد يتعلم بعلامة صح ... وفي نفس الوقت في النموذج تعمل كود تاكد بحيث ان السجلات المؤشر عليها بعلامة صح يجعلها غير قابل للتعديل او غير ممكن او مؤمن .. جرب طبقها واعلمنا ...............

شوف كده الهدية القيمة من استاذي الفاضل @Moosak مفيدة وتختصر لك الجهد

وعليكم السلام من اعدادات القرير .... تابع الصور ....

وعليكم السلام ورحمة الله وبركاته هناك العديد من طرق اعطاء الصلاحيات في المنتدى هل بحث عنها استاذي الفاضل ؟؟

بعد اذنك استاذي الغالي @kanory يمكن اختصار العدد الكبير من هذه الاكواد بهذه الصورة ...... Database1.mdb

ماشاء الله تبارك الله ... تستاهل @Ahmed_J الف مبروك

أخي الكريم هل اذا ظهر في الجدول فقط السطر الاخير جيد بالنسبة لك مثل هذا ؟؟؟؟

تفضل <><><><><><<> Students (3).accdb

وكيل ليس هناك في الجدول والرتب الاخرى مرتبه حسب وجودهم في الاستعلام ........

هل الترتيب الموجود هذا صحيح ؟؟؟

ولكن جدول الرتب هي فقط للضباط وليس للجنود موقع ؟؟؟

طلبك هنا ( دائما استخدم البحث في المنتدى اولا وقبل السؤال )

جرب كدة ................ Sub test2() Dim acPath As String Dim ObjExcelAppl As Excel.Application Dim objWorkbook As Excel.Workbooks Dim lastrow As Long Set ObjExcelAppl = CreateObject("Excel.Application") Set objWorkbook = ObjExcelAppl.Workbooks DoCmd.DeleteObject acTable, "daybox" 'DoCmd.Hourglass True acPath = CurrentProject.Path objWorkbook.Open acPath & "\data22.xlsb" ObjExcelAppl.DisplayAlerts = False 'DoEvents ObjExcelAppl.Visible = True Sleep (3000) lastrow = Sheets("الارصدة").Cells(Rows.Count, 1).End(xlUp).Row DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel12, "daybox", CurrentProject.Path & "\data22.xlsb", False, "الارصدة!A3:I" & lastrow objWorkbook.Close ObjExcelAppl.Quit Set objWorkbook = Nothing Set ObjExcelAppl = Nothing 'DoCmd.Hourglass False End Sub

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

جاري التجربة استاذ @Ezril

امين واياك يا دكتور @الحلبي

استخدم هذا .................. Dim i As Integer Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("t1") While rst.RecordCount >= 10 rst.MoveFirst For i = 1 To 6 rst.Delete rst.MoveNext Next Wend rst.Close MsgBox "تم حذف كل السجلات اللازمة", vbOKOnly, "تنبيه"

هذه مجموعة منها ..... تفضل >>>>>>>>>>>>>>>>>>>>>>>>>>