كل الانشطه

قبل التوسع والتحديـــث 1- اضافة تحريك صندوق لحركة مؤشر الماوس كمجسم اعتقد يفضله استاذ @Foksh 😇 استخدام دالة استاذ @Moosak 😇 2- عرض الرسائل لعدة انماط الى 14 نمط اساسي - كأطار نافذه متنوع - عرض الرسائل اسفل الشاشة - تصميم الرسائل بور بوينت لجعل التغير بدل من الرموز حالة الرسائل الى قالب كامل بصوره - نمط الرسالة الاخير استعمال عجلة الماوس للاختيار 3- بعض التصحيحات في التحديث مثال الغاء او دالة بديلة لسطر الكود في الاسفل يقوم بتعليق محرر الكود Running... واستبدال Text_Box الى Caption ... \\\\\\\\\\\\\\\\\\\\\\\\\\-=-------( استاذ @Moosak جرب المرفق من غير وميض ولا ترميش 😇) Private Sub Form_Timer() CloseForm End Sub لاستكمال التحديث وزيادة الانماط مع تصاميم بور بوينت يتيح لك المزيد من الابداعات الجديده كل فتره المرفق اسفل الفيديو ومشاهدة ممتعة تحميل المرفق https://www.mediafire.com/file/gfg8p4x30364omf/MS_Access_Msgbox_V100.rar/file

و عليكم السلام ورحمة الله و بركاته https://www.officena.net/ib/topic/64613-أبغي-قائمة-منسدلة-مرتبطة-بقائمة-منسدلة-أخري-فى-نفس-ورقة-العمل/

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

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

حاولت مرارا وتكرار رفع فيديو لكن المساحة المسموح برفعها لا تسمح خلاصة التجارب 1- البرنامج لا يسمح لموظف الفترة الصباحية أن يكون انصرافه بعد توقيع موظف الفترة المسائية (وبهذا فهو لا يسمح بتداخل الأوقات وهو أمر وارد في أى مكان عمل) 2- الموظف المسائي غير مسموح له بالإنصراف أصلا ، لا في صباح اليوم التالى ولا بعد حضوره بساعة واحدة حتى (كان في السابق مسموح له بالإنصراف في حدود نفس اليوم فقط)

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

كما في الجدول لديك الحضور الساعة 5:47 يوم السبت 29/11 اذا عدد ساعات العمل 8 ساعات فإن الخروج متاح حتى الساعة 2 صباحا يوم الاحد 30/11 وليس 29/11 لذا يجب الانتباه لتاريخ ووقت الكمبيوتر

السادة الأساتذة الكرام/ السلام عليكم ورحمة الله وبركاته مرفق مستند اريد أن أعرف كيف أفصل الأعداد الفردية عن الزوجية وكذلك كيفية عمل قائمة منسدلة تتغير بتغير الأولى مثل القائمة الأولى تحمل رقم 1 تتغير الثانية إلى رقم 2 والأولى 3 تكون الثانية 4 وهكذا. ولسيادتكم جزيل الشكر والعرفانdata.xlsx

وكمعلومة إضافية في مثال الاخ @محمد التميمي يمكنك الحصول على رقم أي قرص غير الـ C بإستبدال الحرف C بالحرف المطلوب SerialNumber = CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber تحياتي

بارك الله فيك استاذنا بن علية حاجي وجعله في ميزان حسناتك

السلام عليكم : من رخصة استاذنا المحترم Foksh وهذه مشاركة بسيطة تتضمن اربع ارقام يمكنك اختيار احدها 222.accdb

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

تم المطلوب في الملف المرفق... حافز.xlsx

وعليكم السلام ورحمة الله وبركاته .. لدي دالة تجلب جميع أرقام الهارد ديسك ( القرص الصلب ) حتى لو كان لديك أكثر من هارد موصول على نفس الكمبيوتر .. Public Function GetAllHardDiskSerials() As String On Error GoTo ErrorHandler Dim objWMIService As Object Dim colDisks As Object Dim objDisk As Object Dim result As String Dim i As Integer Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colDisks = objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive") i = 1 For Each objDisk In colDisks If Not IsNull(objDisk.SerialNumber) Then Dim serial As String serial = Trim(objDisk.SerialNumber) If serial <> "" Then result = result & "Disk " & i & ": " & serial & vbCrLf i = i + 1 End If End If Next If result = "" Then GetAllHardDiskSerials = "No serial numbers found" Else GetAllHardDiskSerials = result End If CleanUp: Set objDisk = Nothing Set colDisks = Nothing Set objWMIService = Nothing Exit Function ErrorHandler: GetAllHardDiskSerials = "Error" Resume CleanUp End Function أو هذه الدالة البسيطة أيضاً التي تجلب رقم الهارد الذي تم تثبيت نظام التشغيل ويندوز عليه :- Public Function GetHardDiskSerial2() As String On Error GoTo ErrorHandler Dim objWMIService As Object Dim colDisks As Object Dim objDisk As Object Dim strSerial As String Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colDisks = objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive") For Each objDisk In colDisks If Not IsNull(objDisk.SerialNumber) Then strSerial = Trim(objDisk.SerialNumber) If strSerial <> "" Then GetHardDiskSerial2 = strSerial Exit For End If End If Next If GetHardDiskSerial2 = "" Then GetHardDiskSerial2 = "Not Found" End If CleanUp: Set objDisk = Nothing Set colDisks = Nothing Set objWMIService = Nothing Exit Function ErrorHandler: Resume CleanUp End Function والإستدعاء فقط في أي مربع نص = اسم الدالة فقط ، كما في الملف المرفق للتوضيح . HD Serial.zip

مشاركة مع تنفيذ فكرة أستاذنا @kkhalifa1960 ، وبدلاً من الإعتماد على نموذج فرعي للقائمة الفرعية ، هذا تعديل على الفكرة التي تم طرحها سابقاً ، بحيث تم تطبيقها وكأنها Navigation Form .. الملف المرفق :- Menu Navigations.zip

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

عمل تنسيق شرطي بشرطين كما بالملف المرفق ............ وشكرا مقدما لمن يساعدني حافز.xlsx

وعليكم السلام ورحمة الله وبركاته .. بما أنك تريد الفلترة على فلترة أخرى أو بدونها . خطر ببالي فكرة كالآتي ، لمنع التكرار في الحدثين لمربعي النص ، قمت بدمج الفكرة في دالة استعلام بسيط ، واستخدام الدالة Like ليكون البحث والفلترة حتى لو بجزء مطابق من النص :- Private Sub ApplyFilter() Dim filterCondition As String filterCondition = "" If Nz(Me.Combo7, "") <> "" Then filterCondition = "[namee] Like '*" & Me.Combo7 & "*'" End If If Nz(Me.Text9, "") <> "" Then If filterCondition <> "" Then filterCondition = filterCondition & " AND " filterCondition = filterCondition & "[town] Like '*" & Me.Text9 & "*'" End If Me.Filter = filterCondition Me.FilterOn = (filterCondition <> "") Me.Requery End Sub وبالتالي ، للحدثين بعد التحديث لمربعي النص ، استدعيها نفسها بهذا الشكل :- Private Sub Combo7_AfterUpdate() ApplyFilter End Sub Private Sub Text9_AfterUpdate() ApplyFilter End Sub وكإضافة ، قمت بإنشاء زر لإلغاء الفلترة وعرض السجلات كاملة . من خلال الزر :- Private Sub Command20_Click() Me.Combo7 = Null Me.Text9 = Null Me.FilterOn = False Me.Requery End Sub ملفك بعد التطبيق :- Database6.zip

السلام عليكم في النموذج المرفق اريد عمل فلتر علي الاسم والبلد قمت باستخدام دالة filter on لكنها لاتعمل بشكل صحيح مرفق فيديو توضيحي Documents.rar

بعد التجربة السريعة لم ألحظ تغييرا إلا أن موظف الفترة المسائية أصبح غير مسموح له بالإنصراف كل توقيع تظهر التوقيع خارج الفترة حتى ولو بعد انصرافه بساعة ملحوظة : أحد الأجهز التى لم يكن يعمل عليها البرنامج باعتماد وقت الإنترنت قمنا بتنصيب ويندوز 7 64بت وعمل عليها البرنامج بشكل جيد

اخي الكريم محمد حسن جرب الآن ووافني بنتيجة التجربة ChkInOut_NetUp5.rar

الف شكر لحضرتك استاذنا الغالي، وشكرا علي دعمك وسعة صدرك وشكرا لدعمكم.

في شركة إتقان، نساعدك على التميز في كتابة الملخص والمستخلص الملخص يُركز على النتائج الرئيسية للبحث، بينما المستخلص يقدم نظرة شاملة عن المشكلة والمنهجية والنتائج، نقدم لك إرشادات حول العناصر الأساسية للملخص مثل الأهداف والنتائج، والعناصر الأساسية للمستخلص مثل الفرضيات والمنهجية، كما نساعدك في خطوات كتابة خطة بحث بشكل علمي، ونتجنب معك الأخطاء الشائعة مثل الإطالة أو الغموض، بالإضافة إلى ذلك نوفر لك الفرق بين الملخص والمستخلص PDF لتوضيح الفروق بشكل دقيق، مع خطة بحث جاهزة لتنظيم بحثك بكل احترافية.

في شركة إتقان، نساعدك في إعداد خطة بحث من البداية إلى كتابة التوصيات والمقترحات في البحث العلمي بطريقة احترافية، نحن نُرشدك حول الشروط الواجب اتباعها عند كتابة التوصيات وأنواع التوصيات والمقترحات في خطة البحث العلمي، مما يساعدك على تعزيز نتائج البحث، بالإضافة إلى ذلك، نقدم لك الفرق بين التوصيات والمقترحات PDF ليكون مرجعًا لك في كيفية كتابة التوصيات بشكل علمي وعملي.

في شركة إتقان، نعلم أن خطة بحث تحتاج مجهود ويعد الملخص أول ما يقرأه القارئ في أي بحث علمي، نقدم لك طريقة كتابة الملخص بأسلوب علمي دقيق، مع التركيز على أهمية ملخص البحث في تلخيص أهم النقاط الرئيسية، كما نرشدك في تحديد خصائص ملخص البحث العلمي بشكل متوازن، نقدم لك أيضًا نصائح لإعداد خطة بحث علمي مثالية، إلى جانب نموذج ملخص بحث جاهز PDF لتسهيل عملية الكتابة.