mr steev

هل هناك من يساعدنا☝️☝️☝️

☝️☝️☝️☝️☝️ أليس هناك إجابات

اتوقع في الويندوز 10 انه يجب عليك تنفيذ أمر تسجيل الأداة بواسطة مسؤول النظام إليك الرابطين التاليين من الممكن الاستفادة منهما https://www.officena.net/ib/topic/89277-خطأ-يقول-الكائن-غير-موجود-في-عنصر-التحكم-هذا/ https://www.officena.net/ib/topic/89336-تشغيل-تطبيق-بواسطة-مسؤول-النظام-بالكود/?tab=comments#comment-562474

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

هل ذلك ممكن؟؟👆👆

السلام عليكم لدي كود للتحكم بخصائص ملف قاعدة بيانات لجعله للقراءة فقط أو مخفي أو غير ذلك Dim MyPath As String MyPath = CurrentProject.Path & "\MyDB.accdb" SetAttr (MyPath), vbReadOnly المطلوب إخفاء أو إلغاء تنشيط سمة للقراءة فقط من خصائص ملف قاعدة البيانات (لا أريد للمستخدم تغيير مربع الاختيار للقراءة فقط) ودمتم بخير

تم الحل وذلك بنسخ المجلد إلى الهدف ومن ثم حذفه من المصدر

السلام عليكم وكل عام وأنتم بخير بمناسبة عيد الأضحى المبارك لدي هذا الكود يقوم بنقل مجلد من المسار الحالي إلى القرص المحلي :\C المشكلة لدي عندما يكون المسار الحالي لقاعدة البيانات في في قرص غير الـ :\C يعطي رسالة permission denied هذا هو الكود: Private Sub Form_Load() On Error GoTo MyErr Dim FSO As Object Dim FromPath As String Dim ToPath As String FromPath = CurrentProject.Path & "\MyFolder" ToPath = "C:\MyFolder" If Right(FromPath, 1) = "\" Then FromPath = Left(FromPath, Len(FromPath) - 1) End If If Right(ToPath, 1) = "\" Then ToPath = Left(ToPath, Len(ToPath) - 1) End If Set FSO = CreateObject("scripting.filesystemobject") If FSO.FolderExists(FromPath) = False Then Exit Sub End If If FSO.FolderExists(ToPath) = True Then Exit Sub End If FSO.MoveFolder Source:=FromPath, Destination:=ToPath MyErr: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If End Sub فما هو الحل ؟؟؟ وجزاكم الله خيراً

سلمت ايديكم

أريد كود لايقاف الومضة عند تحديث النموذج أي عند الأمر me.refresh

سامحونا لقد أثقلت عليكم الآن كيف يمكن أن نقوم بتسجيل الأداة دون عملية نقل الملف إلى مجلد system32 إذا كان الملف المراد تسجيله موجود بنفس مسار قاعدة البيانات وهذا هو الحل Private Sub أمر6_Click() sFileName = CurrentProject.Path & "\YsVedPic.OCX" RegisterFile (sFileName) End Sub تسجيل أداة أكيف أكس.rar

أستاذنا الكريم صالح حمادي جزاك الله خيرا لقد بحثت لمدة يوم تقريباً قبل أن أطرح هذا الموضوع وأصبح لدي خلفية بسيطة لما يحدث عند تنفيذ الكود سبحان الله في الأمس كنت قد حصلت على نفس الكود من الرابط التالي ولكن لم أحسن استخدامه https://social.msdn.microsoft.com/Forums/en-US/0ff2f4a2-dba6-4fdd-a055-4fe0d2a07fbd/how-to-run-regsvr32-as-administrator-with-vba?forum=isvvba وهذه إضافة للإيضاح كيف لنا أن نعرف بعد تسجيل الأداة أن الكود نفذ بشكل صحيح يجب أن يكون هناك رسالة من نظام الويندوز تفيد بأنه تم تسجيل الأداة بنجاح وسبب عدم ظهور الرسالة هو أنك في الكود المنشأ لتسجيل الأداة قمت بوضع حرف S بعد Regsvr32 /s أي (silent) مع عدم ظهور مربع الرسالة لذلك نقوم بإزالة s/ لتظهر معنا رسالة النظام وتأكيد أن الكود تم تنفيذه بشكل صحيح على العموم جزاك الله خيراً

جزاك الله خير هل يمكن تنفيذ هذا الأمر والتعديل على المرفق التالي وهو تسجيل أداة تفعيل كاميرا الويب بواسطة مسؤول النظام OpenExelFile.rar

هل قمت بتسجيل الأداة الخاصة بعمل كاميرا الويب في الويندوز لديك إليك هذا الربط يمكن يفيدك