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

عذرًا لم أستطع تسجيل فيديو وذلك لأن تليفوني ليس به فيديو فبعون الله جعلت الشرح في صورتين

لازم نعمل حقل في جدول الفواتير (يكون مثلا نعم/لا ، وليكن اسمه Printed) والقيمة الافتراضية تكون 0 (لا) ، وعلى زر طباعة الفاتورة ، يكون عندك كود شبيه بهذا: if me.dirty then me.dirty=false if me.printed=-1 then msgbox "تمت الطباعة سابقا" else 'اما اذا كان حقل التعريق نص : DoCmd.OpenReport "Report Name", acViewPreview, , "myID='" & Me.id & "'", acHidden DoCmd.PrintOut , , , , 3 DoCmd.close acReport, "Report Name" me.printed=-1 end if وكذلك يمكنك في حدث "الحالي" للنموذج ان تختبر قيمة Printed ، فاذا كانت -1 تعمل لزر الطباعة: if me.printed=-1 then me.cmd_Print.enabled=false else me.cmd_Print.enabled=true end if جعفر

السلام عليكم ورحمة الله وبركاته عندما يكون برنامج الاكسس يعمل ، وفجأة بدأ بإعطاء رسائل خطأ وبدون اي تعديل في البرنامج ، او عند عمل تعديل على البرنامج يُغلق الاكسس: . فغالبا المشكلة يمكن حلها بعمل هذه الخطوات: @Echo off Echo decompiling D:\Testing\myDataBase_FE.accdb "C:\Program Files\Microsoft Office\Office14\msaccess.exe" "D:\Testing\myDataBase_FE.accdb" /decompile /cmd shutdown Echo compacting D:\Testing\myDataBase_FE.accdb "C:\Program Files\Microsoft Office\Office14\msaccess.exe" "D:\Testing\myDataBase_FE.accdb" /compact Echo compiling D:\Testing\myDataBase_FE.accdb "C:\Program Files\Microsoft Office\Office14\msaccess.exe" "D:\Testing\myDataBase_FE.accdb" /cmd compile Echo compacting D:\Testing\myDataBase_FE.accdb "C:\Program Files\Microsoft Office\Office14\msaccess.exe" "D:\Testing\myDataBase_FE.accdb" /compact Echo Opening D:\Testing\myDataBase_FE.accdb , and Exiting .bat start "" "C:\Program Files\Microsoft Office\Office14\msaccess.exe" "D:\Testing\myDataBase_FE.accdb" وانا استعمل هذا الملف المرفق ليقوم بالعمل كله: سيفتح البرنامج ، ويجب عليك غلقه ، الى ان لا يفتح تلقائيا مرة اخرى. ولكن ، يجب دائما اخذ الاحتياط وعمل نسخة من البرنامج قبل عمل هذه الخطوات. اقدم لكم شرح بسيط عن الموضوع: في الكثير من الاوقات ، لما نعمل الكود ، نقوم بتعديل وتغيير وتضبيط الكود عدة مرات ، ولكن الاكسس في بعض الاحيان يبقى محتفظ بالكود القديم في ذاكرته !! لذلك : 1. اثناء البرمجة ، وبشكل يومي اقوم بتشغيل هذا الملف المرفق ، 2. وقبل تسليم البرنامج الى الزبون ، اقوم بتشغيل الملف للمرة الاخيرة ، واجهز البرنامج لتسليمه الى الزبون 1Decompile2.zip xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx النسخة رقم 2 ، والتي لا نتعامل مع الكود ، وانما بواجهة فقط 🙂 جعفر

اذا كنت تريد من اكسل المراتب بين 1 ومئة مثلا 1 الأوّل 22 الثّاني والعشرون وهكذا ..... حمل هذا الملف Salim's Order.xlsm

فقط اكتب للاكسل ما تريد ان تبحث عنه واضغط الزر Run حرب هذا الملف Saerch_expressions.xlsm

زرنامة تدرج كل التواريخ بين تاريخين (من اختيارك) مفصلة حسب كل شهر في عامود مع حرية حذف يوم او يومين او ثلاثة ايام (من اختيارك ايضاً) او عدم حذف اي يوم Date_without_days_by_colums_and_month2.xlsm

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

السلام عليكم برنامج المعلم المحترف * توفير الوقت والجهد ودقة المعلومات * متابعة مستوى الطالب بعمل اختبارات شهرية واستخراج شهادة بالدرجة والتقدير والنسبة لكل طالب * متابعة غياب الطلاب وإبلاغ ولى الامر * متابعة رسوم المجموعات مع امكانية طباعة ايصال دفع واستخراج كشف من دفع رسوم المجموعة ومن لم يسدد * معرفة اجمالى الدخل لكل يوم ولكل شهر مع معرفة اجمالى الخصومات واسببها * تنظيم جدول المجموعات وللجمبع تحياتى

اعتذر عن التأخر اخي محمد تفضل Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[numx] = " & Str(Nz(Me![txtSearch], 0)) If rs.NoMatch Then MsgBox "لا يوجد سجل" txtSearch = "" Else Me.Bookmark = rs.Bookmark End If test7.mdb

المحاسبة المالية الشاملة رابط التحميل https://www.up-4.net/jmdcotnwxal4 محاسبة التكاليف الصناعية رابط التحميل https://www.up-4.net/eloyu1u9ophk

أشكرك استاذي الغالي عبدالطيف ولاكن الدالة between تقوم بإرجاع القيم بين تاريخين ولاكن عند كتابة تاريخ بداية الإجازة اما عند كتابة تاريخ بين الاجازات لايعطينا نتائج

ياريت التنفيذ على مثال للتعلم بارك الله فيكم

وعليكم السلام جرب طريقتي جعفر

وعليكم السلام طرق طباعة الفاتورة الظاهرة في النموذج: لطباعة الفاتورة التي قيمة ID تساوي القيمة الموجودة في النموذج DoCmd.OpenReport "اسم التقرير", , , "[ID]=" & Me.id . او ان تجعل الاستعلام مصدر بيانات التقرير ، وفي الاستعلام تستخدم معيار ID (مثلا) لتصفية بيانات الاستعلام ، وقيمة معيار ID تكون: Forms![اسم النموذج]!ID جعفر

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

السلام عليكم اخي الكريم جميل جداً هذا المثال بالتاكيد ساستفاد منه واعتذر على تاخر الرد لاني غير متواجد احسنت بارك الله بك

تفضل لك ما طلبت اختيار النشاط-1.xls

اخي الملف ليس تالف ولكن برنامجك قديم حدثه برنامج الضغط

between forms!xxx!n1 and forms!xxx!n2 xxx اسم النموذج n1 من تاريخ n2 الى تاريخ يوضع الشرط في الاستعلام تحت التاريخ

كود الأستاذ / حمادة لا يتمشي مع هذا الملف لأن هذا الملف أصبح ضبط إعدادت الصفحة إلى نسبة 100% وبالتالي لا يقوم بتغيير نسبة إعدادات الصفحة لتغيير إعدادت الصفحة اضغط قائمة تخطيط الصفحة واختر على السهم الموجود لأيسر كلمة إعدادات الصفحة يظهر صندوق به 4 تبويبات اختر تبويب صفحة واضغط على اتجاه عمودي وعند تغيير الحجم اجعل الضبط 100% واجعل الملائمة 1 طول و 1 عرض وبعد ذلك قم بالذهاب إلى ورقة العمل وضبط عرض الأعمدة بما يتاسب معي بالنسبة لتعديل الماكرو جعلت الفلترة من العمود F حتى يتم إظهار الإجمالى في الفاتورة وأخيرًا تم تعديل الملف وتكبير حجم الخط دون الخروج عن الخلية والسؤال هل الضغط على لايك بعد تنفيذ المطلوب أمر صعب invoice2.zip

السلام عليكم ورحمة الله وبركاته تم الحل بالتعديل في الملف وإعدادات الصفحة والماكرو وجعل الصفحة بالطول وليس العرض والكتابة واضحة جدَا في الملف والأرقام جعلتها تظهر باللغة العربية والتاريخ جعلته يظهر باللغة العربية وتنسيق يوم - شهر - سنة تفضل المرفق بعد التعديل والسلام عليكم ورحمة الله وبركاته invoice2.zip

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

اذا كنت تريد ان يظهر لك ما يحتوي التحديد الذي قمت به (بدون الخلايا الفارغة) استعمل هذا الملف الكود Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Selection.Cells(1, 1).Column = 1 Then Exit Sub If Selection.Cells.Count > 50 Then MsgBox "Too Many Data" Exit Sub End If Dim lasteRow Dim x% lasteRow = Cells(Rows.Count, 1).End(3).Row If lasteRow = 1 Then lasteRow = 2 If Application.CountA(Target) = 0 Then With Range("A1") .Value = Selection.Address With .Offset(1) .Resize(lasteRow, 1).Clear .Value = "Selection is Empty " .Interior.ColorIndex = 8 End With With .Offset(2) .Value = "ActiveCell is : " & ActiveCell.Address .Interior.ColorIndex = 3 .Font.ColorIndex = 2 End With End With Exit Sub End If Dim arr() Dim k%: k = 1 Dim cel As Range For Each cel In Selection If cel <> vbNullString Then ReDim Preserve arr(1 To k) arr(k) = cel.Value k = k + 1 Else: x = x + 1 End If Next With Me.Range("a1") .Value = Selection.Address .Offset(1).Resize(lasteRow, 1).Clear .Offset(1).Resize(k - 1, 1).Value = Application.Transpose(arr) With .Offset(k) .Value = "Active Cell is : " & ActiveCell.Address .Interior.ColorIndex = 3 .Font.ColorIndex = 2 With .Offset(1) .Value = "Items: " & Selection.Cells.Count - x .Interior.ColorIndex = 7 .Font.ColorIndex = 2 End With End With End With Me.Range("A:A").Columns.AutoFit Range("B1") = "Selection Address" Erase arr End Sub GET adderss of selection.xlsm

حبيبنا ابو ياسين الكود السابق : CopyFile CurrentProject.path & "\db1.mdb", "D:\Data.txt" ينسخ الملف اللذي بجنب قاعدة البيانات والذي اسمه db1.mdb الى قرص D بمسمى آخر وبامتداد آخر يمكنك تسميه بالذي تريد وحتى بدون امتداد وبهذه الصفة : CopyFile "C:\db1.mdb", "D:\Data.mdb" ينسخ من مكان الى مكان آخر وبمسمى مختلف