Moosak

غيرت لك دالة جلب المسارات جرب الآن 🙂 الموظفين.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

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

نعم أخي قاسم يمكننا قراءة الجملة هكذا : أضف إلى Insert Into الجدول التالي ... Tbl_DBContent تحديداً الحقلين التاليين .. (Type, sName) والقيم المراد إضافتها بالتتالي values القيم هي : objectName , rs!Name حيث أن objectName هو اسم متغير أخزن فيه نوع العنصر و rs!Name هو اسم العنصر حسب مصدر السجلات --------------------------------------------------------------- و التنسيق الصحيح الذي نضع عليه المتغيرات في الكود هكذا : ;values ( ' " & objectName & " ',' " & rs!Name & " ' ) وضعنا علامة التنصيص المفردة حوالي المتغيرات ( ' ) لأنهما من نوع نص .. ولو كانا من نوع تاريخ نستبدلهما بــ ( # ) .. أما لو كانا من نوع رقم فنحذفهما ولا يوضع شي مكانهما .. تم وضع المتغير بين علامتي التنصيص (" ") والرمز & لأن المتغير (من اسمه فإن قيمته تتغير غير ثابته ) لذلك نخرجه من الجملة ذات القيمة الثابتة بهذه الطريقة: " & objectName & " هذا درس على السريع .. بالتوفيق 🙂

أهلا بك أخي قاسم 🙂 قمت بعمل تعديلات بسيطة على النموذج المرفق وخرجت بهذه النتيجة : التعديلات التي تمت كالتالي : 1 - أضفت جدول من حقلين : ( نوع العنصر ، واسم العنصر ) 2 - أضفت جملة ال SQL التالية إلى الكود : CurrentDb.Execute "Insert Into Tbl_DBContent(Type, sName) values ('" & objectName & "','" & rs!Name & "');" وظيفتها أن تضيف كل عنصر تأتي به إلى الجدول وتكتب نوعه 🙂 3 - أحضرت الجدول إلى النموذج الرئيسي على شكل نموذج فرعي لعرض البيانات . 4 - زر ( به أمر ماكرو ) لتصدير بيانات الجدول إلى الصغية التي تريدها .. هذا والسلام 🙂 DBObjectsإحضار جميع عناصر قاعدة أخرى.rar