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

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

هل يمكن تشغيل تطبيق بالكود بواسطة مسؤول النظام يرجى تصحيح الكود لتشغيل التطبيق بواسطة مسؤول النظام "ShellExcutive 0, "runas", "cmd.exe

تم حل المشكلة وذلك بتفعيل الأداة المرفقة عن طريق موجه الأوامر cmd وتشغيله بواسطة مسؤول النظام أولا بعد فك الضغط للملف المرفق السابق نضع المجلد myPic بكافة محتوياته في القرص C في جهاز الكمبيوتر ثم من قائمة إبدأ نكتب cmd ثم نضغط الزر الأيمن للماوس نختار Run as administrator ونقوم بتسجيل الأداة ونكتب الأمر التالي: regsvr32 C:\myPic\YsVedPic.OCX ثم نضغط Enter بعدها ستظهر رسالة أنك سجلت الأداة بنجاح وبعد ذلك يمكننا استخدام قاعدة البيانات السابقة والتقاط الصور من كاميرا الويب شاكرين لكم

لقد قمت بالبحث طويلا في هذا الموضوع وحصلت على عدة مواضيع تحوي نفس فكرة قاعدة البيانات السابقة وفي كل مرة كنت أتأكد من تسجيل المكتبة إلى برنامج الفيجوال بيسك إلا أن الرسالة ما زالت تظهر وعنصر التحكم الخاص بالتقاط الصورة من الكاميرا في اللابتوب لا يعمل هل لإصدار الويندوز والأوفيس علاقة في تلك الرسالة ؟؟ مع العلم أن نسخة الويندوز لدي ويندوز ٧ بروفيشنال ٦٤ بت والأوفيس ٢٠٠٧ انتربرايس ٣٢ بت يرجى مشاركتنا في هذا الموضوع

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

السلام عليكم أتوقع أني قمت بحل المسألة والحمد لله ما رأي الخبراء بهذا الكود Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) On Error GoTo Err_Form_MouseWheel If Not Me.Dirty Then If (Count < 0) Then Me.txtDate = DateAdd("d", -1, Me.txtDate) Dim StrSQL As String StrSQL = "SELECT * FROM tblAgenda WHERE (((DayDate)=Forms![frmCalendarMain]![txtDate]))" Me.Form.RecordSource = StrSQL ElseIf (Count > 0) Then Me.txtDate = DateAdd("d", 1, Me.txtDate) SendKeys "{F5}" End If Else MsgBox "The record has changed. Save the current record before moving to another record." End If Exit_Form_MouseWheel: Exit Sub Err_Form_MouseWheel: MsgBox Err.Description Resume Exit_Form_MouseWheel End Sub Memo Calendar.mdb

السلام عليكم أليس هناك إجابة لهذا اليوم؟

السلام عليكم أليس هناك من يساعدنا وجزاكم الله عنا خيرا

شكرا لمحاولتك أستاذ عبد الله قدور في قاعدة البيانات لدي التنقل بالسجلات هو من نوع آخر السجلات ليست سجلات متتالية إنما التنقل سيكون حسب التاريخ لذلك عند تجربة الكود المكتوب من قبلك على قاعدة البيانات لدي لم تنجح فكرته في هذه القاعده نأمل من الأعضاء مشاركتنا في حل هذه المسألة

لا تنسونا جزاكم الله خيرا

السلام عليكم قاعدة البيانات المرفقة هي عبارة عن أجندة يومية المطلوب عند تحريك عجلة الماوس التنقل بالصفحات لقد قمت بوضع الكود المناسب لكن لدي مشكلة هي عملية البحث عن السجلات المرتبطة بتاريخ اليوم المراد عرض الأحداث (العمليات) فيه المطلوب تصحيح الكود ليصبح مناسبا عندما أقوم بتحريك عجلة الماوس للأعلى والأسفل Memo Calendar.mdb