Khodor1985

شكرا أخي العزيز عيد الله على تعليقك القيم وهذه الفكرة موجودة في خاطري ولكنني قدمت هذه الفكرة للمبتدئين فقط.

أحسنت أخي العزيز، شكرا لك على اهتمامك

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

قريبا إن شاء الله سنقدم لكم فكرة كيف نصنع شجرة رموز لأي برنامج.

صحيح أخي العزيز ملاحظتك دقيقة في ما يخص المشاركتين 2 و 4 فيجب تبدأ أسماء الأزرار من Command0 to Command7 ولكن اعذرني أخي فقد سقط سهوا. شكرا على اهتمامك وهذا المرفق للبرنامج سيزيل عنك اللبس والشبهة Login1.zip

صحيح أخي العزيز ملاحظتك دقيقة في ما يخص المشاركتين 2 و 4 فيجب تبدأ أسماء الأزرار من Command0 to Command7 ولكن اعذرني أخي فقد سقط سهوا. شكرا على اهتمامك وهذا المرفق للبرنامج سيزيل عنك اللبس والشبهة Login1.zip بالتوفيق أخي العزيز

صحيح أخي العزيز ملاحظتك دقيقة في ما يخص المشاركتين 2 و 4 فيجب تبدأ أسماء الأزرار من Command0 to Command7 ولكن اعذرني أخي فقد سقط سهوا. شكرا على اهتمامك وهذا المرفق للبرنامج سيزيل عنك اللبس والشبهة Login1.zip بالتوفيق أخي العزيز

ملاحظة: قم بإخفاء كافة خانات الإختيار الموجودة في النماذج.

أين المرفق اخي العزيز

أين المرفق أخي العزيزي

أتمنى أن أكون قد قدمت ما يفيد الإخوة الأعزاء.

إن كانت القيمة في حقل إسم المكتب ثابتة فلم لا تنشئ جدول تدرج فيه أسماء المكتب بحيث يصبح مرجعا لنموذجكم الكريم، وذلك من خلال تحويل إسم المكتب في النموذج من مربع نص إلى قائمة سرد وتحرير combo box وبالتاي يكون الجدول هو مصدر الصف لقائمة السرد والتحرير، وبهذا نكون…

بسم الله الرحمن الرحيم الحمد لله رب العالمين والصلاة والسلام على أشرف خلق الله والمرسلين سيدنا محمد وعلى آله الطيبين الطاهرين وعلى أصحابه الأخيار الخلص المنتجبين. يقول الرجل العادل : "ليس العلم بالتعلم إنما العالم نور يقذفه الله في قلب من يشاء من عباده الصالحي…

بعد أن قمنا بتحديد الإجراءات لمربعات النصوص وخانات الإختيار في نموذج الواجهة الرئيسية InterFace، سنضع الإجراء الأخير في هذه الواجهة هو على الشكل الآتي: نضع في تبويب الحدث / في الحالي OnCurrent للنموذج الكود التالي وهو: If Me.chkForm1.Value = False Then Me.Comm…

طبعا هذا التعقيب ليس له علاقة بالواجهة الرئيسية وإنما بواجهة المستخدم، وقد وضعته لتوضيح الكود فقط.

سنتابع بحثنا إن شاء الله ولكن بعد أن يقوم الإخوة الكرام بتطبيق ما سلف ذكره، لذا أنا بانتظار ردودكم إخواني، وأي إستفسار فأنا إن شاء الله بالخدمة.

المشاركة الرابعة: تنفيذ جملة من الإجراءات في الواجهة الرئيسية InterFace: نضع الكود التالي في تبويب البيانات / مصدر عنصر التحكم لمربع النص txtUser: =[Forms]![Login]![txtUser] ونضع أيضا في مربع النص txtDesc: =[Forms]![Login]![txtDesc] قد يسأل البعض من أين جئت به…

الخطوة الثانية في نفس النموذج InterFace واجهة المستخدم سنحدد أيضا الإجراء التالي: نضع الكود التالي في تبويب عند الضغط OnClick لزر الأمر cmdYes: On Error Resume Next If IsNull(Me.txtUser.Value) Then MsgBox "Please insert UserName", vbCritical, "Caution" Exit Su…

بعد أن انتهينا من تصميم المشروع، سنبدأ أولا في وضع أكواد الـ VBA في نموذج Login وهو واجهة المستخدم. نضع في تبويب بعد التحديث لمربع النص txtUser الكود التالي: On Error Resume Next txtDesc = DLookup("Description", "UsersT", "UserName = '" & Me.txtUser & "'") chk…