كل الانشطه

امممم تقريباً بدأ افهم 😅😅 جرب هذا الاستعلام !!! SELECT TAB_Subject.ID, TAB_Subject.LVL1, IIf(TAB_Subject.LVL1 = 0, Null, (SELECT TOP 1 SName FROM TAB_Subject AS L1 WHERE L1.LVL1 = TAB_Subject.LVL1 AND L1.LVL2 = 0 AND L1.LVL3 = 0 AND L1.LVL4 = 0)) AS LVL1name, TAB_Subject.LVL2, IIf(TAB_Subject.LVL2 = 0, Null, (SELECT TOP 1 SName FROM TAB_Subject AS L2 WHERE L2.LVL1 = TAB_Subject.LVL1 AND L2.LVL2 = TAB_Subject.LVL2 AND L2.LVL3 = 0 AND L2.LVL4 = 0)) AS LVL2name, TAB_Subject.LVL3, IIf(TAB_Subject.LVL3 = 0, Null, (SELECT TOP 1 SName FROM TAB_Subject AS L3 WHERE L3.LVL1 = TAB_Subject.LVL1 AND L3.LVL2 = TAB_Subject.LVL2 AND L3.LVL3 = TAB_Subject.LVL3 AND L3.LVL4 = 0)) AS LVL3name, TAB_Subject.LVL4, IIf(TAB_Subject.LVL4 = 0, Null, (SELECT TOP 1 SName FROM TAB_Subject AS L4 WHERE L4.LVL1 = TAB_Subject.LVL1 AND L4.LVL2 = TAB_Subject.LVL2 AND L4.LVL3 = TAB_Subject.LVL3 AND L4.LVL4 = TAB_Subject.LVL4)) AS LVL4name, TAB.TYPE1, (SELECT LISTname FROM DATA_list WHERE NOM2 = TAB.TYPE1 AND NOM1 = 1) AS TYPE1name, TAB.TYPE2, (SELECT LISTname FROM DATA_list WHERE NOM2 = TAB.TYPE2 AND NOM1 = 2) AS TYPE2name FROM TAB, TAB_Subject_X, TAB_Subject WHERE TAB.MNO = TAB_Subject_X.MNO AND TAB_Subject_X.SUB_ID = TAB_Subject.ID AND TAB_Subject.ID IN (76, 159, 1873) ORDER BY TAB_Subject.ID; استخدمت الدالة IIf في كل حقل من حقول أسماء المستويات ، ونجعل الاسم يظهر فقط إذا كانت القيمة المقابلة > 0 ، وإلا = Null

استاذ قبل مانغلق الموضوع تلقيت صباح اليوم مشكلة عندما طلب مني الزوج شهادة عدم اعادة الزواج بحكم ان زوجته متوفية ولم يتزوج بعدها فظهر التقرير كله خطوط علما ان مربع النص Za6 وتاريخ الوفاة Da6 يخص الزوجة فكيف يتم اذا اخترت الزوجة تظهر اسمها واذا اخترت الزوج يظهر اسمه التعديل يكون في التقرير Face8

كالعادة .. أمور كنت أظنها يسيرة فإذا بها متشعبة ومعقدة حتى في نظر أهل الخبرة 😅 مقصدي الأهم من هذا الطلب معرفة ما إذا كان هذا الإجراء متاحا في الاستعلام، ثم إذا كان ممكنا هل هو (ظاهرة صحية) لا تسبب البطء في التشغيل لأن عندي استعلام يضم عدة جداول مترابطة، أريد أن أجعله مصدرا موحدا لعدة نماذج فإذا كان بالإمكان أن توجد هذه المعلومات في الاستعلام نفسه بحيث تعرض في النماذج من خلال (مربع نص) فهو أفضل، وإلا فأنا اعتدت على إظهار هذه المعلومات في النماذج باستخدام (قائمة تحرير وسرد) واستعلامات داخلية خاصة لكل نموذج. وقد حاولت مجددا في الاستعلام باستخدام جداول مكررة داخل الاستعلام، وتمكنت من الحصول على المطلوب في (LVL1) (LVL2) فقط ، دون المستوى الذي بعده (LVL3). ولا أدري أصلا إن كانت هذه الطريقة صحيحة أم أنها قد تتسبب بمشاكل أو بطء عند استخدام الاستعلام في النماذج الكبيرة والنتائج الي أظهرها الاستعلام الذي تفضلت به أخي الكريم أفضل، فقد أظهر الأسماء في جميع المستويات. لكن فيه نفس المشكلة التي ظهرت في محاولتي الأخيرة، وهي ظهور الاسم في المستويات الفارغة، أعني التي الرقم فيها (صفر) وربما السبب أن المستوى الأول والثاني (LVL1) (LVL2) موجودان في كل حديث، أما ما بعده فليس بالضرورة. فحيثما كان رقم (LVL3) أو (LVL4) هو (صفر) فالاسم = "" QF_Subject2.accdb

عمل ممتاز استاذي فقط المشكلة بترتيب الطلاب ليس كما في جدول TblStudent

السلام عليكم ورحمة الله وبركاته kkhalifa1960 عاشت ايدك استاذ ممنون منك في ميزان حسانتك ان شاء الله

BASE_e.rar BASE_e.rar

من المتطلبات .. ضبط العمليات الاربع بحيث تجري بسلاسة وتخدم المستخدم .. اعمل 4 ازرار او تبويبات : بيع / شرائ / مرتجع بيع / مرتجع شراء الفورم يفتح افتراضيا على البيع .. لأن 90% من العمليات هي بيع حينها يكون حقل نوع العملية ( بيع ) اجباريا ، ويتم تصفية قائمة العملاء فلا يظهر الا الزبائن فقط وحين تنقر على زر شراء : حينها يكون حقل نوع العملية ( شراء ) اجباريا ، ويتم تصفية قائمة العملاء فلا يظهر الا الموردون فقط وينطبق هذا على الزرين الآخرين ايضا من اجل الاحصاءات والاستعلامات مستقبلا ( وهو غير ملزم ) ادراج حقلي العميل ونوع العملية ضمن جدول التفاصيل

بارك جهودكم عمل رائع جعله الله زيادة في ميزان حسناتكم

هل البيانات المنقولة باللغة الانجليزية ام العربية وهل ممكن مرفق كمثال للتطبيق عليه

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل في موضوعي هذا أريد أن أعرض ما يتم اختياره من نموذج في تقرير الشرح: من النموذج أختار السنة ثم الدرجة ثم البلد مثال: اختار السنة: 2025 ثم اختار الدرجة: طبيب ثم اختار البلد: عمان - قطر فيتم عرض ما تم اختياره في التقرير (كما في الصورة رقم 1 المرفقة) أنا أريد عندما اختار من جديد يتم عرض ما تم اختياره مع الابقاء على الاختيار السابق وفي نفس التقرير في السابق تم اختار السنة: 2025 و اختار الدرجة: طبيب و اختار البلد: عمان - قطر أنا اريد انا اختار من جديد: السنة: 2025 ثم اختار الدرجة: مساعد مهندس ثم اختار البلد: مصر فيتم عرض ما تم اختياره في نفس التقرير مع الابقاء على ما تم اختياره سابقا فيكون التقرير النهائي الذي اريده كما هو موضح في الصورة رقم 2: يعني السنة: ثابثة في الأعلى وما يتم اختياره يكون كما هو في الصورة رقم 2 بنفس هذا المبدأ : يعني الاختيار والعرض مع الابقاء على الخيارات السابقة وفي نفس التقرير نتمنى أن أكون قد أوصلت الفكرة وأنه يمكن تجسيده ونتمنى أحد من الإخوة الأفاضل عندما تتيح له الفرصة يساعدنا وجزاكم الله كل خير BASE_e.accdb

😅 الموضوع أكثر من متشعب .. ولكن كمحاولة لست متأكداً من نتائجها ، قمت بالتجربة على قيم محددة في الاستعلام التالي ، جربه فضلاً أخي الكريم @nssj . SELECT TAB_Subject.ID, TAB_Subject.LVL1, (SELECT TOP 1 SName FROM TAB_Subject AS L1 WHERE L1.LVL1 = TAB_Subject.LVL1 AND L1.LVL2 = 0 AND L1.LVL3 = 0 AND L1.LVL4 = 0) AS LVL1name, TAB_Subject.LVL2, (SELECT TOP 1 SName FROM TAB_Subject AS L2 WHERE L2.LVL1 = TAB_Subject.LVL1 AND L2.LVL2 = TAB_Subject.LVL2 AND L2.LVL3 = 0 AND L2.LVL4 = 0) AS LVL2name, TAB_Subject.LVL3, (SELECT TOP 1 SName FROM TAB_Subject AS L3 WHERE L3.LVL1 = TAB_Subject.LVL1 AND L3.LVL2 = TAB_Subject.LVL2 AND L3.LVL3 = TAB_Subject.LVL3 AND L3.LVL4 = 0) AS LVL3name, TAB_Subject.LVL4, (SELECT TOP 1 SName FROM TAB_Subject AS L4 WHERE L4.LVL1 = TAB_Subject.LVL1 AND L4.LVL2 = TAB_Subject.LVL2 AND L4.LVL3 = TAB_Subject.LVL3 AND L4.LVL4 = TAB_Subject.LVL4) AS LVL4name, TAB.TYPE1, (SELECT LISTname FROM DATA_list WHERE NOM2 = TAB.TYPE1 AND NOM1 = 1) AS TYPE1name, TAB.TYPE2, (SELECT LISTname FROM DATA_list WHERE NOM2 = TAB.TYPE2 AND NOM1 = 2) AS TYPE2name FROM TAB, TAB_Subject_X, TAB_Subject WHERE TAB.MNO = TAB_Subject_X.MNO AND TAB_Subject_X.SUB_ID = TAB_Subject.ID AND TAB_Subject.ID IN (76, 159, 1873) ORDER BY TAB_Subject.ID; عله يكون بداية طيبة ..

أستاذنا الكبير بعد التحية والسلام عليكم ورحمة الله وبركاته والله لا كلمات شكر توفيكم حقكم في الحقيقية توزيع الطلاب في جدول الشفوي ممتاز وأكثر من رائع ولكن .. في ملاحظة أنا غفلت عنها أثناء عرضي للمطلوب وهي .. أن جميع الصفوف ستبدأ الشفوي في نفس اليوم 31/5/2025 وبالتالي يكون Day_Shafawe يبدأ لجميع الصفوف برقم 1 وأيضا Magmoaa ستبدأ لجميع الصفوف برقم 1 ومرفق صورة للتوزيع الجديد المطلوب في جدول الشفوي وبالنسبة لجدول اللياقة فبكل تأكيد سيتغير شكله بعد هذا التعديل .. مع التفضل بالعلم بأنه بوضعه المرفق من سعادتك لم يكون مقسما 70 أو 60 آخر استفسار مشكورا .. هل ممكن جعل حقل Day_Shafawe رقميا بدلا من كونه نص وأيضا Magmoaa كل التقدير والشكر لسعادتك .. مع خالص تقديري واحترامي ؛؛؛

في الصورة المرفقة، الجدول الأول للاستعلام، ويظهر كيف أن أسماء المستويات الأربعة (LVL1 - LVL2 - LVL3 - LVL4 ) هي واحدة وأخذها الاستعلام تلقائيا من حقل (SName) والمطلوب أن يحضر اسم كل مستوى في حقول خاصة أعدت لهذا الغرض ( (LVL1name – LVL2name - LVL3name – LVL4name والنتيجة المطلوبة في الجدول الذي تحته. وإحضارها يكون من جدول (TAB_Subject) باعتبار أرقام (LVL1 - LVL2 - LVL3 - LVL4 ) التي في الاستعلام وكمثال في الحديث الأخير: اسم الموضوع الرئيسي (LVL1) هو (المناقب)، والمطلوب إحضاره من جدول (TAB_Subject) بدلالة رقم (1LVL) الذي في الاستعلام وهو (38)، بشرط أن تكون أرقام بقية المستويات هي (صفر)، وهذه صورة جدول (TAB_Subject) وفق هذه المعطيات والمستوى الثاني (LVL2) رقمه (558) مع كون أرقام المستويين التي بعده (صفر)، واسمه: فضائل بقية الصحابة على الترتيب الهجائي والثالث (LVL3) رقمه (1032) والمستوى الذي بعده (صفر) واسمه: أ فهل يمكن إدراج هذه الشروط والاعتبارات في الاستعلام لإظهار الاسم بدل الرقم.

وعليكم السلام ورحمة الله وبركاته .. حاولت فهم الموضوع من معطياتك أخي الكريم ولكني لم أوفق .. ان أمكن توضيح أكثر فنكون من الشاكرين

وعليكم السلام ورحمة الله وبركاته Private Sub Worksheet_Change(ByVal Target As Range) Dim rg As Range, cell As Range Set rg = Intersect(Target, Columns("A")) If rg Is Nothing Then Exit Sub Application.EnableEvents = False On Error GoTo CleanUp For Each cell In rg If Not IsEmpty(cell.Value) Then If Not cell.Value Like "???-###-####" Or _ IsNumeric(Left(cell.Value, 3)) Or _ Not IsNumeric(Mid(cell.Value, 5, 3)) Or _ Not IsNumeric(Mid(cell.Value, 9, 4)) Then MsgBox "الرجاء إدخال القيمة بالتنسيق الصحيح: 3 حروف-3 ارقام-4 ارقام", vbExclamation cell.ClearContents End If End If Next cell CleanUp: Application.EnableEvents = True End Sub aaa-123-4345.xlsb

Select column A for example then from Data tab select Data Validation Select Custom and paste the formula This is the formula you can use =AND(ISNUMBER(VALUE(MID(A1,5,3))), ISNUMBER(VALUE(MID(A1,9,4))), ISERROR(VALUE(LEFT(A1,3))), MID(A1,4,1)="-", MID(A1,8,1)="-", LEN(A1)=12)

100% 👌🏻

نعم .. العروض .. المكان الصحيح للخصم جدول الاصناف وخصم مجمل الفاتورة ليس محله التفاصيل بل جدول المدفوعات .. ونسبة الخصم تثبت في مكان آخر مثل جدول البيانات الأساسي ونحو ذلك ولكن يوجد فائدة اخرى مهمة جدا عند احتساب الخصم في جدول الأصناف .. تظهر هذه الفائدة عند عمليات الارجاع .. حيث ان سعر المبيع ثابت ( مع خصم او بدونه) على اعتبار ان سعر البيع يدرج آليا فالارجاع يتم بسعر المبيع نفسه ( هل هذه النقطة واضحة ومفهومة ؟) انا تحدثت عن هذا فراجع المشاركات السابقة وادراج رقم الفاتورة تلقائيا هو المتبع عادة

الإخوة الكرام .. السلام عليكم ورحمة الله وبركاته في الملف المرفق استعلام (QF_Subject) فيه حقول بياناتها أرقام، أريد استبدالها بالأسماء التي ترمز إليها * أولا: المطلوب أن تظهر الأسماء في الحقول ( (LVL1name – LVL2name - LVL3name – LVL4name ومصدرها واحد وهو حقل (SName) ولكن باعتبار أرقام الحقول: (LVL1 - LVL2 - LVL3 - LVL4 ) فليظهر الاسم المطلوب لـ (LVL1) يجب اعتبار باقي المستويات = 0 وليظهر اسم (LVL2) يجب اعتبار (LVL3) (LVL4) = 0 وفي الجدول (Q_Subject) النتائج المراد الوصول إليها * ثانيا: أن تظهر الأسماء في (TYPE2name - TYPE1name) ومصدر هذه الأسماء من جدول آخر وهو (DATA_list) وبعد عدة محاولات تمكنت من الوصول للمطلوب لكن بتكرار الجدول في الاستعلام ، فهل هذه هي الطريقة الصحيحة ؟ QF_Subject.accdb

السلام عليكم اخواني واعزائي الكرام اريد تقييد عمود كامل في الإكسل بالتقييد التالي 3 حروف ثم علامة - ثم 3 أرقام ثم علامة - ثم 4 ارقام مثال AAA-000-0000

تفضل استاذ @ابو عبد الله العراقي محاولتي حسب مافهمت . اليك الكود بعد التعديل . MergMic_KH_3.rar

إذا الآن يستحق الموضوع اغلاقه بفضل الله تعالى 😉

استاذ @ابوخليل اكيد عندي اسئلة كثيرة بس والله خجلان منك لان الاسئلة كثيرة سؤال : رقم الفاتورة : InvoiceID هل يتم تعبئته يدوي او المفروض بصورة تلقائية لان لدي صيفة بالتنسيق يكون تلقائي ("NO:"000000) اكيد انا افضل ان يكون اخر موضوع هو الدفع بعد اكمال متطلبات العمل الحالي نحن عندنا الخصم يكون على مجمل الفاتورة وليس صنف معين ومع ذلك نستفيد منكم ان شاء الله

وجدت تغيرات طفيفة في التعديل الاخير مكعوسة وتمت معالجة المشكلة توفي الزوج بعد تاريخ طلاق الزوجة Me.k7.Visible = False Me.Da7.Visible = True Me.Za7.Visible = True Else Me.k7.Visible = True Me.Da7.Visible = False Me.Za7.Visible = False والحمد لله اما بخصوص تنسيق التاريخ تم ايجاد حل عموما شكرا لك استاذي الكريم وربي يحفظك ومايحرمنا من تواجدك معنا ومد يد المساعدة لاخوانك الله يجعلها في ميزان حسناتك ان شاء الله

Try #If VBA7 Then 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 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 Function CreateElevatedFile(ByVal sFilePath As String, ByVal sFileContent As String) As Boolean On Error GoTo ErrorHandler Dim fso As Object, sScriptPath As String, psScript As String, EscFilePath As String, EscContent As String sScriptPath = Environ("TEMP") & "\create_elevated_file.ps1" EscFilePath = Replace(Replace(sFilePath, "'", "''"), """", "\""") EscContent = Replace(Replace(sFileContent, "'", "''"), """", "\""") psScript = "$t = [System.Diagnostics.ProcessWindowStyle]::Hidden;$p = Start-Process -WindowStyle $t -FilePath 'powershell.exe' -ArgumentList '-Command ""Set-Content -Path \""" & EscFilePath & "\""` -Value \""" & EscContent & "\""""' -Verb RunAs -PassThru;$p.WaitForExit();Exit $p.ExitCode" Set fso = CreateObject("Scripting.FileSystemObject") With fso.CreateTextFile(sScriptPath, True) .WriteLine psScript .Close End With ShellExecute 0, "runas", "powershell.exe", "-ExecutionPolicy Bypass -WindowStyle Hidden -File """ & sScriptPath & """", vbNullString, 0 CreateElevatedFile = True Exit Function ErrorHandler: CreateElevatedFile = False End Function Sub Create_File_With_Elevated_Permissions() Dim success As Boolean success = CreateElevatedFile("C:\Windows\Test.txt", "This Was Created With Elevated Permissions") If success Then MsgBox "File Created Successfully", vbInformation Else MsgBox "File Not Created", vbExclamation End If End Sub