Moosak

وعليكم السلام ورحمة الله وبركاته .. تفضل أخي العزيز 🙂 Sub CopyFile() 'Requires reference: :لابد من التأكد من وجود المكتبة الاتية 'Add this reference >>---> Microsoft Scripting Runtime Dim fs Set fs = CreateObject("Scripting.FileSystemObject") Dim sPathDeskTop As String Dim oWSH As Object Set oWSH = CreateObject("WScript.Shell") sPathDeskTop = oWSH.SpecialFolders("Desktop") & "\b\" ' هنا اسم المجلد الذي سيتم انشاؤه في سطح المكتب Dim CopyFrom As String, CopyTo As String CopyFrom = Me.a ' هذا اسم الحقل الذي به رابط الملف المراد نسخه CopyTo = sPathDeskTop & Dir(CopyFrom) If Len(Dir(sPathDeskTop, vbDirectory)) = 0 Then MkDir (sPathDeskTop) If Len(Dir(CopyTo, vbDirectory)) = 0 Then fs.CopyFile CopyFrom, CopyTo, True Else MsgBox "هذا الملف موجود مسبقا على سطح المكتب", vbOKOnly Exit Sub End If Set fs = Nothing Set oWSH = Nothing End Sub فقط انتبه للملاحظات المكتوبة في الكود ..

موضوع دسم ما شاء الله تبارك الرحمن 🙂

وعليكم السلام أخي حامل المسك 🙂 جرب .. أكتب في المعيار : Like IIf(Len([Forms]![a123]![a1] & '')=0;"*";[Forms]![a123]![a1]) وراجع ( طرق التعامل مع الامر Like في الاستعلام ) مع مهندسنا العود @jjafferr 🙂

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

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