أبو عبدالله الحلوانى قام بنشر سبتمبر 24, 2014 قام بنشر سبتمبر 24, 2014 السلام عليكم أريد تغير خاصية لعنصر تحكم فى فورم من خلال كود لعنصر تحكم فى فورم اخر وجزاكم الله خيرا
ابوخليل قام بنشر سبتمبر 25, 2014 قام بنشر سبتمبر 25, 2014 السؤال بحاجة الى زيادة ايضاح بمعنى ماذا تريد ان تعمل بالضبط علما انه لا يمكن التحكم بعناصر نموذج مغلق من خلال نموذج مفتوح
أبو عبدالله الحلوانى قام بنشر سبتمبر 25, 2014 الكاتب قام بنشر سبتمبر 25, 2014 جزاك الله خيرا ابا خليل لتجاوبك معي اما عن الفكرة التى احاول القيام بها احاول تصميم فورم لاعدادات الباسورد بحيث يحددفيه المستخدم رغبته في طلب الرقم السري عند فتح فورم ادخال البيانات بحيث يتاثر خانة الابشن في الفورم بيانات باختيار نعم فى فورم اعدادات
.Azhar قام بنشر سبتمبر 25, 2014 قام بنشر سبتمبر 25, 2014 (معدل) تفضل اخي ابو عبد الله هذا شرح Pdfمفصل لكيفية عمل صلاحيات وتغيير الباسوورد . Password.rar تم تعديل سبتمبر 25, 2014 بواسطه .Azhar
ابوخليل قام بنشر سبتمبر 25, 2014 قام بنشر سبتمبر 25, 2014 بحيث يحددفيه المستخدم رغبته في طلب الرقم السري الى الآن العبارة اعلاه لم يتضح لي المقصود منها هل المطلوب : يوجد خانتي اختيار واحدة في نموذج الاعدادات والاخرى في نموذج البيانات وتريد اذا تم تحديث خانة نموذج الاعدادات ان يظهر هذا التحديث في خانة نموذج البيانات ؟ الافضل ان ترفق مثالا بسيطا يبين المطلوب وليكن على صيغة mdb
أبو عبدالله الحلوانى قام بنشر سبتمبر 28, 2014 الكاتب قام بنشر سبتمبر 28, 2014 جزاكما الله خيرا استاذى الكريمين ابا خليل وازهر واسال الله ان يجزل لكما المثوبة وان ينفع بكما وكل من ساهم فى هذا الموقع بجهد استاذ ازهر ممكن ترسلى الملف باللغة العربية لو سمحت ولو ممكن اتشرف بكنية حضرتك اسف ابا خليل على عدم ارسال ملف لعدم معرفتى بارفاق ملف الى الموضوع 1
.Azhar قام بنشر سبتمبر 28, 2014 قام بنشر سبتمبر 28, 2014 تفضل هذا مثال 2003 يمكنك تغيير كلمات المرور في البداية من الجدول tblUser باضافة ارقام في الحقل الذي هو على شكل نجوم ومن خلاله تستطيع اغلاق وفتح قاعدة البيانات ولاحظ الصلاحيات صلاحيات المستخدمين.rar
.Azhar قام بنشر سبتمبر 30, 2014 قام بنشر سبتمبر 30, 2014 ابو عبد الله يمكنك مراجعة هذا الرابط http://www.officena.net/ib/index.php?showtopic=55850
أبو عبدالله الحلوانى قام بنشر سبتمبر 30, 2014 الكاتب قام بنشر سبتمبر 30, 2014 استاذ ازهر جزاك الله خيرا قد استفدت كثيرا من الملفات التى ارفقتها بالموضوع ولكن لدى استفسار ان اتسع لى صدر حضرتك والاساتذة الكرام ليست المشكلة لدى الان فى تصميم نموذج للباسورد فكرة البرنامج ان فورم البيانات سيفتح بدون طلب باسورد اذا كان المستخدم لم يختر تفعيل كلمة السر فى فورم اعدادات واذا اختار المستخدم تفعيل كلمة السر فى فورم اعدادت عند دخوله من الفورم الرئيسى على ادخال البيانات سيظهرله اولا فورم الباسورد باختصار ما اريده كود اخفاء (وليس اغلاق) فورم بيانات اذا كان الباسورد خطأ واظهاره اذا كان الباسورد صحيح - بمعنى اخر التحكم فى خاصية الظهور لفورم بيانات من خلال فورم باسورد - هذا هو الموضع الذى توقفت عنده اسف علي الاطالة ولكن هذه محاولة مبتدئ لمخاطبة الجهابذة وتقبل الله طاعاتكم وجهودكم في بذل العلم
.Azhar قام بنشر سبتمبر 30, 2014 قام بنشر سبتمبر 30, 2014 وهذا هو فعلا ما موجود انظر الى الكود وانظر الى التأشيرات الحمراء Private Sub cmdLogin_Click() 'التحقق من اسم المستخدم If IsNull(Me.cboDept) Then MsgBox "يجب ادخال اسم المستخدم", vbCritical Me.cboDept.SetFocus Else 'التحقق من كلمة المرور If Me.txtPassword.Value = DLookup("pwPW", "faqPW", "[pwPKID]=" & Me.cboDept.Value) Then lngPKID = DLookup("pwPKID", "faqPW", "[pwPKID]=" & Me.cboDept.Value) DoCmd.OpenForm "هنا نضع اسم الفورم الذي نريد ان يفتح " Me.Visible = False Else MsgBox "كلمة المرور غير صحيحة", vbOKOnly, "الادخال غير صحيح" Me.txtPassword = Null Me.txtPassword.SetFocus End If End If 'اذا قام المستخدم بادخال كلمة مرور غير صحيحة 3 مرات سوف يغلق البرنامج intLogonAttempts = intLogonAttempts + 1 If intLogonAttempts > 3 Then MsgBox "ليس لديك حق الوصول الى البرنامج راجع مدير المشروع", vbCritical, "Restricted Access!" Application.Quit End If End Sub في السطر الاحمر الاول تضع اسم الفورم الخاص بالبيانات بدل السطر الاحمر الاول . اما في حالة عدم الاغلاق تستطيع زيادة عدد المحاولات او ايقاف اخر اربعة سطور من الكود باستثناء السطرين الاخيرين اما اذا لا تريد ذلك وتريد غلق الفورم فقط وليس غلق البرنامج كله تستخدم بدل Quit ـــــــــ> Close
أبو عبدالله الحلوانى قام بنشر سبتمبر 30, 2014 الكاتب قام بنشر سبتمبر 30, 2014 انا ادرى ان قصوري عن توضيح الفكرة هو السبب فى عدم ايصال المعنى المطلوب لذا ارجو ان يتسع صدركم على قليلا قد قرأت هذ الكود فى الملف المرفق وجزاكم الله خيرا وملاحظاتى: اولا- الفورم المفتوح هو فورم الباسورد و خاصية الظهور تحولت الى فولص للفورم نفسه عند فتح الفورم الهدف ثانيا - انا عايز اغير خاصية الظهور للفورم الهدف - اللي هو هيفتح اذ كان الباسورد صح- من خلال فورم الباسورد ثالثا - انا اسف لانى غير قادر على ارفاق ملف
.Azhar قام بنشر سبتمبر 30, 2014 قام بنشر سبتمبر 30, 2014 اوك سوف ارفق لك صور لجعل فورم الباسوورد هو الاول عند فتح البرنامج , هذا ما فهمته من كلامك .
أبو عبدالله الحلوانى قام بنشر سبتمبر 30, 2014 الكاتب قام بنشر سبتمبر 30, 2014 لا لا لم اقصد هذا الملاحظات كانت على الكود اللى حضرتك باعتو هحاول اعبر عن الفكرة باسلوب تانى فورم ادخال البيانات عندى فى حدث الود هيبحث فى جدول الباسورد عن وجود باسورد ام لا اذا كان فيه باسورد هيفتح فورم الباسورد ويختفى فورم البيانات لو مفيش باسورد فى الجدول هيفتح فورم البيانات عادي الان فورم البيانات مفتوح ومخفى وفورم الباسورد مفتوح ايضا... زر موافق فى الفورم باسورد مهمتو يظهر فورم البيانات - لانه مفتوح - اذا كان الرقم صح ارجو ان تكون الفكرة اتضحت وهحاول اتعلم طريقة لارفاق ملف حتى يكون الامر ايسر من الشرح
تمت الإجابة ابوخليل قام بنشر أكتوبر 3, 2014 تمت الإجابة قام بنشر أكتوبر 3, 2014 الان المطلوب واضح تماما ولكن اعلم ان هذه الطريقة تصلح لبرنامج يستخدمه مستخدم واحد فقط وتحتاج لتطبيق ذلك الى التالي : نموذج بداية يتفحص الشرط فإن وجد الخانة مفعلة فتح نموذج كلمة المرور والا فتح نموذج البيانات انظر المثال المرفق : كلمة المرور=1 انقر على زر تعديل لتغيير الرقم السري ولتفعيل ظهور نموذج كلمة المرور من عدمه آمل ان يكون هو ما تبحث عنه تحكم في ظهور نموذج كلمة لمرور.rar
أبو عبدالله الحلوانى قام بنشر أكتوبر 3, 2014 الكاتب قام بنشر أكتوبر 3, 2014 سلمت يمينك استاذنا ابا خليل لازالت موضوعاتك المتميزة وردودك المتألقة تبهرنى بارك الله جهودك والقائمين على هذا الموقع وجعلها الله فى موازين حسناتكم وتقبل الله منا ومنكم - كل عام انتم فى خير وعافية.
أبو عبدالله الحلوانى قام بنشر أكتوبر 3, 2014 الكاتب قام بنشر أكتوبر 3, 2014 استاذنا ابا خليل اسمح لى ببعض الاستفسارات لو لم يكن لدي حضرتك مانع - فهدفى من المشاركة التعلم وليس الحصول على نموذج جاهز فحسب - 1- ما هى وظيفة " OpenDynaset" فى جملة sql 2- فورم welcome1 لا يظهر مع النماذج فى جزء التنقل كيف هل تم ضبط خاصية الظهور للفورم = لا ؟ 3- لم يظهر من قوائم اكسس سوى قائمتين فحسب بدون مودل ولا ماكرو هل هذا ايضا من خلال ضبط خيارات اكسس ام ماذا ؟ 4 - استفسار اخر خارج الموضوع : هل ممكن اخفاء بعض الاعمده من التقرير اذا كانت تحتوى على قيمة خالية أو صفر وجزاكم الله خيرا
ابوخليل قام بنشر أكتوبر 3, 2014 قام بنشر أكتوبر 3, 2014 السؤال الثاني انقر باليمين على النموذج / خصائص / علم على خانة مخفي السؤال الثالث : لا اعلم بالضبط ما تقصد بالقوائم الا ان المثال لا يحتوي على ماكروات ولا وحدات نمطية ولا تقارير السؤال الرابع : يحتاج ان تفرد له سؤال يخصه مع المثال ، واعلم انني اعمل على الاصدار 2003 ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ اما السؤال الأول فقد وجدت لك في مكتبتي شرحا لمطلوبك : ====================================== أنواع السجلات التي يمكن فتحها بالكائن DAO النوع الأول Table Recordset وهذا النوع هو ارتباط مباشر لأي جدول في قاعدة البيانات مميزاته 1 – استخدام نظام الفهرسة INDEX 2 – إتاحة عمليات بحث سريعة عيوبه 1 – عدم إمكانية إنشاء تصفية للسجلات 2 – استخدام تعليمة SEEK في البحث وهى تبحث عن السجل الأول فقط 3 – عدم استخدام تعليمة البحث FIND التي يمكن أن توجد عدد كبير من السجلات ولفتح جدول باستخدام هذا النوع نستخدم الجملة التالية Set rs = db.OpenRecordset("tbl1", dbOpenTable) النوع الثاني DyanaSet Recordset وهو عبارة عن مجموعة من السجلات من جدول واحد أو أكثر في قاعدة البيانات مميزاته 1 – إمكانية ربط البيانات في أكثر من جدول 2 – إمكانية استخدام الأمر FIND في البحث عن السجلات 3 – إمكانية عمل تصفية للسجلات عيوبه 1 - لا يستخدم الفهارس INDEX 2 – لا يتيح تعديل السجلات أو حذفها بسهولة لفتح جدول باستخدام هذا النوع من السجلات نستخدم الجملة التالية Set rs = db.OpenRecordset("tbl1", dbOpenDynaset) النوع الثالث : SnapShot Recordset وهى عبارة عن صورة من الجدول كما هو وهي للقراءة فقط مميزاته 1 - إمكانية ربط أكثر من جدول 2 - إمكانية استخدام أمر البحث FIND 3 - سرعة البحث للسجلات لأنها في الذاكرة عيوبه 1 – عدم إمكانية تحديث وتعديل البيانات لأنها للقراءة فقط 2 – عدم إمكانية استخدام الفهارس 3 – استهلاك الذاكرة وخاصة عند فتح أكثر من جدول لفتح جدول باستخدام هذا النوع من السجلات نستخدم الجملة التالية Set rs = db.OpenRecordset("tbl1", dbOpenSnapShot)
أبو عبدالله الحلوانى قام بنشر أكتوبر 6, 2014 الكاتب قام بنشر أكتوبر 6, 2014 جزاك الله خيرا استاذنا اباخليل اما عن ماذا اقصد بالقوائم فهي القوائم الموجودة بشريط القوائم الخاص بالاكسس (ملف ادراج عرض ...) لم يظهر منها سو ملف والرئيسية والنسخة التى لدى 2010 ثانيا - فى محاولة لتطبيق ما تعلمته من مشاركتكم السابقة اضفت هذا الكود لزر امر فلم يستجب الرجاء التكرم بتوضيخ الخلل الكود هو : Set db = currentdb Set rs= db.openrecordset ("tbl1",dbopendyanaset)0 If isnull (rs) then Msgbox Else End if لم اكتب كامل تفاصيل الكود الذي يهمنى هو الشرط لم يستجب بهذه الصيغة وكذلك عند استخدام هذه الصيغة للستعلام فى فتح جدول فارغ اعطى رسالة خطا - لايوجد سجل حالى - وجزاكم الله خيرا
ابوخليل قام بنشر أكتوبر 6, 2014 قام بنشر أكتوبر 6, 2014 سؤالك الاول عن القوائم واختفائها تجد هذا في خصائص بدء التشغيل في 2003 : ادوات / بدء التشغيل اما سؤالك الثاني فحبذا لو افردته بموضوع مستقل تعدد المواضيع والمسميات علامة صحية ومطلوبة في المنتدى مع ملاحظة توضيح ماذا تريد من نتيجة بــــ IsNull لان rs لوحدها لا تحمل قيمة
أبو عبد لله الحلوانى قام بنشر أكتوبر 16, 2014 قام بنشر أكتوبر 16, 2014 أستاذ أبو خليل جزاك الله خيرا تأخرت كثيرا ولكن شغلتنى المتابعة عن كثب لموضوعات هذا الصرح التعليمى التى اغنتنى عن كثرت البحث أرجو ان يتسع لى صدركم والسماح لى بالاستفسار الاتى: 1- علمت بفضل الله ثم بفضلكم ان المتغير ( rs) فى المثال السابق لا تحمل قيمة وتحتاج الى وسيطة ك (find) أو (dlookup) ولكن عند استعمال find او dlookup فتعطى رسالة خطأ عندما يكون الجدول فارغ من القيم فهل من وسيلة لتعمل الدالة مع الجدول قبل ادخال القيم 2 - أرجو أن يوجد فى مكتبتكم شرحا لوظيفة (DoMenuItem) 3- ترددت كثيرا فى متابة هذه الاستفسارات ولكن اطمعنى كرمكم الزائد وحرصكم الدائم على تقديم يد العون للاخرين فى طرحها واسئل الله أن يجزل لكم العطاء ويجزيكم عنا خيرا وسائر اساتذة المنتدى الكرام
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.