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

السلام عليكم 🙂 . 1. نعم ، بعمل مجموعة استعلامات تحديث ، استعلام لكل جدول (وقد نحتاج الى اكثر من استعلام للجدول) ، ولكن يعملون بحدث رز واحد ، 2. نعم ، ولكن هذا يعتمد على المعيار والتصفية ، ويمكنك تجربة هذا على حقل معين في الجدول ، قم بتغيير بيانات بعض الحقول الفارغة الى - ، وشوف النتيجة. نعم كلامك صحيح. سبق وان ناقشنا هذا الموضوع ، وبعمق ، فرجاء لا تأتي بأسماء اعضاء وتحرجهم ، والنتيجة ببساطة انك لن تجد لهم جواب في اسئلتك القادمة (وقد تم حذف اسم العضو من موضوعك اعلاه). مشكلتك الاساسية هي عدم ظهور كافة البيانات في الاستعلام (الاستعلام وبدون اي معايير) ، وذلك لأن العلاقة التي عملتها بين الجدولين لا تطلب جميع السجلات وبغض النظر من وجودها في الجدول الآخر او لا ، وقد قام الاخ كاسر @kaser906 مشكورا بتوضيح وتعديل الاستعلام في 3 ابريل ، اي قبل 8 ايام تقريبا ، وذلك في الموضوع والطريقة التي قام بها: بما ان ربطك للجدولين ظاهرا هكذا (علاقة الربط غير حقيقة الربط) ، ولكن حقيقة ، الربط بحقل "اسم الشهرة" و"المؤلف" ، لأنك مستخدم Lookup لحقل "المؤلف" ، فالحقول (في المربع الاحمر) التي لا توجد اسماء لها في الجدول الآخر ، لن تظهر في الاستعلام . وبالنقر المزدوج على خط العلاقة بين الجدولين ، تظهر لنا هذه النافذه ، والتي نختار منها جميع السجلات في الجدول Marj3 ، بغض النظر اذا كانت موجودة في الجدول الآخر او لا . والنتيجة تكون هكذا (لاحظ السهم تحت الرقم 1) . وعلى اساسه نرى جميع البيانات في الاستعلام . الى هنا وينتهي الذي قام به الاخ كاسر ، ولما نرى النتيجة في النموذج ، وبعد إضافة معيار البحث في الاستعلام ، ثم نبحث عن: "د" . ففي واقع الامر ، لم تكن عندك مشكلة في NULL ، وانما في عرض البيانات بطريقة صحيحة 🙂 جعفر 1029.نموذج بحث.accdb.zip

Option Explicit Sub Dive_Last_Row() If ActiveSheet.Name = "الايراد" Then Exit Sub Sheets("الايراد").Range("a3").End(4).Offset(1).Resize(, 3).Value = _ ActiveSheet.Range("a4").End(4).Resize(, 3).Value MsgBox "تم الترحيل", vbDefaultButton1, "رسالة تنبيه " End Sub

شورت كت لقاعد البيانات من داخل القاعده الى سطح المكتب Creat Shortcut.mdb

وعليكم السلام، تفضل سويت لك مشروع صغير. Dim Shell Set Shell = CreateObject("WScript.Shell") DesktopPath = Shell.SpecialFolders("Desktop") Set link = Shell.CreateShortcut(DesktopPath & "\" & CurrentProject.Name & ".lnk") link.Description = "shortcut" link.TargetPath = CurrentDb.Name link.WindowStyle = 3 link.Save يأخذ الاسم للقاعدة الحالية ثم يعمل لها اختصار الى سطح المكتب بنفس الاسم والايقونة حسنين shortcut_SEMO_Pa3x.accdb

تحويل اللغة تلقائيآ من العربية الى الانكليزية أو العكس بعد الخروج من مربع النص راجيآ القبول و الدعاء لي في ظهر الغيب .. تغيير اللغة تلقائيآ.accdb

حتّى لا يضيع الــ Commend Button أو اذا قمت بتحديد نطاق من الخلايا (او حتى خلية واحدة) بعيداً عنه فأنه يتبعك اينما ذهبت بواسطة هذا الكود Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim col%: col = Target.Columns.Count Dim lastcel As Range: Set lastcel = Target.Rows(1).Cells(col) Application.EnableEvents = False With Me.Shapes.Range(Array("SALIM_BTN")) .Left = lastcel.Left + lastcel.Columns.Width + 5 .Top = lastcel.Top .Width = 130 .Height = 28 End With Application.EnableEvents = True End Sub جرب هذا الملف Floting_Btn.xlsm

مافهمت قصدك في السؤال: فالبيانات عندك تظهر بالكامل ، ولا حاجة الى عمل اي شيء !! ولكن ، اذا اردت معرفة طريقة عمل تحديث الحقل الفارغ بعلامة - ، فاليك هذه الصورة كمثال: . جعفر

السلام عليكم ورحمة الله تم عمل المطلوب بالمعادلات (معادلات بسيطة ومعادلات صفيف)... بن علية حاجي ترحيل الحراس.xlsm

السلام عليكم 🙂 اخي سامي: وضع اكثر من سؤال في الموضوع يُعتبر مخالف لقوانين المنتدى ، والاسئلة اعلاه خارجة عن الموضوع 🙂 جعفر

اعرض الملف Create Shortcut Advanced السلام عليكم ورحمة الله وبركاته اليكم التحكم الكامل فى انشاء إختصار برمجيا إما للقاعدة الحالية أو لقاعدة بيانات أخرى مع القليل من المزايا المتقدمة والتى أتمنى أن تنال إعجابكم للأهمية وجب التنويه إلى أنه تم إستخدام الأكواد الخاصة بالاستاذ @SEMO.Pa3x فى هذا المرفق والذى تفضل بها مشكورا بالمشاركة معنا فى الموضوع السابق له منا كل الشكر والتقدير صاحب الملف ابا جودى تمت الاضافه 11 أبر, 2019 الاقسام قسم الأكسيس

شكرا لك

السلام عليكم ورحمة الله الكود التالى سيجعل تغيير المسمى الوطيفى يتغير فى نفس الخلية حال انطبقت الشروط حتى لا يتم التغيير مرتين اذا تم الضعط على زر الماكرو مرة اخرى و بدون قصد انسخ الكود التالى و الصقه فى محرر الاكواد و خصص له زر Sub Update_Jopes() Dim sh As Worksheet Dim x As Date, y As Date, z As Date Dim p As Integer, i As Integer, Lr As Long Set sh = Sheets("السجل") Lr = sh.Range("B" & Rows.Count).End(xlUp).Row i = 2 Do While i <= Lr If IsDate(Range("D" & i)) Then x = Range("D" & i).Value y = Date p = Year(y) - Year(x) If p >= 4 Then z = DateAdd("yyyy", 4, x) sh.Cells(i, 3) = WorksheetFunction.VLookup(Cells(i, 3), _ Sheets("تغيير الدرجة").Range("A2:B27"), 2, 0) sh.Cells(i, 4) = z Else sh.Cells(i, 3) = sh.Cells(i, 3) sh.Cells(i, 4) = sh.Cells(i, 4) End If End If i = i + 1 Loop End Sub

passAgain: XOREncryption(KEY_ENDE(),"النص او الرقم الذي تريد تشفيره") من المعروف ان كل خوارزمية تشفير مثلا XOR , AES, RSA ... ألخ تحتاج الى شيئين ( مفتاح ) وهو للتشفير وفك التشفير و يحتاج النص او الرقم الذي تريد تشفيره،، حيث ان KEY_ENDE() يمثل مفتاح التشفير والفك. الذي قمت انا بتعريفه كـ فنكشن في الكلاس والذي يحمل القيمة PA$X Function KEY_ENDE() KEY_ENDE = "PA$X" End Function حسنين

تفضل ::بالتوفيق:: نموذج لرقم غير -kaser906-1موجود.rar

انا مش فاهم بالضبط ايه المطلوب بس دى محاولة نموذج لرقم غير موجود.rar

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

جاوبتك على النقاط التي طرحتها ولم اكلف نفسي الاجابة على شيْ لم تستفسر عنه وتطرحه ::بالتوفيق::

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

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

أخي أحمد هناك دالة في الاكسل لهذا الغرض ولا لزوم لل Vlookup (Rept(text,number_times تكفي هذا المعادلة =REPT("*",A2)

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

يا جماعة تنصحونا بالبحث والتجربة وبعد البحث وعند محاولة التجربة والاستفسار عما لا نفهمه فيها ونتوقف عنده لا نجد إجابة نريد المساعدة رجاء