كل الانشطه

السادة الأساتذة الكرام/ السلام عليكم ورحمة الله وبركاته مرفق مستند اريد أن أعرف كيف أفصل الأعداد الفردية عن الزوجية وكذلك كيفية عمل قائمة منسدلة تتغير بتغير الأولى مثل القائمة الأولى تحمل رقم 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 لتسهيل عملية الكتابة.

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

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

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

نقدم لك في شركة إتقان نموذجًا متكاملًا لـ خطة بحث لرسالة دكتوراه يساعدك على بناء هيكل علمي قوي؛ من خلال توجيهنا ستتمكن من فهم ما هي عناصر نموذج خطة بحث رسالة دكتوراه؟ وكيفية تطبيق خطوات كتابة خطة البحث لرسالة الدكتوراه بفعالية، كما نوفر لك كيفية كتابة خطة بحث رسالة دكتوراه PDF لتكون مرجعًا علميًا دقيقًا في إعداد خطتك البحثية.

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

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

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