سامي الحداد

وعليكم السلام تفضل اخي الكريم بالتوفيق 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

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

تفضل اخي الكريم هل هذا هو المطلوب. وافنا بالنتيجة تحياتي Project 1.rar

لان عندك غلط بربط الحقل بين الرئيسي والفرعي جرب الحين . ما اعرف طريقة عمل برنامجك شوف اذا هو المطلوب ووافنا بالنتيجة. الحين عندي الوقت متأخر الساعة 3 الفجر. تحياتي Project 1.rar

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

وعليكم السلام تفضل اخي الكريم بالتوفيق Project 1.rar

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

تفضل اخي الكريم عسى ان يكون هو المطلوب. وافنا بالنتيجة تحياتي Test112.rar