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

السلام عليكم ورحمة الله وللحساب أكثر دقة (ليست دقة مطلقة) وبطريقة منطقية عما سبق نتبع الطريقة التالية : استعمال الدالة DATEDIF بين تاريخ اليوم (تاريخ البداية) وتاريخ آخر ترقية مضاف إلية 04 سنوات (تاريخ النهاية). قمت بتطبيق ذلك في الملف المرفق... حساب مدة اخر ترقية (1).xlsx

لا اعلم حقيقة ماذا تريد ان تعرض في النموذج الفرعي والسبب ان المرفق يحتوي على جدول واحد ، وفي الوقت نفسه بيانات هذا الجدول تظهر في النموذج الرئيسي على كل حال عملت لك نموذج فرعي يظهر داخل النموذج الرئيسي .. فعند النقر مرة واحدة على العقدة تظهر بيانات العقدة فيه وعند النقر المزدوج على العقدة يفتح النموذج بشكل منبثق آمل ان يكون هو المطلوب .. انظر ووافني بالنتيجة account tree2.rar

برنامج أرشفة 1- الملفات والمرفقات والمجلدات 2- البرامج المساعدة ومرفقاتها أرجو ابداء رأيكم به ArchiveMyFiles-Folders.rar

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

أخي حمدي يمكنك استخدام هذه الدالة للتحقق من وجود إنترنت من عدمه 🙂 Private Declare PtrSafe Function InternetGetConnectedState Lib "wininet.dll" ( _ ByRef lpdwFlags As Long, _ ByVal dwReserved As Long _ ) As Boolean ' Returns True if there is an active Internet connection, False otherwise Function IsInternetConnected() As Boolean Dim flags As Long IsInternetConnected = InternetGetConnectedState(flags, 0) End Function Sub test() If IsInternetConnected() Then MsgBox "There is an active Internet connection." Else MsgBox "There is no active Internet connection." End If End Sub الدالة IsInternetConnected() ترجع لك True إذا الانترنت موجود و False إذا الشبكة مقطوعة

رائع أخي أحمد يعمل بكفائة ما شاء الله .. 🙂 فقط لاحظت أنه ما ينقص قيمة المقدم من مجموع المبلغ .. بل يبني مباشرة على قيمة المبلغ كاملا .. وربما أكون مخطئ .. جربها أنته 🙂

اخبرني ماهي الفقرات التي لم يتعرف عليها ؟ اما اذا فالحمدلله 🙂

شوف نتائج الاستعلام 3 ، ان شاء الله تكون مرادك ، وإلا ، فمحتاج معلومات ومثال من بياناتك لوسمحت 🙂 جعفر 1540.1.A.accdb.zip

ممكن ده يظبط معاك برضوا Rename Files.xlsm

عليكم السلام هذا حل لمطلوبك الأول fmmm2.rar

جرب هذا Sub Oval1_Click() Dim xDir As String Dim xFile As String Dim xRow As Long With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .Title = "Please select the files" .Filters.Clear .Filters.Add "All supported files", "*.*" If .Show = -1 Then xDir = .SelectedItems(1) xFile = Dir(xDir & Application.PathSeparator & "*.docx") Do Until xFile = "" xRow = 0 On Error Resume Next xRow = Application.Match(xFile, Range("A:A"), 0) If xRow > 0 Then Name xDir & Application.PathSeparator & xFile As _ xDir & Application.PathSeparator & Cells(xRow, "B").Value End If xFile = Dir Loop End If End With End Sub

عليكم السلام استبدل السطر هذا .From = " <" & myemail & ">" بهذا السطر .From = """" & Me.myname & """ <" & myemail & ">"

@ابوبسملهالف شكر لحضرتك كده كويس خالص ممكن كنت علي عجاله من أمري وما حاولت مع الكود فحلك يعمل عندي كويس جدا وسوف احاول فيه ان لم استطيع لا يهم ما وصلت له في البرنامج كنت لا احلم به. واحب ان اشكرك جزيل لولاك ما أنجزت هذا العمل ربي يحفظك ويسعدك ويوفقك. وسامحني على الإزعاج

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

احسنت اخى احمد واتفضل جرب تعديلى ع مرفق اخى موسى بالتوفيق برنامج الأقساط - موسى_1.rar

أهلا بك أخي @nssj 🙂 هذه محاولتي فيما يخص النقطة الثانية ، بالاستعانة بالذكاء الاصطناعي 😁 وهذه هي الدالة العامة التي تفحص وجود أكثر من فقرة تبدأ بأرقام : Public Function CheckParagraphs(text As String) As Boolean Dim paragraphs() As String paragraphs = Split(text, vbCrLf) ' تقسيم النص إلى فقرات منفصلة Dim paragraph As Variant Dim x As Integer x = 0 For Each paragraph In paragraphs ' التنقل عبر كل فقرة If IsNumeric(Left(paragraph, 1)) Then ' فحص إذا كان الحرف الأول في الفقرة هو رقم x = x + 1 If x >= 2 Then CheckParagraphs = True ' لو كان الحرف الأول في الفقرة هو رقم، يتم إرجاع القيمة True Exit Function ' يتم الخروج من الدالة End If End If Next CheckParagraphs = False ' لو لم يتم العثور على فقرة تبدأ برقم، يتم إرجاع القيمة False End Function ثم يتم تحديث البيانات في الجدول عن طريق : ' Moosak : Dim dbs As DAO.Database Dim rst As DAO.Recordset Set dbs = CurrentDb Set rst = dbs.OpenRecordset("book") rst.MoveLast rst.MoveFirst Do Until rst.EOF rst.Edit rst!check_No = CheckParagraphs(rst!Nass) rst.Update rst.MoveNext Loop Me.Requery rst.Close Set dbs = Nothing Set rst = Nothing check_Book2.rar

انا طلبت منك ترفق لنا بعض من هذه النماذج الفرعية يعني تريدني انا اعمل هذه النماذج .. حاضر استاذ عبداللطيف

ايضا لم افهم عبارة : جميع النماذج في صفحة واحدة ( في نفس المكان ) اتمنى زيادة الايضاح

السلام عليكم ورحمة الله حل بكود بسيط مع نطاقات بالتسمية... xxzz (3).xlsm

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

وهذا كود لإنهاء مهمة أكسس، من جلبي وتصرفي: Sub Kill_msAccess() Dim oServ As Object Dim cProc As Variant Dim oProc As Object Set oServ = GetObject("winmgmts:") Set cProc = oServ.ExecQuery("Select * from Win32_Process") For Each oProc In cProc 'Rename MSACCESS.EXE in the line below with the process that you need to Terminate. 'NOTE: It is 'case sensitive If oProc.Name = "MSACCESS.EXE" Then MsgBox "KILL" 'used to display a message for testing pur oProc.Terminate 'kill exe End If Next End Sub

السلام عليكم اقتراح في الملف المرفق... حساب مدة اخر ترقية.xlsx

السلام عليكم محاولة في المرفق ويبقى تطبيق الفكرة نفسها على الموضوع البعيد خالص عن الأقساط... 2.xlsx

إليك المثال حساب مدة اخر ترقية_02.xlsx

وعليكم السلام اخي الكريم جرب التعديل ووافنا بالنتيجة تحياتي Database3.accdb

بسم الله الرحمن الرحيم اليوم اقدم لكم لعبة شيقة جدا من برمجتي بلغة برمجة المواقع أما هي فمعروفة كفكرة رياضية من زماان وأدعوكم للتفكير قليلا ومعرفة سر هذه اللعبة اللعبة عبارة عن ملف htm يتم فتحه بمستعرض الانترنت. باسوورد فك الضغط عن الملف mr-mas.com والآن مع اللعبة. وهذا رابط لمعاينة اللعبة قبل تحميلها. الرابط موجود في صفحتي في أوفيسنا. guess number.zip

بالنسبة للتنسيق الشرطي للقيم الأصغر من 10 =AND(A1<>"";A1<10)

السلام عليكم.. افتح ال Query2 ..سيقوم بتجميع الفحوصات للشخص بنفس التاريخ طبعا الحقوق محفوظة لصاحب الكود رغم انه منشور في صفحة عامة ..لكن للامانة تركت اسم المصدر A.rar