Eng.Qassim

هل مصدر البيانات استعلام؟

هذه محاولة ..ربما تستفيد منها مربع النص يبحث عن الاحرف الاولى او الاولى والثانية البيانات.rar

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

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

بصراحة انا لم انتبه لاجابتك استاذنا العزيز @Foksh الا بعدما اكملت الملف وارفقته بالمشاركة كل الاعتذار منك استاذنا ..ولو اني اعرف بأنك جاوبت لما اكملت الملف

فكرتك رائعة استاذ @kkhalifa1960 لكن السائل يريد اخفاء الاسطر المعلم عليها

ضع تحت حقل Lastمنالاشهر: الاشهر في الاستعلام... عبارة Descending

مجرد فكرة استاذنا @ابوخليل نعمل جدول مؤقت لحفظ السجلات المخفية..ثم نستدعيها وقتما نشاء

شكرا لك استاذ @كريمو2 فقد حركت دماغي اليوم بعد فترة من الخمول 😂

اسف...لقد أخطأت لم انتبه لعام 2024 20250101.rar ههههههههههههه هي الاكسس معظمه حيل فلم انتبه لعام 2024

السلام عليكم جرب هذه المحاولة 20250101.rar

وعليكم السلام الكود من حيث الظاهر لايعطي خطأ ياليت مثال بسيط فيه بعض البيانات ..وهل النموذج مستمد من استعلام ...لان بصراحة دخت في Employeeid

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

وعليكم السلام اعمل هكذا Private Sub cbo1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) on error resume next Me.cbo1.Dropdown End Sub

السلام عليكم كيف عملت علاقة بينهم والجدول الثاني ليس له علاقة بالجداول الاخرى على العموم وحسب فهمي تحتاج لحقول غير منظمة وتعمل الحاق بالجدول الثاني

السلام عليكم و رحمة الله وبركاته... مع اعتذاري لعدم قراءة جميع التعليقات ( بسبب الصحة) ..شافانا الله واياكم بعض المواقع الاجنبية تستخدم عبارة ( solved) ..واظن انها عبارة فيها نوع من اللياقة ...لان بعض الاجابات قد تكون افضل وكلفت صاحبها وقتا لكن هذا يعني ان صاحب الطلب قد وجد ضالته في اجابة معينة ..اما بقية الاجابات قد يستفاد منها البعض والله المستعان..

الحمد لله

مشاركة مع استاذي @ابوخليل Public Function RoundNmber(Rou As Double) As Double If Rou - Int(Rou) < 0.5 Then RoundNmber = Int(Rou) + 0.5 Else RoundNmber = Int(Rou) + 1 End If End Function

عمل جميل استاذنا @kkhalifa1960 رغم اني الجأ الى الايقونات من النت ...لكن فكرتك جميلة وسريعة

فعلا خطوط جميلة عاشت الايادي استاذ @Moosak

عن اذن اخي استاذ @ناقل جربه مع اول نموذج يغتح عند فتح القاعدة وفي حدث عند التحميل تضع InstallFonts

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

الموضوع ليس بالامر الصعب في اكسس لكنه يحتاج الى وقت خاصة انك لم تحاول جهدا عمل قاعدة البيانات 1-تحتاج اولا لعمل جداول عديدة ...مثلا جدول (حالة الفاتورة).. جدول (نوع الفاتورة).. جدول (المشترى) يتظمن اسم المشتري والرقم.. جدول (مخزن الصرف) يتظن اسم المخزن و رقمه..جدول (المنتجات) يتظمن رقم المنتج واسم المنتج..وهكذا 2- جدول رئيسي يتظمن جميع الحقول المذكورة في شيت رقم 2 لتعمل منها نموذج single form وتعمل كومبوبوكس للحالات التي ذكرتها في اعلاه لاختيار البيانات منها ..ماعدا مثلا كميه الفاتورة و كمية الطلب و هكذا هذه يمكن عملها بواسطة الاستعلامات المهم اعمل الجداول اولا وستجد الكثير من الاخوة ممن يقدمون الدعم والمساعدة ملاحظة : حاول ان تكون مسميات الجداول والحقول باللغة الانجليزية تحياتي...

وعليكم السلام 1-ربما هناك مشكلة تواجه Office 2016 مع اصدارات ال Windows الحديثة... حاول الترقية الى Office 365 2- جرب الكود التالي في حدث عند التغيير للكومبوبوكس ولاحظ هل يحدث تغيير عند الفلترة؟ Private Sub ComboBox_Change() Me.ComboBox.Dropdown End Sub

السلام عليكم.. بعد اذن اساتذتي الكرام @Barna ... والاخ العزيز الاستاذ محمد عصام @ابو جودي الذي تمنيت ان اراه في مصر الحبيبة لاني كنت هناك قبل عدة ايام على كل حال... اخي العزيز @كريمو2... الخطأ يظهر لان حقل تاريخ المنحة فارغ او Null ضع الكود التالي للتحقق من فراغ حقل التاريخ: ' التحقق من منحة الحج f = DCount("year(Menha_Date)", "Mena7", "EmployeeID=" & Me.EmployeeID) If f >= 1 And Me.Menha_ID = "11" Then If IsDate(Me.Menha_Date) Then MsgBox "هذا المنخرط (ة) استفاد بمنحة الحج لسنة : " & Year(Me.Menha_Date), vbExclamation, "تنبيه" Else MsgBox "يرجى وضع التاريخ في حقل تاريخ المنحة.", vbCritical, "خطأ" End If Me.Undo Exit Sub End If تحياتي للجميع