سامي الحداد

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

الشكر لله عزيزي ولهذا المنتدى الذي نتعلم منه. بالتوفيق

وعليكم السلام جرب الان و وافينا بالنتيجة بالتوفيق Database1 .accdb

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

أسف تاخرت بالرد لانشغالي مشاركة مع الاساتذة والحبايب بالتوفيق kids.accdb

وعليكم السلام تفضل اخي الكريم بالتوفيق برنامج حضانة.accdb

تفضل اخي الكريم هل هذا هو المطلوب kids.accdb

Sub GetPhysicalSerial() Dim obj As Object Dim WMI As Object Set WMI = GetObject("WinMgmts:") For Each obj In WMI.InstancesOf("Win32_PhysicalMedia") Debug.Print "SN: " & obj.SerialNumber Next End Sub تفضل اخي هذا الكود لمعرفة رقم الهارد الثابت ولن يتغير ابدا. @ Echo off wmic diskdrive get serialnumber pause MyHdd.rar

مشاركة مع الحبايب يا ليت تعطوني رايكم تحياتي MyFolder.accdb

تفضل اخي الكريم =IIf([Number]>=50 And [Number]<=70,Count([Number])) بالتوفيق

أحسنت وبارك الله فيك ان شاءالله يكون هذا ما طلبه الاخ احمد. لك كل التحية والاحترام .

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

وعليكم السلام تفضل اخي الكريم بالتوفيق Create Folder On Desktop.accdb

حياك الله اخي الكريم مهند بالتوفيق ان شاءالله تحياتي

السلام عليكم تفضل اخي الكريم شوف هذا الملف عملتة خصيصا حسب ما فهمته من طلبك إن شاءالله يفي بالمطلوب. بالتوفبق Search By Month.rar

وعليكم السلام شوف هذا الموضوع يمكن يفيدك. بالتوفيق https://www.cdata.com/kb/articles/odbc-access-linked-tables.rst

السلام عليكم أساتذي أنا استخدم هذه الطريقة وهي تعمل حتى مع الويندوز 10 تحياتي @echo off goto permissionCheck :permissionCheck echo Checking permissions... SET adminRights=0 FOR /F %%i IN ('WHOAMI /PRIV /NH') DO ( IF "%%i"=="SeTakeOwnershipPrivilege" SET adminRights=1 ) IF %adminRights% == 1 ( echo Elevated permissions confirmed. echo F| XCOPY C:\Source\Sami.dll C:\Windows\System32\Sami.dll pause >nul ) ELSE ( echo Elevated permissions absent. echo. echo This file needs to be run as an Administrator. echo. echo Close this window, right-click on the file and click "Run as Administrator". echo OR echo Log on to an Administrator account and run this file normally. pause >nul )

ممكن عمل ذلك من خلال الكود التالي Private Sub Form_Timer() Me.txtcount = Me.txtcount + 1 Me.box3.Width = Me.txtcount * 20 Me.text4 = Me.txtcount & "%" If Me.txtcount = 100 Then Me.TimerInterval = 0 Me.box3.Visible = False Me.text4.Visible = False Me.txtcount.Visible = False 'DoCmd.Close End If عسى ان يكون هو المطلوب.

وعليكم السلام هل المقصود حين الانتهاء من العد لغاية 100 يتم إغلاق النموذج؟ لاني لاحظت في الماكرو وجود امر اغلاق للنموذج. اليك التعديل حسب ما فهمت. progressbar.accdb

وهذا التعديل لمنع الخروج من الواجهة الرئيسية صلاحيات.rar

نعم معك حق اخي لاني ارفقت الملف الخطاء أسف جدا اليك الملف الصحيح صلاحيات.rar

حياك الله اخي العزيز تفضل التعديل بالتوفيق صلاحيات.rar

تفضل اخي الكريم جرب التعديل ووافنا بالنتيجة Function FunModulePermissions() On Error GoTo Macro1_Err With CodeContextObject If DCount("ID", "Tbusers", "deCode([UName],'User')='" & Trim(User) & "'") = 0 Then MsgBox " لا تملك الصلاحيات للدخول ", vbCritical + vbMsgBoxRight, "تنبيه" DoCmd.CancelEvent If CurrentProject.AllForms("FrmMain").IsLoaded = False Then .AllowAdditions = False .AllowEdits = False .AllowDeletions = False Else If (Forms!Frmmain!UAddData = False) Then .AllowAdditions = False End If If (Forms!Frmmain!UEditData = False) Then .AllowEdits = False End If If (Forms!Frmmain!UDeleteData = False) Then .AllowDeletions = False End If End If End If Macro1_Exit: Exit Function Macro1_Err: MsgBox Error$ Resume Macro1_Exit End With End Function

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

If Me.AllowDeletions = False And _ DCount("ID", "Tbusers", "deCode([UName],'User')='" & Trim(User) & "'") = 0 Then MsgBox " لا تملك الصلاحيات للدخول ", vbCritical + vbMsgBoxRight, "تنبيه" DoCmd.CancelEvent Exit Sub DoCmd.Close تفضل... هذا بخصوص الكود بالنسبة للسؤال الثاني فلم اجرب بعد سأحاول ان شاءالله