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

عندي 2010 عملت لايك على اجابة الاستاذ محمد .. لاني جربت المثال ويعمل 100%

ممكن ايقاف عمل السطر .... Private Sub AT_cmd_Click() 'CurrentDb.Execute ("Delete * From test_order_tbl") Me.selected_list.Requery Me.testlist.RowSourceType = "Table/Query" Me.main_title.Caption = "All Tests" ref = "" low = "" high = "" Me.S1 = Null Me.S1.Enabled = False Me.testlist.ColumnCount = 5 Me.testlist.ColumnWidths = "0;1;0;0;0" Me.testlist.RowSource = "qryAllTest" Me.testlist.Requery Me.testlist.OnDblClick = "=Old_Function()" End Sub

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

أستاذ @Foksh 😁 أرى أن تحذف أفضل اجابة حتى تصل للمطلوب تفضل هذا الامر تم تجربته على أوفيس 2020 و للأسف ليس عندى اوفيس 2010 Second.accdb

تفضل أخي انا اشتغلت فقط على اضافة الكتاب ومرفقين وعرضهم . 700-1.rar

اخوي هاني من الاحتراف ان لا تتشابه اسماء الحقول في الجداول المفروض يفرق بينها بحرف او اي شيء بسبب التشابه تظهر لك المشكلات عند بناء الاستعلامات من هذه الجداول اسم الحقل ArAccDes في الجدول الفرعي عدلته الى Ar_AccDes تفضل التعديل البحث في النموذج2.rar

كذلك اسم النموذج مختلف فالاسم في الكود UserForm وأنت مسميه UserForm1 فالتعديل بيكون بتبديل أول سطرين من: Private Sub UserForm_Initialize() With ListView1 إلى: Private Sub UserForm1_Initialize() With tbl

الشكر موصول لك أستاذ 🤝 @محمد احمد لطفى مع إجراء بعض التعديلات على الدالة في المديول ، تم تنفيذ الفكرة لتعمل على نسخة 2010 ؛ مع العلم ان كود الاستاذ محمد يعمل على اصدار 2016 :) وهذا التعديل للفائدة العامة :- Function GetAudioFileDurationInSeconds(filePath As String) As Long Dim audioApp As Object Dim audioClip As Object On Error Resume Next Set audioApp = CreateObject("WMPlayer.OCX") Set audioClip = audioApp.newMedia(filePath) On Error GoTo 0 If audioClip Is Nothing Then GetAudioFileDurationInSeconds = -1 Else GetAudioFileDurationInSeconds = audioClip.duration End If Set audioClip = Nothing Set audioApp = Nothing End Function

يبدو أن هناك مشكلة في طريقة استدعاء الكود من اليوزر فورم. يمكن أن يكون الخطأ ناتجا عن أمور مثل عدم تحديد المسار الصحيح للملف أو استخدام أسماء متغيرة غير صحيحة. يمكنك مراجعة الكود والتأكد من صحة الأسماء والمسارات المستخدمة للتأكد من عدم وجود أخطاء بها.

تقريبا الخطأ شبيها للخطأ السابق، ولكن لو رفعت الصورة كالأولى عندما تنهي هذه الرسالة سيشير المؤشر على السطر والكائن المفقود أو اسم الكائن الخاطئ. كذلك لو تعطيني السيناريو أي الخطوات التي أدت لظهور هذا الخطأ حتى يحدث معي وأقوم بتتبعه. يبدو لي أنت مستقطع الكود من ملف آخر.

الحمد لله على قضاء الحاجات فقط احببت التنبيه الى ان طريقة تصميم الجداول غير صحيحة .. الافضل بيانات الجداول الثلاث تكون في جدول واحد

السلام عليكم ورحمة الله وبركاته اساتذتي الاعزاء تم بعون الله تعالى ومن خلال طرح الاستاذ @kkhalifa1960 التوصل الى مطلبي وكما في القاعدة المرفقة مع الشكر والتقدير test1.accdb

اقرب حل هو اظهار رسالة تنبيه وتخيير تفضل Test3.accdb

جرب Sub InsertPageBreaks() Dim ws As Worksheet Dim rowsPerPage As Integer Dim lastRow As Long Dim i As Long ' تعيين عدد الصفوف في كل صفحة rowsPerPage = 24 ' تحديد الورقة التي ترغب في تطبيق الفواصل عليها Set ws = ThisWorkbook.Sheets("Sheet1") ' تغيير "Sheet1" إلى اسم الورقة الخاصة بك ' حذف الفواصل الحالية إن وجدت ws.ResetAllPageBreaks ' الحصول على آخر صف غير فارغ في الورقة lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' إدراج فواصل الصفحات بعد كل rowsPerPage صف For i = rowsPerPage To lastRow Step rowsPerPage ws.Rows(i).PageBreak = xlPageBreakManual Next i End Sub قم بتغيير "Sheet1" في السطر Set ws = ThisWorkbook.Sheets("Sheet1") إلى اسم الورقة التي ترغب في تطبيق الفواصل عليها. قم بتعديل قيمة rowsPerPage إلى العدد المطلوب من الصفوف في كل صفحة.

عدل جميع الخصائص في النماذج الى : سجل محرر كما في الصورة يوجد لديك اخطاء برمجية في المشروع .. تتبع الاخطاء في محرر الفيجوال بواسطة : debug / compile

مشاركة مع استاذ @عمر ضاحى تفضل استاذ @فؤاد الدلوي محاولتي باستعلام (duplicatesIN(TA-TB-TC)) .ووافني بالرد . test1-111.rar

انا ضيعت وبالمصري (تهت) من فضلك أدخل موظف جديد وادخل بياناته بدون انتداب . علشان اشوف المشكلة فين .