Moosak

وعليكم السلام ورحمة الله وبركاته أخي أبو عبدالله 🙂 الرابط التالي ليس شرح لكيفية كتابة الدالة ، وإنما هي أداة تقوم بكتابتها نيابة عنك بمختلف أشكالها ووضعياتها .. ويمكنك من خلال الاطلاع على النتيجة تعلم الصياغة السليمة للدالة .. 🙂 💡⭐✨ --- الكاتب الآلي الذكي لدوال المجال Dloockup وأخواتها 😊 --- ✨⭐💡 تحياتي 🙂

عذرا أخي مدحت .. أكتشفت أن التعديلات لم تتطبق على المرفق .. إرجع الآن للمشاركة السابقة قمت بتعديل المرفق والصورة من جديد .. 🙂

غيرت لك دالة جلب المسارات جرب الآن 🙂 الموظفين.rar

هنيئا لنا بك .. وهنيئا لك بها 🙂 أخي @AbuuAhmed أتمنى لك التوفيق والسداد والرشاد والأجر العظيم . 🌷🌹😊

تم إضافة الكود أخي مدحت ، واشتغل معي تمام 🙂 على فكرة لم أجده سابقا بل كان هناك كود آخر .. وللعلم هذا السطر يعمل مشكلة عند التشغيل فأوقفته : New Microsoft Access Database.rar

ممكن ترفق البرنامج (المثال) أخي مدحت ؟

ما هو الكود المستخدم لفتح الصور ؟

تفضل أخي مدحت 🙂

تكتب هكذا أخي أبو أحمد : 🙂 Format([MyTimeTxtbox], "hh:nn") حرف الـ m محجوز للشهر حتى هذه يمكن كتابتها هكذا : Hour([MyTimeTxtbox]) & ":" & Minute([MyTimeTxtbox])

هذه صياغة دالتي الساعة والدقيقة : Hour([MyTimeTxtbox]) Minute([MyTimeTxtbox]) حيث أن [MyTimeTxtbox] هو اسم مربع النص لديك 🙂

ما شاء الله تبارك الله .. 🙂 زادك الله من واسع علمه مهندسنا @مبرمج متقاعد

شكرا لك مهندسنا العزيز @مبرمج متقاعد 🙂 بالنسبة لتنفيذ هذا الأمر .. هل يوضع على ملف Bat ؟ أم يمكن تنفيذه بالـ VBA ؟

ممكن عن طريق التنسيق الشرطي .. 🙂

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

أخي محمد عبدالله .. لتطبيق الدوال التي تفضل بها أخي محمد البرناوي .. أكتب هكذا : Dim i As Integer, k As Integer k = Me.NumberTxt ' تخزن القيمة الموجودة في مربع النص في المتغير For i = 1 To k << تضع هنا الأمر المراد تكراره >> Next i 🙂

نعم ممكن أخي العزيز .. بس بحتاج وقت لأني ما أشتغل على الكمبيوتر يوم الجمعة 🙂 ولعل الاخوة يقومون بالواجب 👍🏼

أهلا بك أخي العزيز 🙂 جرب هذا .. إفتح النموذج Frm_Customer نموذج واحد (Moosak).rar

منك العذر أستاذنا محمد @Barna تطفلت عليكم 😅 ما ركزت في ردك ، عملت الطريقة بسرعة قبل لا تطير الفكرة من راسي 😁 وهذي فكرة أخرى جميلة ، من مفكر عبقري 😉👌

موضوع ثري ما شاء الله تبارك الرحمن 🙂 الله يوفقك عمي جعفر ويطول ويبارك في عمرك 🌹

مرحبا أخي @عبدالعزيز محمد 🙂 أنشأت لك هذه الدالة ، تأخذ الرقم القومي فتقوم بطرح سنة الميلاد من السنة الحالية للحصول على عمر الطالب بالسنوات .. بعدها يتم توزيع الطلاب على مراحلهم بناءا على العمر ، وطبعا سوف تتغير المرحلة تلقائيا في الأعوام القادمة لأن الدالة تحسب العمر تلقائيا 🙂 Public Function AutoStage(IDNum As String) As String Dim bYear As Integer bYear = CInt(Mid(IDNum, 2, 4)) 'تستخلص سنة الميلاد من الرقم القومي bYear = Year(Date) - bYear ' تطرح سنة الميلاد من هذا العام لمعرفة العمر الحالي 'Debug.Print bYear 'توزيع المرحلة على حسب العمر الحالي للطالب Select Case bYear Case Is = 3: AutoStage = "حضانه" Case Is = 4: AutoStage = "روضه" Case Is = 5: AutoStage = "تمهيدي" Case Is = 6: AutoStage = "الأول" Case Is = 7: AutoStage = "الثاني" Case Is = 8: AutoStage = "الثالث" Case Is = 9: AutoStage = "الرابع" Case Is = 10: AutoStage = "الخامس" Case Is = 11: AutoStage = "السادس" Case Is = 12: AutoStage = "السابع" Case Is = 13: AutoStage = "الثامن" Case Is = 14: AutoStage = "التاسع" Case Is = 15: AutoStage = "أول ثانوي" Case Is = 16: AutoStage = "ثاني ثانوي" Case Is = 17: AutoStage = "ثالث ثانوي" Case Else: AutoStage = "" End Select End Function ثم وضعتها في مربع نص (محسوب) مصدره الدالة التي تغذيها بالرقم القومي فتحسب لك تلقائيا المرحلة .. ملاحظة : ( تحتاج أن تضع في الحسبان حالات الرسوب وإعادة السنة الدراسية ) 🙂 Aziz(Moosak).zip

الأخ عبدالعزيز .. 🙂 أضف في الجدول عدة سجلات كأمثلة يمكن التطبيق عليها .. بحيث يكون فيها أمثلة من السجل الوطني .. لأنه يتغير من دولة لأخرى ..

وعليكم السلام أخي athal1 🙂 عدل سطر الفلتر إلى هذا : Me.Form.Filter = " [ItemName] LIKE '*" & filter_data & "*' And [InvoiceDate] BETWEEN #" & Me.Text1 & "# AND #" & Me.Text2 & "#" هنا :

أهلا بك أخي ماهر في المنتدى 🙂 لجعل القائمة المنسدلة تتفلتر ( يتم تصفيتها ) على مجموعة محددة من البيانات ، عليك أن تكتب الفلتر الذي تريده في المعيار أسفل الحقل من خلال الاستعلام .. فمثلا لو كنت تريد الاقتصار على الأسماء التي تحوي الاسم "ماهر" سواء في بدايته أم الوسط أم آخره .. تكتب في المعيار هذه الجملة : like "*ماهر*" حيث تعني النجمة (*) أنه لا يهم ما قبلها أو ما بعدها .. المهم أن يكون "ماهر" موجودا .. أما إذا كنت ستحدد الاسم بنفسك في كل مرة من خلال مربع نص في النموذج .. فبدل كلمة "ماهر" سوف تشير إلى مربع النص ذلك الموجود في النموذج هكذا : Like "*" & Forms!FormName!TextBoxName.Text & "*" ( طبعا الفراغات الكبيرة وضعتها لفهم الفكرة فقط ، ستضع فراغ واحد فقط مكانها ) وسيتبقى فقط أنك ستضع (أمر) لتحديث القائمة المنسدلة بعد أن تكتب الاسم الذي تريده في مربع النص .. وهذا الأمر سيكون عند حدث ( بعد التحديث ) أو ( عند التغيير ) لمربع النص هكذا : Me.ComboBoxName.requery

أنا حبذت أن يتم إضافتها كملف مضغوط لتقليل حجمها وتكون جميعها في رابط واحد بدل عدة روابط 🙂 .. ولكن يمكنك تعديل ذلك في النسخة الخاصة بك فالبرنامج مفتوح المصدر ☺️🌹