Foksh

السلام عليكم ورحمة الله وبركاته .. شكراً لك لمشاركتنا بعض الفكار التي نالت إعجابك ، وقد يكون لها من يبحث عنها .. فقد اختصرت عليه الطريق في البحث عنها لي اقتراح بسيط ، وهو ان تقوم بإضافة تعليقك بالعربية عن الفكرة من كل فيديو تقدمه ( بما أن جميع الأفكار التي طرحتها إنجليزية ) ، وتشرح ولو بشكل مفيد مختصر عن الوظيفة أو الفكرة التي يعرضها الفيديو .. وتخيل لو انك قمت بإرفاق الملف تحت كل فيديو 👌 يا سلااااام ، رح تكون ساعدت كثير أشخاص ومنهم اخوك العبد الفقر الى الله جزاك الله كل الخير لما طرحته .

حسناً .. سأقدم لك حلين اثنين ، ولربما سيكون هناك حلول أخرى من الأخوة والساتذة والمعلمين .. الأول :- باستخدام الدالة البسيطة التالية :- Public Function Foksh_TXTK1() As String Dim rs As DAO.Recordset Dim result As String Set rs = CurrentDb.OpenRecordset("SELECT TXTK1 FROM Tablek WHERE TXTK1 Is Not Null", dbOpenSnapshot) Do While Not rs.EOF If rs!TXTK1 <> "" Then result = result & rs!TXTK1 & " , " End If rs.MoveNext Loop If Len(result) > 3 Then result = Left(result, Len(result) - 3) End If Foksh_TXTK1 = result rs.Close Set rs = Nothing End Function مع استخدام استعلام ليكون مصدر سجلات النموذج ، كمثال :- SELECT Tablek.IDK, Tablek.Emp_Code, Tablek.TXTK1, Foksh_TXTK1() AS at_aziz FROM Tablek; لاحظ ان إسم الحقل الأخير (at_aziz) هو من سيعرض القيم ، وسيكون مصدر بيانات مربع النص TXT1 في نموذجك . الثاني :- باستخدام دالةبسيطة مشابهة تقريباً :- Private Sub Foksh(frm As Form) Dim rs As DAO.Recordset Dim combinedText As String Set rs = frm.RecordsetClone rs.MoveFirst Do While Not rs.EOF If Not IsNull(rs!TXTK1) And rs!TXTK1 <> "" Then If combinedText <> "" Then combinedText = combinedText & " , " End If combinedText = combinedText & rs!TXTK1 End If rs.MoveNext Loop Me.TXT1.Value = combinedText rs.Close Set rs = Nothing End Sub ونستدعيها في حدث "في الحالي - Form_Current" ، بالشكل التالي :- Private Sub Form_Current() Foksh Me End Sub مرفق الحلين :- at_aziz.zip

وعليكم السلام ورحمة الله وبركاته ,, هل هذا المقصود من طلبك ؟

وعليكم السلام ورحمة الله وبركاته .. لا اعلم ان كان ما فهمته صحيحاً ، لكن جرب هذا التعديل في المرفق . مع العلم ان القيم افتراضية من عندي ، فجرب كما ترغب في القيم واعطنا النتيجة BASE-E5.zip

وعليكم السلام ورحمة الله وبركاته ,, جرب اكتب اي قيم رقمية وانقر كلمة يساوي test.zip

مشاركة الأستاذ @AbuuAhmed ، جميلة وتؤدي الغرض بكفاءة باستعمال Case بدلاً من الجملة الشرطية If .. ومشاركة معه ضمن نفس الاسلوب باستعمال If If typ = "مهندسين" Then rs!evalu_moubadara_chaksia = 4.5 rs!evalu_itkan_elamel = 4.5 rs!evalu_nachatat_tarbia = 4.5 rs!evalu_absence = 8 rs!evalu_retard = 4 rs!evalu_tatwir = 4.5 ElseIf typ = "أساتذة" Then 'عدل القيم اسفلها حسب رغبتك rs!evalu_moubadara_chaksia = 4.5 rs!evalu_itkan_elamel = 4.5 rs!evalu_nachatat_tarbia = 3 rs!evalu_absence = 8 rs!evalu_retard = 4 rs!evalu_tatwir = 4.5 rs!evalu_absence_prof = 12 rs!evalu_retard_prof = 4 rs!evalu_nadawat_prof = 6 rs!evalu_nachatat_tarbia_prof = 6 rs!evalu_mobadara_prof = 12 Else rs!evalu_absence_prof = 12 rs!evalu_retard_prof = 4 rs!evalu_nadawat_prof = 6 rs!evalu_nachatat_tarbia_prof = 6 rs!evalu_mobadara_prof = 12 End If وسأنصحك باستعمال فكرة الستاذ أبو احمد اذا كانت الجمل الشرطية كثيرة لأنها أسرع في الأداء 😇 * وجهة نظري غير ملزمة طبعاً

معلومة جديدة علي .. وقد تكون معروفة للبعض ، شكراً معلمنا الفاضل hashtags.accdb

وعليكم السلام ورحمة الله وبركاته .. مشاركة مع الأساتذة .. جرب SELECT * FROM جدول1 WHERE InStr([INFO COD], "#") > 0;

من داخل الدالة المرفقة ، تستطيع حتى جعله = زحلون مريخي الزحلون المريخي عملة مريخية هههههههههه ( امازحك 😅 )

وعليكم السلام ورحمة الله وبركاته .. نعم أخي تستطيع ذلك ، في المرفق التالي فكرة مشتقة من أحد المشاريع القديمة ، وتقوم بنفس الطلب الذي تريده . فقط املأ الارقام وانقر زر ارسال واتس اب تم حذف بعض الوظائف الخاصة بالمشروع الأصلي .. WhatsApp Sender WF.accdb

وعليكم السلام ورحمة الله وبركاته .. السؤال المنطقي هو ، في كم دورة تمت حتى وصل السجين 73 الناجي الوحيد !!!

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

وعليكم السلام ورحمة الله وبركاته .. هل هذا هو المطلوب فعلاً ؟؟ فقط هذا الكود في حدث بعد التحديث للشيك بوكس :- Private Sub CHK_AfterUpdate() Dim GradeValue As String If Me.CHK = -1 Then Select Case Me.نص74 Case "أولى" GradeValue = "1" Case "ثانية" GradeValue = "2" Case "ثالثة" GradeValue = "3" Case "رابعة" GradeValue = "4" Case "خامسة" GradeValue = "5" Case "سادسة" GradeValue = "6" Case Else GradeValue = Null End Select Me.نص76 = GradeValue Else Me.نص76 = Null End If End Sub sssssssss.zip

أيضاً كإضافة عن الإستعلام السابق .. جرب هذا الإستعلام أيضاً لإنشاء جدول جديد ، واضافة القيم فيه بعد فصلها .. SELECT maal, IIF(IsNumeric(Left(Trim(maal), 1)) = True, Trim(Left(Trim(maal), InStr(Trim(maal) & " ", " ") - 1)), Trim(Mid(Trim(maal), InStr(Trim(maal), " ") + 1)) ) AS الرقم, IIF(IsNumeric(Left(Trim(maal), 1)) = True, Trim(Mid(Trim(maal), InStr(Trim(maal), " ") + 1)), Trim(Left(Trim(maal), InStr(Trim(maal) & " ", " ") - 1)) ) AS الاسم INTO TAGE_F FROM TAGE WHERE maal Is Not Null;

مشاركة مع معلمي الفاضل .. جرب هذا الاستعلام وشوف النتيجة SELECT maal, Trim(Left(Trim(maal), InStr(Trim(maal) & " ", " ") - 1)) AS الرقم, Trim(Mid(Trim(maal), InStr(Trim(maal), " ") + 1)) AS الاسم FROM TAGE;

وعليكم السلام ورحمة الله وبركاته .. اذهب الى تبويب تصميم التقرير = Report Design انقر على ايقونة مجموعة و فرز ( على ما أعتقد باللغة العربية ) = Group & Sort في الشاشة ستلاحظ فتح شاشة اسفل التقرير ، انقر على اسم الحقل واحذفه من اشارة X

العنوان غير مطابق للمطلوب في الملف نرجو منكم الإلتزام بقوانين وسياسة المنتدى ، بحيث :- يكون العنوان ذات صلة واضحة للمطلوب . الشرح الوافي للمطلوب في المشاركة حتى لو اضطررت لكتابة 1000 سطر ، حتى تحصل على إجابتك بسرعة .

جرب هذا الملف بعد التعديل . حيث تم تعديل الكود ليصبح :- Option Explicit #If VBA7 Then Private Declare PtrSafe Function OpenProcessToken Lib "advapi32.dll" ( _ ByVal ProcessHandle As LongPtr, _ ByVal DesiredAccess As Long, _ ByRef TokenHandle As LongPtr _ ) As Long Private Declare PtrSafe Function GetTokenInformation Lib "advapi32.dll" ( _ ByVal TokenHandle As LongPtr, _ ByVal TokenInformationClass As Long, _ ByRef TokenInformation As Any, _ ByVal TokenInformationLength As Long, _ ByRef ReturnLength As Long _ ) As Long Private Declare PtrSafe Function GetCurrentProcess Lib "kernel32" () As LongPtr Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hwnd As LongPtr, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long _ ) As LongPtr #Else Private Declare Function OpenProcessToken Lib "advapi32.dll" ( _ ByVal ProcessHandle As Long, _ ByVal DesiredAccess As Long, _ ByRef TokenHandle As Long _ ) As Long Private Declare Function GetTokenInformation Lib "advapi32.dll" ( _ ByVal TokenHandle As Long, _ ByVal TokenInformationClass As Long, _ ByRef TokenInformation As Any, _ ByVal TokenInformationLength As Long, _ ByRef ReturnLength As Long _ ) As Long Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long _ ) As Long #End If Public Function IsRunAsAdmin() As Boolean Const TOKEN_QUERY As Long = &H8 Const TokenElevation As Long = 20 Dim hToken As LongPtr Dim elev As Long Dim retLen As Long If OpenProcessToken(GetCurrentProcess(), TOKEN_QUERY, hToken) <> 0 Then If GetTokenInformation(hToken, TokenElevation, elev, LenB(elev), retLen) <> 0 Then IsRunAsAdmin = (elev <> 0) End If End If End Function Public Sub RestartAsAdmin() Dim exePath As String Dim wbPath As String exePath = Application.Path & "\EXCEL.EXE" wbPath = """" & ThisWorkbook.FullName & """" ShellExecute 0, "runas", exePath, wbPath, vbNullString, 1 Application.Quit End Sub Public Sub CreateTextFile() Dim FilePath As String Dim FileNum As Integer If Not IsRunAsAdmin Then MsgBox ". (Administrator) البرنامج بحاجة إلى صلاحيات مسؤول" & vbCrLf & _ "... لطلب صلاحيات المسؤول Excel سيتم اعادة تشغيل", _ vbExclamation + vbMsgBoxRight, "تحتاج صلاحيات" RestartAsAdmin Exit Sub End If FilePath = "C:\Windows\fs.txt" FileNum = FreeFile Open FilePath For Output As #FileNum Print #FileNum, "https://www.officena.net/" Close #FileNum MsgBox "تم إنشاء الملف بنجاح في:" & vbCrLf & FilePath, _ vbInformation + vbMsgBoxRight, "نجاح" End Sub Book1.zip

تم إضافة التحديث الجديد في المشاركة الأولى

وعليكم السلام ورحمة الله وبركاته .. وجهة نظرك جميلة ، ولكننا هنا سنحذف المكررات ؛ فما حاجتك بالمقارنة اذا كان الأصل موجود في نفس الجدول !!!!!

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

هذه النتيجة ؟؟ الرقم الوطني الاسم الجنسيه الجنس نوع الهويه عدد البلاغات رقم البلاغ السنه التهمه الجهه الطالبه الحكم تاريخ الوارد الاجراء المتخذ تاريخ الاجراء ملاحظات تاريخ الحكم 12345678910 محمد علي ي ذكر 4 88 2024 جنائي العاصمه غير محدد 2025-08-11 2352 2025 شيكات الشرق غير محدد 2025-08-11 3252 2022 شيكات الجنوب غير محدد 2025-08-11 32525 2024 انتحال الغرب غير محدد 2025-08-11 25432526222 جاسم عبدالله ا ذكر 2 35 2025 تزوير الشرق غير محدد 2025-08-11 60 2022 مشاجره الجنوب غير محدد 2025-08-11 SELECT IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), [tabe1].[id], Null) AS [الرقم الوطني], IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), [tabe1].[ename], "") AS الاسم, IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), [tabe1].[natio], "") AS الجنسيه, IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), [tabe1].[gins], "") AS الجنس, IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), [tabe1].[nid], "") AS [نوع الهويه], IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), DCount("*","tabe2","id=" & [tabe1].[id] & " AND ([not] Is Null OR [not]='')"), Null) AS [عدد البلاغات], tabe2.blagh AS [رقم البلاغ], tabe2.sanh AS السنه, tabe2.thmh AS التهمه, tabe2.wanted AS [الجهه الطالبه], tabe2.hkm AS الحكم, tabe2.edate1 AS [تاريخ الوارد], tabe2.[not] AS [الاجراء المتخذ], tabe2.edateegra AS [تاريخ الاجراء], tabe2.mlaha AS ملاحظات, tabe2.edathkm AS [تاريخ الحكم] FROM tabe1 INNER JOIN tabe2 ON tabe1.id = tabe2.id WHERE (tabe2.[not] Is Null Or tabe2.[not]='') ORDER BY tabe1.id, tabe2.blagh;

ولكم منه النصيب الأكبر 😇

وعليكم السلام ورحمة الله وبركاته .. جرب هذا الاستعلام إن كان ما فهمته صحيحاً .. SELECT [1].[n], [1].[عميل], [1].[شراء], [1].[ثمن], (Len([شراء])-Len(Replace([شراء],"-",""))) AS [عدد العلامات] FROM 1; بهذا الشكل ستكون النتيجة :- n عميل شراء ثمن عدد العلامات 1 احمد - سجاد - مفرش - نجف 550 3 2 سيد - طقم معلق - طقم شتي - صنية - طقم حلل 1000 4 3 منال - طقم مدهب - بطانية 450 2