سامي الحداد

وعليكم السلام تفضل اخي الكريم بالتوفيق برنامج حضانة.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 تفضل... هذا بخصوص الكود بالنسبة للسؤال الثاني فلم اجرب بعد سأحاول ان شاءالله

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

اخي الكريم اليك التعديل في المرفق المستخدمين AA و BB كلمة السر 555 . p1 123 p5 123 بالتوفيق Asd New.rar

اخي العزيز بالنسبة للمشكلة الاولى اليك التعديل في المرفق اما بالنسبة للمشكلة الثانية سوف احاول ان شاءالله . asd4.rar

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

تفضل اخي هل هذه هي فكرتك ارجو اعلامنا بالنتيجة asd.accdb