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

تحديث البرنامج بدخول البرنامج OK Mshanan (صور + فيدو + مرفق) والقديم OK Moosak 😂 1- انشاء واجهة سطح المكتب فيها كل برامج والملفات الصور 2- فيها تشغيل الملف فقط او تشغيل البرامج المحدد مع او الكل مع فتح لبرنامج آخر 3-تحميل البيكجات كانت قوالب او اصوات او صور 4- انشاء مجموعات بكل بساطة كواجهة مستغل واختر اختصار عند بداية اقلاع الويندوز وبالفيديو توضيح طريقة الاستخدام 1- افتح متصفح ملفات الويندوز انشاء ملف والصق في الملف اختصارات البرامج او برامج اكسس او الصور او الفيديو او الاصوات او اي ملف غير معروف من القائمة الجانبية اختر الملف والاسفل سمة ثم اختر اضافة فقط 2- اختر بالقائمة الرئيسية 1- new_Scan ثم 2-Up_date ثم 3-Run_Update_Folder Next Finsh اغلاق فقط ================== 3- اختر الصور للملفات اما صورة الملف او صورة انت تختار الصور للملف من شريط العلوي اختر IF_All_IMG ============================ نسيت الغاء Selected_Folder 😇 عند تحريك المؤشر نازم توقيت بارميتر = 0 عند الخروج =100 مفنوح المصدر استاذ @Moosak 🌹❤️☕ هذي قائمتي اشرايك نفس فكرتك بس بطريقة مختلفة مع تغيل برامجك شوف الفيديوا 😁 تحميل البرانامج https://www.mediafire.com/file/t080nzipmn9qttz/V2_league-of-legends.rar/file

ارجو المساعده فى كود vba استخدمه عند تسجيل قراءة عداد حيث اريد عند تسجيل القراءة فى نموذج وتكون القراءة اقل من الشهر السابق تظهر رسالة خطأ الكود يعمل لدى بشكل جيد جداً حتى 4 ارقام ولكن المشكلة عند كتابة رقم مكون من 5 ارقام او اكثر تظهر هذه الرسالة ولا يعمل الكود Private Sub Text376_BeforeUpdate(Cancel As Integer) WriteAuditUpdate txtTableName, Me.crn, "Text376", Me.Text376.OldValue, Me.Text376.Value Dim i, ii As Integer i = Nz(DLookup("[HALYA]", "[إصدار بتروتريد]", "[crn] ='" & [Forms]![البيانات الرئيسيه]![crn] & "'"), 0) ii = Me.Text376 If ii < i Then Beep If MsgBox("إنــتــبــه ...... الإستــهلاك أقــل مـن المسـجل بالشهر السابق برجـاء التأكد قبل تسجيل الإستهلاك ....... هل تريد إضافة القيمة؟", _ vbCritical + vbYesNo, _ "تننبيه") = vbYes Then Exit Sub Else Exit Sub End If End If End Sub وهذه الرساله تظهر

اشكرك استاذى الكريم على اهتمامك هو المطلوب فعلا

تفضل اخي الكريم هذا كود يظهر المعاينه وايضا بعد اغلاق المعاينه يظهر رساله تخيير تصدر اكسل او PDF 🙂 أنشئ موديول وضيف فيه هذا الكود : Sub printpreview1() ThisWorkbook.Windows(1).Visible = True Application.Visible = True Dim lastRow As Long Dim lastColumn As Long Dim ws As Worksheet Dim response As VbMsgBoxResult ' تحديد ورقة العمل المطلوبة Set ws = ThisWorkbook.Sheets("sheet") ' العثور على آخر صف وعمود يحتويان على بيانات lastRow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row lastColumn = ws.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column If lastRow > 0 And lastColumn > 0 Then ' إعداد منطقة الطباعة With ws .PageSetup.PrintArea = .Cells(1, 1).Resize(lastRow, lastColumn).Address .PrintPreview End With ' عرض رسالة خيارات التصدير Dim exportChoice As Integer exportChoice = MsgBox("اختر نوع التصدير:" & vbCrLf & _ "نعم - تصدير إلى Excel" & vbCrLf & _ "لا - تصدير إلى PDF" & vbCrLf & _ "إلغاء - للخروج", _ vbYesNoCancel + vbQuestion, "تصدير البيانات") Select Case exportChoice Case vbYes ' تصدير إلى Excel Dim newWorkbook As Workbook Set newWorkbook = Workbooks.Add ws.Cells.Copy Destination:=newWorkbook.Sheets(1).Cells(1, 1) Dim excelPath As String excelPath = Application.GetSaveAsFilename(InitialFileName:=".xlsx", FileFilter:="Excel Files (*.xlsx), *.xlsx") If excelPath <> "False" Then newWorkbook.SaveAs excelPath MsgBox "تم تصدير البيانات بنجاح إلى Excel!" Else MsgBox "تم إلغاء عملية التصدير" End If newWorkbook.Close SaveChanges:=False Case vbNo ' تصدير إلى PDF Dim pdfPath As String pdfPath = Application.GetSaveAsFilename(InitialFileName:="Document.pdf", FileFilter:="PDF Files (*.pdf), *.pdf") If pdfPath <> "False" Then ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard MsgBox "تم تصدير البيانات بنجاح إلى PDF!" Else MsgBox "تم إلغاء عملية التصدير" End If Case vbCancel MsgBox "تم إلغاء عملية التصدير" End Select Else MsgBox "لا توجد بيانات للتصدير." End If End Sub

غير Dim i, ii As Integer الى Dim i As Long, ii As Long استبدلت المتغيرين i و ii بنوع Long للتعامل مع أرقام أكبر من 4 خانات. الخطأ "Run-time error 6" يتعلق بتجاوز الحد الأقصى لنوع البيانات Integer. أن شاء الله هو الحل بالتوفيق

حسب فهمى للطلب =IF(G3="";"";INT(DATEDIF(G3;TODAY();"m")/4)*10) TESTT.xlsx

جرب هذا الكود اخي =IF(TODAY()>G3;INT((DATEDIF(G3; TODAY(); "m") / 4) * 10);"لم يأتي الموعد")

عليكم السلام اخي الكريم .. توجيه الطلب لشخص بعينه غير مستحسن ، ولا يصب في صالح السائل .. فقد يحرمه من اجابات افضل .. لطفا .. لا تكررها .. واجعل طلبك دوما للعموم -------------------------- مطلوبك سهل جدا ويمكن تحقيقه بعدة طرق منها : 1- ان يكون الرقم = id ... في حدث بعد التحديث لمربع العميل : moveCode=id بكذا يكون غير قابل للتكرار وكل فاتورة لها رقمها الخاص بعضهم يريد التنسيق التالي : تسلسل ارقام الوارد لوحدها وتمييزها بحرف .. وكذلك تسلسل ارقام الصادر لوحدها وتمييزها بحرف انظر ماذا تريد

طلبك هنا https://www.officena.net/ib/topic/41803-كود-طباعة-بعد-المعاينة/#google_vignette

الغريب انك لا تريد استخدام الاكواد او حتى المعادلات

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

وعليكم السلام جرب هذا الحل قوائم التلاميذ معدل.xlsm

🌼 السلام عليكم ورحمة الله وبركاته 🌼 يسرني اليوم أن أقدم لكم الإصدار الثاني والمطور من الأداة المتميزة والرائعة ( الكاتب الذكي لدوال المجال ) . Dloockup, DCount, DMax, DMin, Dfirst, DLast هذه الأسطورة التي تقوم بكتابة دوال المجال نيابة عنك بشكل آلي .. :: ما هو الجديد :: اليوم أحتفل معكم بإصدار النسخة الثانية والمطورة لهذه الأداة والتي تتميز بالإضافات التالية : 1- إمكانية إضافة عدد لا نهائي من المعايير ( الشروط ). 2- التعرف التلقائي على نوع بيانات الحقول. 3- جلب قيمة المعيار من التقارير. 4- ميزة إضافة الأقواس حول المعايير. 5- حفظ بيانات آخر عملية قمت بها. 6- كتابة الدالة بمجرد الضغط على زر Enter. 7- تم إضافة أزرار لتسهيل كتابة الدالة NZ والمعامل Like. 8- تكبير لوحة الناتج بالضغط المزدوج عليها. 🌹🍀🌹🍀🌹 وهنا تم شرح هذه الإضافات بالتفصيل : :: شرح كيفية استخدام الأداة بالتفصيل :: :: 🌼 شكر وتقدير 🌼 :: لكل من ساهم برأي أو فكرة أو تطبيق في هذا العمل ، وجزاكم الله عن المسلمين كل خير 😊🌹 :: حمل الإصدار الثاني للكاتب الذكي لدوال المجال 2.0 :: ‏‏‏‏Domain Functions Builder V2.0.accdb

السلام عليكم ورحمة الله وبركاته كثيرا منا يحتاج الى عرض الصور فى مجلد محدد عن طريق الاكسس بحث عن طرق عدة وكل الطرق كانت مثل الصورة التالية والتى كانت لا تروقنى فقلت ارخم عليكم واعمل انا طريقة تانية لانى دى احد عيوبها نى لو عندى الف صورة هفضل اعمل اسكرول لحد ما اصل الى الف سجل وهو عدد المسارات الخاصة بالصور فقلت اعمل طريقة خاصة بينا احنا اوفيسنا مش عارف موجودة ولا لا اهو بالبركة وزيادة الخير خيرين زى طريقة عرض الصور فى الويندوز الية العمل كلها تكمن فى مصدر عنصر تحكم كل كائن من كائنات الصور -------------- بعد الضغط على زر تحديد المجلد ثم الضغط عزر الذهاب الى المجلد سيقوم البرنامج تلقائيا بجلب جميع مسارات الصور داخل البرنامج مع اعطاء كل مسار رقم وعن طريق هذا الرقم ساقوم باستدعاء كل صورة حيث عن المعادلة ( رقم السجل * 8 - 7 ) = 1 ( رقم السجل * 8 - 6 ) = 2 ( رقم السجل * 8 - 5 ) = 3 ةهكذا حيث رقم السجل هو الترقيم التلقائى لكل سجل الذى يعطيه البرنامج تلقائيا عند جلب المسارات فيديو للشرح المرفق Gallary.rar