بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــه
عارف ان الموضوع دة قديم بس فعلا عملى لغبطة شديدة
عندى نموزج افتتاحى عملت علية عدد 2 زر أمر وأخفتهم ورا زرين نصين أخرين كما تعملت من الأخوة بالمنتدى الاول truo والثانى false عاوز الأاول يشغل الشيفت والتانى يلغية
المطلوب
أكواد كلا الزرين وياريت تحديد مكانهم بالضبط يعنى فى الزر الأول وفى حدث عند النقر ضع الكود التالى وكذالك الزر الأخر
ولو فية دالة او وحدةنمطية برضة ياريت مكانها تحديدا وشكرا للأخوة الأفاضل
ChangeProperty "AllowBypassKey", DB_BOOLEAN, False
هذا الكود سأضعة فى حدث عند النقر للزر الأول
ChangeProperty "AllowBypassKey", DB_BOOLEAN, True
هذا الكود سأضعة فى حدث عند النقر للزر الثانى
أين أضع هذة الدالة
' ßáÇ ÒÑí ÇáÃãÑ íÓÊÏÚíÇä ÇáÏÇáÉ ÇáÊÇáíÉ
Public Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant)
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_err:
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
ChangeProperty = False
Resume Change_Bye
End If
End Function
على فكرة أثناء بحثى وجدت هذة الصفحة وحملت المرفق بتاعها لكنها اغبطتنى ومعرفتش اعمل اية
ياريت توضيح وشكرا
أخي الفاضل
حمل المرفق وافتحة
وبعد ما تفتحة
قم بالضغط علي مفتاح ALT+F11
وستظهر مباشرة أمامك جميع الاكواد ومكان تواجد هذه الدالة وكيفية استدعائها ( مرة لتنشيط الاداه ) ومرة (لعدم تنشيط الاداه)
اتبع الخطوات وان شاء الله تفي بالغرض
ذكرت اخى انى صادفت هذا المثال وحملت المرفق وبحثت فية لكن لقلة خبرتى لم أستطع تحديد مكان هذة الدالة
وشكرا
بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــه
أولا - فعلا جربت كتير ولم تفلح معى الطريقة الا أن هدانى الله ووجدت مثال وبة حلت المشكلة
للأخوة الى زى حلاتى ومش عارفين يوصلوا
أولا أنا عملت 2 زر أمر الأول true وفى حدث عند النقر وضعت الكود التالى
ChangeProperty "AllowBypassKey", DB_Boolean, True
وزر الأمر الأخر أسميتة false وفى حدث عند النقر وضعت لة الكود التالى
ChangeProperty "AllowBypassKey", DB_Boolean, False
لو أخدنا بالنا هنلاقى الكود واحد والمختلف فقط هو true or false
وانا فى محرر الفيجوال بيسك أثناء وضع الكود للزر الثانى يوجد فى أعلى الصفحة على اليسار مكان عند الوقوف علية بالماوس يظهر اسم Object
ومنة أستطيع أختيار الكائن الذى سوف أتعامل معة سواء كان مربع نص أو زر أمر أو النموزج نفسة
ومنة أختار أول أختيار وهو General ستجد أن مؤشر الماوس أنتقل الى مكان جديد بالصفحة وعندة ضع الدالة التالية
Option Compare Database
Sub SetBypassProperty()
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub
Function ChangeProperty(strPropName As String, _
varPropType As Variant, _
varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function
ثم أحفظ العمل وجرب
أما أخفاء زرى الأمر فأعتقد أنها طريقة سهلة والجميع يستطيع عملها
حبيت بس أفيد الى مش قاادر ينفذ الموضوع مثلى وشكرا لكل ما ساعدنى فى الوصول الى ذلك
مرفق مثال بعد وضع الأكواد علية
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…