أخواني أعضاء هذا المنتدى المفيد
سؤال هنا هل بالامكان وضع رقم سري على زر امر وظيفته حذف سجل
أي قمت بوضع زر امر وظيفته هي حذف سجل لكن أريد أمر الحذف يكون محصور فقط لشخص معين (فكرتي أن أقول بوضع زر امر الحذف مخفي وزر أمر أخر بضغط عليه يقوم بإظهار زر الأمر الحذف ولكن يجب ادخال رقم سري حتى يقوم بإظهار زر أمر الحذف) أو ( يكون هنالك رقم سري عند ضغط على زر أمر الحذف وبعد ادخال الرقم السري يقوم بحذف السجل)
في انتظار حلولكم
تفضل هذا الكود
Dim str_Title As String
Dim str_Prompt As String
TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)
str_Title = "الرقم السري مطلوب"
str_Prompt = "ادخل الرقم السري"
If InputBox(str_Prompt, str_Title) = "777" Then
MsgBox "الرقم السري صحيح", , "تاكيد الحذف"
Else
MsgBox "الرقم السري خطأ", , "لايمكن اتمام الحذف"
Exit Sub
End If
Dim stDocName As String
stDocName = ChrW(1581) & ChrW(1584) & ChrW(1601)
DoCmd.RunMacro stDocName
End Ifبالتوفيق
تم تعديل هذه المشاركة بواسطة malik2010 في 20 ديسمبر 2011 في 11:39
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
أخي بوركت على هذه المعلومة
ولكن سؤالي هل يتم وضع هذا الكود في زر أمر الحذف في حدث click
malik2010 كتب:تفضل هذا الكود
Dim str_Title As String Dim str_Prompt As String TimerId = SetTimer(0, 0, 1, AddressOf TimerProc) str_Title = "الرقم السري مطلوب" str_Prompt = "ادخل الرقم السري" If InputBox(str_Prompt, str_Title) = "777" Then MsgBox "الرقم السري صحيح", , "تاكيد الحذف" Else MsgBox "الرقم السري خطأ", , "لايمكن اتمام الحذف" Exit Sub End If Dim stDocName As String stDocName = ChrW(1581) & ChrW(1584) & ChrW(1601) DoCmd.RunMacro stDocName End Ifبالتوفيق
تم تعديل هذه المشاركة بواسطة محمد الجوهر في 20 ديسمبر 2011 في 13:32
أخي الكريم قمت بكتابة الكود في زر الامر حذف سجل في حدث click
لكن لم يتم تنفيذه لم يطلب رقم سري ولم يقم بحذف السجل
تم تعديل هذه المشاركة بواسطة محمد الجوهر في 20 ديسمبر 2011 في 13:39
السلام عليكم أخي الكريم
كيف يمكن وضع الكود على زر أمر الطباعة في حدث نقر على زر للطباعة؟
وشكراً
من الخصائص
حدث
بوضع المؤشر على حدث النقر سوف تجد علامة ... ثلاثة نقاط بضغط عليه واختيار كود بأمكانك وضع الكود المراد بذالك
تم تعديل هذه المشاركة بواسطة محمد الجوهر في 20 ديسمبر 2011 في 14:11
تفضل هذا مثال بسيط
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
أخي الكريم أريد الكود لزر طباعة التقرير بالرقم السري؟
أو نفس الكود يعمل على زر طباعة بعد التعديل عليه بعض الأوامر للطباعة؟
لسلام عليكم اخوان
اعمل زر الطباعة لسجل
اذهب الى الكود وضه هذ العبارة بعد اول سطرين
("passwd = InputBox("input password
If passwd = "123" Then
وقبل السطر الاخير اكتب
End if
I2)لكن اردت استخدام الكود السابق لوضع رقم سري لزر التعديل مانفع اخي مالك
والكود هو
Me.allowEdits = true
والسلام عليكم
تم تعديل هذه المشاركة بواسطة سلامنا لكم في 20 ديسمبر 2011 في 16:24
اخواني الكرام
هذا الكود يوضع قبل تنفيذ الامر لاي زر سواء حذف او طباعة او فتح نموذج .. الخ
passwd = InputBox("ادخل كلمة السر")
If passwd = "123" Thenبعد هذا الكود يتم وضع كود تطبيق الشرط اذا كانت كلمة السر كما مبيه 123 فمثلاً كود الحذف هذا
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70ولتسهيل الامر اكثر
قم بانشاء زر امر مهما كان عمله وقم بوضع الكود التالي قبل كود التنفيذ
passwd = InputBox("ادخل كلمة السر")
If passwd = "123" Thenوفي نهاية الكود لا تنسى الامر
End If
لاحظ كود الزر في مثالي بالمشاركة رقم 7
بالتوفيق
تم تعديل هذه المشاركة بواسطة malik2010 في 20 ديسمبر 2011 في 16:16
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
سلامنا لكم كتب:2) اذا اردت استخدام الكود السابق لوضع رقم سري لزر التعديل هل ينفع وجزاك الله خير
تفضلي هذا مثال للاخت زهرة على تعديل السجلات بكلمة مرور
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
السلام عليكم
شكرا اخي مالك جزاك الله خير
بعد مقارنة الكودات لاحظت الفكرة
وكنت احرر باالمشاركة وبعد ماارسلت لاحظت ردك
لاحظ مشاركتي السابقة
وفي ميزان حسناتك
تم تعديل هذه المشاركة بواسطة سلامنا لكم في 20 ديسمبر 2011 في 16:29
بوركتم جميعا
سوف أقوم بالتجربة وأفوافيكم بالنتائج
الحمد لله ثم شكر لكل من شارك