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

تفضل أخي العزيز .. منع حذف اول سجل.accdb

واقعا هي الطريقة المثلى والاكثر مرونه 🙂 ويمكنك استخدام مثال هذا المرفق: http://lebans.com/DownloadFiles/ListBoxEnhanced.zip جعفر

تفضل أخي .. عملتها لك بشكل آخر عن طريق السب فورم .. وتعطيك نفس النتيجة 1234.accdb

اخترعت لك هذه الدالة 😁 Public Function ChangeImageName(FullPath As String, NumberPlus As Integer) As String Dim FileName As Integer Dim NewName As Integer FileName = CInt(Left((Right(FullPath, Len(FullPath) - InStrRev(FullPath, "\"))), InStr((Right(FullPath, Len(FullPath) - InStrRev(FullPath, "\"))), ".") - 1)) NewName = FileName + NumberPlus ChangeImageName = Replace(FullPath, FileName, NewName) End Function وظيفتها أن تقوم بزيادة أو تنقيص الرقم في اسم الصورة .. ( أنت تحدد الرقم بالزيادة أم النقصان 🙂 ) تضعها في استعلام تحديث .. وتضع مكان (تحديث إلى:) تحت حقل مسار الصور الدالة بهذه الصورة : ChangeImageName([Image];1) بحيث مكان الرقم 1 تضع الرقم الذي تريد زيادته ، وإذا بالقصان تضع (-1) مكان الرقم 1 .. وهذا مثال لما تصنعه هذه الدالة : (مرفق لك الملف ) ImagesCorrection.accdb

تفضل ...... page1.accdb

طيب ايش رأيك بهذه النتيجة : 2س/1ش/0ي = 2 سنه/1 شهر/ 0 يوم : وهذه هي الدالة: Public Function YMDDif4(sDate1, sDate2) On Error GoTo err_YMDDif4 'sDate1 earliest date 'sDate2 later date Dim D As Integer, m As Integer, y As Integer Dim iYear As Integer Dim iMonth As Integer Dim iDay As Integer Dim dInterim1 As Date iMonth = DateDiff("m", sDate1, sDate2) If Day(sDate1) > Day(sDate2) Then iMonth = iMonth - 1 End If dInterim1 = DateAdd("m", iMonth, sDate1) iDay = DateDiff("d", dInterim1, sDate2) D = iDay m = iMonth Mod 12 y = iMonth \ 12 'YMDDif2 = CStr(Y) & " Years " & CStr(M) & " months " & CStr(D) & " days" YMDDif4 = CStr(y) & " س/" & CStr(m) & " ش/" & CStr(D) & " ي" Exit Function err_YMDDif4: If Err.Number = 94 Then 'ignor, null Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function جعفر

تفضل عزيزي فرق التاريخ1.accdb

تفضل .... إحصاء من القائمة المتعددة.accdb

شكرا شكرا .. الله يعافيك ويكتب اجرك .. مضبوط

بتغيير بسيط على كود اخوي موسى ، ليتماشى مع الاستعلام : DD: Calcdiffy([vdate1], [vdate2]) جعفر

جرب هاي: ListBoxEnhancedVer15.accdb

شكرا على سرعة الرد جزاك الله كل خير وبارك فيك

تفضلي أختي .. الكود يعمل عند إغلاق النموذج وليس البرنامج .. test.rar

ممتن للطفك ضبطت بالرغم من اني واجهت مشكلة ولكن حذف كود الحذف عند else وضبطت

شكرا اخى Moosak نعم هذا هو المطلوب وبارك الله فيك

بعد ادن الاستاد جرب المرفق المصنف1 (2).xlsm

وعليكم السلام ورحمة الله وبركاته تفضل هذا الموضوع به شرح مستفيض لما تريد للاستاذة ساجده

وعليكم السلام ورحمة الله وبركاته جرب هذا الكود اخى الكريم Private Sub Command1_Click() Dim strFile As String strFile = Application.GetOpenFilename() Workbooks.Open (strFile) Textbox5.txt = strFile End Sub

وعليكم السلام ورحمة الله وبركاته mySQL = "Select * From tblNumbers" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst Dim i As Integer For i = 1 To 200 rst.Edit If rst!imgs = "C:\military\img\" & i & ".png" Then rst!imgs = "C:\military\img\" & i + 1 & ".png" End If rst.Update rst.MoveNext Next جرب الكود التالي كتبته بسرعة ولم اجربه وان شاء الله يفي بالغرض تحياتي

تصدير ( تقرير / تقارير ) الى PDF المميزات 1- مرونة فى اختيار مسار تصدير الـ ( تقرير / تقارير ) 2- اختيار تقرير واحد من القائمة أو أكثر لتصديرهم الى مسار محدد 3-اختيار الاجراء بعد التصدير استعراض او عدم ملف الـ PDF 4-الاكواد فى روتين عام يمكن استدعائها من اى مكان 5-امكانية اضافة طباعة التقارير مع او بدل كود التصدير الى PDF وهذه ميزة كتابة الكود فى روتين عام داخل موديول Export Multi Reports.mdb

سلمت يداك حبيبنا الأستاذ عبد الله وبارك الله فيكم جميعًا وعلى رأسنا أستاذنا ابن علية.

وعليكم السلام ورحمة الله بركاته من خلال التجربة كود استاذنا الفاضل بن عليه سريع جدا اما طول الكود فتم اختصاره بكود من المنتدى وكما يقال كل الطرق تؤدي الى روما . فكود السيد بن عليه والكود المختصر يؤديان نفس النتيجة تحياتي كشف حضور وغياب1.xlsm

حسب فهمي للمطلوب فلا تحتاج لكتابة today في خلية وإنما تحتاج لكتابة تاريخ البداية مثلا A1 وتاريخ النهاية B1 ونستعمل هذه المعادلة =IF(AND(TODAY()>A1,TODAY()<B1),"yes","no") مع تغيير yes و no إلى النص المراد في الحالتين بالتوفيق

الكود ينفذ المطلوب حذف الصف كاملا EntireRow.Delete لخلايا العمود c من الصف الأول إلى آخر صف مكتوب فيه Cells(Rows.Count, 3).End(3).Row بشرط أن تكون الخلايا فارغة SpecialCells(4) بالتوفيق

متى وجدت عملية قسمة فمن المحتمل وجود أكثر من رقمين على يمين العلامة العشرية لذلك يفضل استعمال دالة trunc مع أي عملية ضرب أو قسمة في المرتبات وهذه الدالة مهمتها اقتصاص أول رقمين بعد العلامة العشرية بدون تقريب ولا جبر مما يجعل المجاميع متساوية مع ما يظهر في الخلايا وصيغتها العامة =trunc(a1*b1,2) وتطبيقها على المعادلة المطلوبة من حضرتك =IF(BO10="مدرس",trunc(C10*25%,2),"") بالتوفيق

وعليكم السلام -يمكنك استخدام هذه المعادلة لإيجاد عدد العمليات =COUNTIFS(C:C,$K$2,D:D,$J$2,E:E,$I$2,F:F,$I5) ولإيجاد اجمالى المبلغ ... يمكنك استخدام هذه المعادلة =SUMIFS(B:B,C:C,$K$2,D:D,$J$2,E:E,$I$2,F:F,$I5) TQ1.xlsx

اخي الفاضل لو قمت بالبحث بالمنتدى لوجدت حلا لطلبك كما اخبرك استاذنا الفاضل محمد صالح في المرفق التالي كود لطباعة الكل وطباعة اختيارية عن طريق الفورم وهذا الكود للعلامة الاستاذ عبدالله باقشير شهادة مرتب.xls

وبعد ذلك هل تقصد طباعة الكل بطريقة آلية؟؟؟ إذا كان هذا هو المطلوب الثاني فهذه بعض نتائج البحث في منتدانا الرائع Showing results for 'طباعة الكل'. - أوفيسنا (officena.net) بالتوفيق

أسأل الله في هذه الساعات المباركات أن ييسر أمرك لكل خير ويفرج همك وغمك ويبارك في علمك وعملك ومالك وأهلك وولدك،، وأن يجعل ما تقدمه من علم شفيعا لك في الدنيا والآخرة ونسأل الله أن يعم بهذا كل المشرفين الفضلاء وكل من قرأ وأجاد وأفاد...

السلام عليكم ورحمة الله وبركاته وبعد سنين من العمل في كود الأكسس ، لازلت الى الأمس القريب كنت اعاني من عدم حصولي على النتائج المطلوبة من الجدول (بدون مجموعة محاولات) ، اذا كان المعيار هو حقل تاريخ الى ان حصلت على الكود التالي ، والذي اصبح التعامل فيه مع التاريخ سهلا انا احفظ هذه الوحدة النمطية بإسم fDateFormat: Function DateFormat(varDate As Variant) As String 'Purpose: Return a delimited string in the date format used natively by JET SQL. 'Argument: A date/time value. 'Note: Returns just the date format if the argument has no time component, ' or a date/time format if it does. 'Author: Allen Browne. allen@allenbrowne.com, June 2006. ' 'calling the Function: DateFormat(The_Date_Field) 'a = dlookup("[some field]","some table","[id]=" & me.id & " And [Date_Field]=" & DateFormat(The_Date_Field)) ' If IsDate(varDate) Then If DateValue(varDate) = varDate Then DateFormat = Format$(varDate, "\#mm\/dd\/yyyy\#") Else DateFormat = Format$(varDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#") End If End If End Function وطريقة استعمال الكود كالأمثلة التالية: a = dlookup("[some field]","some table","[id]=" & me.id & " And [Date_Field]=" & DateFormat(The_Date_Field)) او ("Select DISTINCT cen, [Date] From TTTT Where [Date]=" & DateFormat(Me.Idate)) او عدة طرق اخرى اليكم مثالين في البرنامج المرفق ، كيف ان الدالة DateFormat تعطيني نتائج صحيحة مباشرة ، بينما استخدام الطريقة التقليدية للتاريخ لا تعطيني النتيجة مباشرة: الجدول يحتوي على تاريخين ، 1-5-2015 و 2-5-2015 ، وهنا سنقوم بالتجربة على التاريخ 1-5-2015 (ويمكنكم استخدام التاريخ التاثي 2-5-2015) ، وللتأكد من نتائجنا ، عملنا استعلامين : و استخدام الكود في Recordset 1. مع استعمال الدالة DateFormate Set rst = CurrentDb.OpenRecordset("Select DISTINCT cen, [Date] From tbl_T Where [Date]=" & DateFormat(Me.idate)) rst.MoveLast: rst.MoveFirst RC1 = rst.RecordCount والنتيجة صحيحة ، كما تدل عليه نتيجة الاستعلام في الاسفل: 2. مع عدم استعمال الدالة DateFromat ، وانما استخدام الطريقة التقليدية للتاريخ: Set rst = CurrentDb.OpenRecordset("Select DISTINCT cen, [Date] From tbl_T Where [Date]=#" & Me.idate & "#") rst.MoveLast: rst.MoveFirst RC2 = rst.RecordCount والنتيجة خطأ ، كما تدل عليه نتيجة الاستعلام في الاسفل: استخدام الدالة Dcount 3. مع استعمال الدالة DateFormat RC3 = DCount("*", "tbl_T", "[Date]=" & DateFormat(Me.idate)) والنتيجة صحيحة ، كما تدل عليه نتيجة الاستعلام في الاسفل: 4. مع عدم استعمال الدالة DateFormat ، ، وانما استخدام الطريقة التقليدية للتاريخ: RC4 = DCount("*", "tbl_T", "[Date]=#" & Me.idate & "#") والنتيجة خطأ ، كما تدل عليه نتيجة الاستعلام في الاسفل: جعفر 84.DateFormat_Examples.mdb.zip

وعليكم السلام جرب الكود التالي عله يفي بالغرض Sub Test() With Range("C2", Range("C" & Rows.Count).End(xlUp)) .NumberFormat = "@" .Value = Evaluate("index(text(" & .Address & ",""0000000000""),)") End With End Sub

بعد اذن الاخوة الافاضل \هذا الكود من سطر واجد Sub salim() Range("c1:c" & Cells(Rows.Count, 3).End(3).Row).SpecialCells(4).EntireRow.Delete End Sub

جرب الكود التالي Sub Delete_Rows_Using_Filter_Method() Dim Rng As Range Application.ScreenUpdating = False On Error Resume Next With ActiveSheet .AutoFilterMode = False .Range("A1:C" & .Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter Field:=3, Criteria1:="" Set Rng = .Range("A2:C" & .Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible) .AutoFilterMode = False Rng.EntireRow.Delete End With Application.ScreenUpdating = True End Sub تقبل تحياتي أخي الكريم عبد السلام بارك الله فيك وجزاك الله كل خير بصراحة أحاول دائماً الابتعاد عن الحلقات التكرارية ، وقد ذكرت من قبل سبب تخوفي من ذلك بفرض أن الملف يتعامل مع مثلاً 10 آلاف صف .. مع هذا الكم الهائل سيكون الكود بطيء جداً جربت الكود الخاص بي وحسبت المدة الزمنية في ملف يحتوي 10 آلاف صف فاستغرق 1.3 ثانية في حين أن استخدام الحلقات التكرارية استغرق حوالي 12 ثانية تقبل تحياتي

السلام عليكم اخى الكريم جرب المعادلة التاليه جيداً .... -- معادلة صفيف CTRL + SHIFT + ENTER ... تم الغاء دمج الخلايا .. =INDEX(VLOOKUP(E23;$E$3:$H$6;{2;3;4};0);MATCH(0;COUNTIF($F$22:F22;VLOOKUP(E23;$E$3:$H$6;{2;3;4};0)&""))) مشكل توزيع_2.zip