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

وعليكم السلام 🙂 تفضل : Private Sub yars_AfterUpdate() '1 Dim ys as Date ys = DateAdd("yyyy", Me.WARRNTY, Me.BDATE) + DateAdd("yyyy", 0, Me.BDATE) - BDATE Me.EDATE = DateAdd("D", -1, ys) 'Or '2 Dim ys As Date ys = Me.BDATE - 1 Me.EDATE = DateAdd("yyyy", Me.WARRNTY, ys) + DateAdd("yyyy", 0, ys) - ys End Sub جعفر

جرب هذا الكود ... Like "*" & [Forms]![SearchF]![k].[Text] & "*"

جرب هذا الكود !!! Private Sub txtEmpNumber_AfterUpdate() Me.txtFullNameAR = DLookup("[FullNameAR]", "qryPersons", "[txtEmployeeNumber]=" & Me.txtEmpNumber & "") Me.txtFullNameEN = DLookup("[FullNameEN]", "qryPersons", "[txtEmployeeNumber]=" & Me.txtEmpNumber & "") Me.txtintUser!D = DLookup("[txtAutoIntPersonID]", "qryPersons", "[txtEmployeeNumber]=" & Me.txtEmpNumber & "") End Sub

بإذن الله يكون هذا هو المطلوب تفضل test1.xlsm

إن شاء الله تقوم هذه المعادلة بالغرض =IF(A1<C1,IF(FLOOR.MATH(A1,10)=FLOOR.MATH(C1,10),C1,""),"")

ممكن صورة للخطأ الذي يظهر تكرما ....

لدي اوفيس 19 البرنامج يعمل بصيغة mde ولا مشكلة انظر .....

اذا كان نوع الحقل txtEmpNumber نص ، فيجب كتابة الكود هكذا: ='" & me.txtEmpNumber & "'") وبدل ان تطلب البيانات من الجدول/الاستعلام 3 مرات عن طريق الامر Dlookup ، يمكنك جلبهم مرة واحدة ، هكذا: جعفر

حاول الكتابة بهذه الصورة .... " & me.textbox & "

وفي انتظار الاستاذ هاني ان يعطينا ملف بدون كلمة سر في الكود 🙂 جعفر

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

الله يكرمك و يوسع عليك تم عمل الكود وهو يعمل بالترتيب التالي فرز و تيب البيانات حسب العمود L التاريخ و الوقت تثبيت قيم التاريخ و اليوم بحيث تصبح بدون دوال اضافة الدوال للصفوف التي ليس بها دوال Dim ER, RN1 As Range ActiveWindow.ScrollRow = 6 Range("A5:O6000").Sort Key1:=Range("L5"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal For Each RN1 In Range("L5:M6000") If RN1.HasFormula And RN1 <> "" Then _ RN1 = RN1.Value Next Range("L3:M3").Copy ER = Application.CountA(Range("A:A")) + 9 For FR = 5 To ER If Cells(FR, 12) = "" Then _ Cells(FR, 12).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Next 'FR Application.CutCopyMode = False مع التحية Export--TAAM1.xls

جرب المعادلة =IF(AND(M2>=N1)*(M2<=O1);VLOOKUP(B2;المارينا!B$2:N$642;12);"لم تنتهي بعد") june (1).xlsx

Public Sub CapText(ID As Integer, cmds As CommandButton) Dim CaptionText As String CaptionText = DLookup("[txtMessageText]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID) 'set caption name cmds.Caption = CaptionText End Sub الإستدعاء: Call CapText(1, "Hello")

تفضل اخي الكريم Test_It.rar تحياتي

معك حق اخي الكريم وربما اختلط معي الامر بسبب النظارة الجديدة فعذراً على التجليل الخاطىء الحقيقة جربت اكثر من طريقة لكن حقل T1 هو السبب الرئيسي لهذه المشكلة وربما لو جعلت النموذج مفرد ( عرض سجل واحد فقط ) سيعطي نتيجة اسرع بكثير تحياتي

بارك الله فيكم جميعاً وفى جهودكم ... ويمكنك أيضاً مشاهدة هذا الفيديو لمعرفة كيفية اضافة هذه الدالة داخل الإكسيل

https://wayprograms.blogspot.com/2021/03/connect-to-zkt-access-vba.html ربط جهاز البصمة بقواعد بيانات اكسس

جرب ورد تكرار -عدد - قيمة1.xlsm

عليكم السلام، اخوية شوف هذا الشرح

May be? الصيغة الاصلية للكشف البنكي.xlsm

السلام عليكم ورحمة الله وبركاته بعد إذن الأستاذ الفاضل / عطا الله جزاه الله خيراً على هذا الإيضاح ولكن عندما تحسب نسب معينة من عدد يكون الجزء العشري غير متساوي في جميع الحالات بمعنى ممكن يكون الجزء العشري رقمين فقط او ثلاثة أو خمسةأو غير منتهي لذلك استخدم دالةTRUNC لتقطع الجزء العشري وتكتفي فقط برقمين منه وإليك ملف للإيضاح. AA10.rar