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

جرب هذا الاستعلام SELECT Table3.Ide, Format([Time],"hh:nn AM/PM") AS Times FROM Table3 WHERE (((Format([Time],"hh:nn AM/PM"))>=Format(DateAdd("h",-4,Now()),"hh:nn AM/PM"))); Example20.rar

Option Explicit Public Sub ColourChange() Dim Clé As Range For Each Clé In ActiveWorkbook.ActiveSheet.Range("C5:N400") Application.ScreenUpdating = False If Not IsError(Clé) Then With Clé .Interior.ColorIndex = xlColorIndexNone Select Case .Value2 Case "اخضر" .Interior.Color = RGB(0, 204, 0): .Font.Color = RGB(0, 204, 0) Case "ازرق" .Interior.Color = RGB(0, 0, 255): .Font.Color = RGB(0, 0, 255) Case "اصفر" .Interior.Color = RGB(255, 255, 0): .Font.Color = RGB(255, 255, 0) Case "احمر" .Interior.Color = RGB(255, 0, 0): .Font.Color = RGB(255, 0, 0) End Select End With End If Next Application.ScreenUpdating = True End Sub تلوين.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

تفضل <><><><><><><><> ملفك بعد التعديل باستخدام نفس الاستعلام لديك .... Exam.accdb

كفوك الطيب اخوي موسى انا طرحتها هنا كاملة في المشاركة 14 .. ملف تكست _كامل الكود _ يمكنك الاطلاع عليه وعندي نسخة فيجوال بيسك6 منقولة هي التي اعمل عليها الملف التنفيذي

في انتظار استحضار فكرتك استاذ عمر في راي نستغني عن مصدر البيانات اكواد vba ونعمل استعلام تجميع يكون اسهل ولكن كيف تتم تجميع المعلومات بالاستعلام من عدة جداول ؟

IsError تستخدم لفحص ما إذا كانت قيمة محددة تُعتبر خطأ أم لا. تُرجع هذه الدالة قيمة منطقية (True أو False) بناءً على وجود خطأ في القيمة المُقدمة لها. وبشكل عام يكون تنسيق الدالة كما يلي : If IsError(القيمة) Then ' التعامل مع حالة الخطأ Else ' التعامل مع القيمة بشكل طبيعي End If على سبيل المثال ، يمكن استخدامها للتحقق مما اذا كانت القيمة التي ستعود كجواب ( وظيفة أو عملية ) هي خطأ أم لا . كمثال على سبي الفرض :- Dim result As Variant result = SomeFunction() ' افتراضيًا، SomeFunction تعيد قيمة ما If IsError(result) Then MsgBox "حدث خطأ!" Else MsgBox "القيمة الصحيحة هي: " & result End If

السلام عليكم ورحمة الله وبركاته أثني على عمل الأخ الكريم إيهاب خيراً ، لأنه عمل واجتهد على الرغم من عدم وضوح المطلوب وزيادة في الخير إليكم حلاً آخر كرافد لحل الأخ إيهاب مع بعض التعديل على الملف. عمل حساب سحبية.xls

هذا الملف به عمود للرصيد تحسبا أنه يمكن الإضافة في الدائن عمل حساب سحبية.xls

بما ان مصدر البيانات هي اكواد vba وليس استعلام ف اقترح ان الحل الذى اراه مناسب لك ان تجعل السطر يختفى برمجيا كمثال If tt5 = 0 Then tt5.Visible = False تسمية400.Visible = False تسمية397.Visible = False تسمية399.Visible = False تسمية398.Visible = False 'Or tt5.Height = 0 تسمية400.Height = 0 تسمية397.Height = 0 تسمية399.Height = 0 تسمية398.Height = 0 End If طبعا هتعملها سطر سطر ^_^ فالله يعينك

دالة لوضعها فى معادلة احتمال وجود خطأ فيها مثل عمليات القسمة او الضرب التى قد ينتج عنها خطأ لهذا توضع بهذا الشكل IsError(هنا_المعادلة_بتعتك)

كفو عليك عمي أبو خليل .. 😊🌼🌹 أيش رايك تعلمنا كيف نصيدها .. بدل ما ناكلها جاهزة 😁😅🖐🏻🌼

ابشر .. من عنيا .. غالي والطلب رخيص تفضل RunApp.rar

الحمد لله .. هذا من فضل الله وتيسيره

اشكركم وبارك الله فيكم على الاستجابه مع تمياتى لكل فريق الاداره والساده الاعضاء بدوام التوفيق

تفضل وأعتقد انه لا علاقة للنواة في مجال التنفيذ لانه يتعامل مع التسجيل جرب على النواتين وأفدني بالنتيجة twasol.rar

تفضل أستاذ @عمر طاهر محاولتي المرفق ومعه فيديو الشرح . ووافني بالرد ز https://www.mediafire.com/file/oizndmja9lshvul/rep-1.rar/file

او Sub Filtre2() Dim wb As Workbook, ws As Worksheet, Dest As Worksheet Set wb = ThisWorkbook: Set ws = wb.Sheets("البيانات"): Set Dest = wb.Sheets("كشف حساب") Dim I&, Col&, ligne&, rng As Range Col = 1 ligne = ws.Cells(Rows.Count, Col).End(xlUp).Row Application.ScreenUpdating = False Dest.Range("A4:H100").ClearContents For I = 4 To ligne If ws.Cells(I, Col) = ws.[G1] And ws.Cells(I, Col + 2) >= Dest.[D2] And ws.Cells(I, Col + 2) <= Dest.[F2] Then Set rng = ws.Range(ws.Cells(I, 1), ws.Cells(I, 8)) Dest.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 8).Value = rng.Value End If Next I Application.ScreenUpdating = True End Sub

اذا تستخدم التحزيم ضم الملف التنفيذي الأول الى برنامج التنفيذ واعطه امر تشغيل قبل او بعد اكتمال التنفيذ .. لا فرق غالبا انا اعطيه امر التشغيل بعد اكتمال التنصيب .. وسيكون الملف التنفيذي ضمن مجلد البرنامج ، وعمله فقط يشتغل اول مرة فقط لذا يمكنك توجيه تنصيبة الى مجلد تيمب وندوز هذه هي الاسطر المسؤولة عن التخفيض ، وفتح قاعدة البيانات انظر اختلاف اصدارة اكسس تختلف في كل سطر استتلت لك صفحة الفيجوال كاملة وحولتها الى ملف تكست تجدها في المرفق Dim strVS As String On Error Resume Next strVM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\12.0\Access\Security", "VBAWarnings", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\14.0\Access\Security", "VBAWarnings", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\16.0\Access\Security", "VBAWarnings", 1) ShellExecute Me.hwnd, "open", App.Path & "\Seq.accdb", "", "", 1 code.rar

بعد وضع هذا الكود فى موديول Option Explicit Function cleanup(s As String) Dim i As Long Dim c, t As String For i = 1 To Len(s) c = Mid(s, i, 1) Select Case Asc(c) Case 1 To 239 t = t & c End Select Next i cleanup = t End Function عليك بكتابة هذه المعادلة فى الخلية المراد حذف التشكيل منها فعلى سبيل المثال ,اذا كان النص المراد حذف التشكيل منه موجود فى الخلية A2 فعليك كتابة المعادلة مثلا فى الخلية B2 وهى =CLEANup(A2) بارك الله فيك