كل الانشطه

تقدم شركة سندك للاستشارات الأكاديمية والترجمة دعماً شاملاً للباحثين في مختلف مراحل إعداد الدراسات، بدءاً من إعداد خطة البحث وصولاً إلى تطبيقها بدقة، وتتيح خدمة المساعدة في خطة بحث فهمًا واضحًا لكيفية صياغة أسئلة البحث الكمي: المفهوم والأنواع مع أمثلة عملية بما يعزز من فعالية البحث، كما تسلط هذه الخدمات الضوء على أسئلة البحث الكمي بطريقة منهجية، مع الاعتماد على الدراسات الكمية لتوضيح النتائج وتحليل البيانات بدقة عالية. https://www.sanadkk.com/blog/post/1375/%D8%A3%D8%B3%D8%A6%D9%84%D8%A9-%D8%A7%D9%84%D8%A8%D8%AD%D8%AB-%D8%A7%D9%84%D9%83%D9%85%D9%8A.html

تعمل شركة سندك للاستشارات الأكاديمية والترجمة على تزويد الباحثين بالخبرة اللازمة لعملية إعداد خطة البحث بشكل متكامل ومنهجي؛ كما توفر خدمة المساعدة في خطة بحث لضمان وضوح جميع عناصر الدراسة، بما في ذلك تعريف مشكلة البحث: شروط وأدوات لضمان صياغة فعالة التي تعتبر محور البحث العلمي، يساعد هذا التوجيه الباحثين على فهم تعريف مشكلة البحث بدقة، مع التركيز على أهداف مشكلة البحث لضمان صياغة واضحة ومحددة تسهل عملية التحليل واستخلاص النتائج العلمية. https://www.sanadkk.com/blog/post/1376/%D8%AA%D8%B9%D8%B1%D9%8A%D9%81-%D9%85%D8%B4%D9%83%D9%84%D8%A9-%D8%A7%D9%84%D8%A8%D8%AD%D8%AB.html

تسعى شركة سندك للاستشارات الأكاديمية والترجمة لتقديم الدعم الكامل للباحثين، بدءاً من إعداد خطة البحث وصولاً إلى متابعة كافة مراحل الدراسة؛ ومن خلال خدمة المساعدة في خطة بحث، يمكن للباحثين التعرف على فرضيات البحث واختبارها وكيفية تجنب الإشكاليات الشائعة بطريقة واضحة وعملية، تقدم الشركة أيضاً أدوات عملية لفهم فرضيات البحث واختبارها بشكل دقيق، مع التركيز على صياغة فرضيات البحث التي تعزز من مصداقية النتائج وتضمن جودة التحليل العلمي. https://www.sanadkk.com/blog/post/1377/%D9%81%D8%B1%D8%B6%D9%8A%D8%A7%D8%AA-%D8%A7%D9%84%D8%A8%D8%AD%D8%AB-%D9%88%D8%A7%D8%AE%D8%AA%D8%A8%D8%A7%D8%B1%D9%87%D8%A7.html

تقدم شركة سندك للاستشارات الأكاديمية والترجمة باقة متكاملة من الخدمات للباحثين، حيث يمكن الاعتماد على إعداد خطة البحث بطريقة احترافية تلبي جميع المعايير الأكاديمية؛ من خلال خدمة المساعدة في خطة بحث، يضمن الباحث الحصول على توجيه شامل يسهل عليه فهم خطوات البحث بشكل دقيق، كما توفر الشركة أمثلة عملية مثل خطة بحث الدراسة المقارنة وأمثلة تطبيقية من البحوث العلمية، ما يساعد الباحثين على استلهام الأفكار وتطبيقها بفعالية، وتشمل هذه الخدمات أيضاً خطة بحث دراسة مقارنة مصممة لتوضيح الفروق والمنهجيات المستخدمة، مع التركيز على الدراسات المقارنة التي تعزز من جودة البحث وتعمق التحليل العلمي. https://www.sanadkk.com/blog/post/1378/%D8%AE%D8%B7%D8%A9-%D8%A8%D8%AD%D8%AB-%D8%AF%D8%B1%D8%A7%D8%B3%D8%A9-%D9%85%D9%82%D8%A7%D8%B1%D9%86%D8%A9.html

أحسنت بارك الله فيك وزادك الله من فضله

السلام عليكم ورحمة الله وبركاته هذه دعوة كريمة لتجربة الأداة الجديدة والفريدة من نوعها : دكتور ال VBA وضائف الأداة : 1- تحويل الكود إلى صيغة متوافقة مع النواتين 32 و 64 بت. 2- تصحيح الأخطاء البرمجية في الكود. 3- تنسيق وترتيب الكود شكليا. 4- كتابة التعليقات وشرح للكود باللغتين العربية والإنجليزية. 5- إضافة صائد الأخطاء للكود وذلك لتعقب الأخطاء البرمجية. 6- إضافة ترقيم لأسطر الكود. يمكنك اختيار واحد من هذه الوظائف أو تختار من بينها ما تريده. الأداة مخصصة لأكواد ال VBA وتعتمد على قدرات الذكاء الاصطناعي لإعطاء نتائج دقيقة ومبهرة .. 😁✌🏻 اختصر على نفسك الوقت والجهد واعمل بذكاء 😉👌🏻 رابط الأداة : https://vba-code-doctor-471932697586.us-west1.run.app/ يمكنك فتحها في الهاتف أو الحاسوب على راحتك 😎🌷 جربوها وعطوني رأيكم 😇✌🏻

وعليكم السلام ورحمة الله وبركاته الى جانب الحلول التي ارفقها استاذنا الفاضل hegazee اليك حل اخر بالكود في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) Dim rngF As Range, rngG As Range Dim rngB As Range, rngC As Range Dim pos As Variant Set rngF = Me.Range("F2") ' Set rngG = Me.Range("G2") Set rngB = Me.Range("B2:B1000") Set rngC = Me.Range("C2:C1000") If Not Intersect(Target, rngF) Is Nothing Then Application.EnableEvents = False pos = Application.Match(rngF.Value, rngB, 0) If Not IsError(pos) Then rngG.Value = Application.Index(rngC, pos) Else rngG.Value = "" End If Application.EnableEvents = True End If rngG.Select End Sub data.xlsb

قبل التوسع والتحديـــث 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