التقني

السلام عليكم يمكنك ذلك من خلال عمل روتين خاص نضع فيه هذا الكود بحيث يتم استدعاؤه في كل مرة نحتاج الى هذا الكود.

السلام عليكم ورحمة الله وبركاته،، :( الحمد لله على كل حال :( والحل لمن يريد ان يعرف هو وضع السطر التالي في خانة المعايير للحقل المطلوب Not In (1;2;3;4) وهذا يعني أن نتيجة الاستعلام ستظهر جميع السجلات ماعدا التي تحوي القيم 1 و 2 و3 و4 في ذلك الحقل . NotIN.rar

وهذا كود خفيف وسهل وهو من اعداد الاستاذ ابوحمود جزاه الله كل خير : If DataErr = 3022 Then Response = acDataErrContinue MsgBox "البيانات مكررة ." End If ضع هذا الكود في حدث عند الخطأ للنموذج وبالتوفيق

اطلع على الموضع أدناه : http://www.officena.net/ib/index.php?showtopic=534&hl=dcount

السلام عليكم ورحمة الله لو أمكن أخي الكريم ترفق مثال (مفرغ من البيانات الخاصة) حتى يطلع عليه الأخوة .

إضافة الى ما قاله الأخ sas_kik جزاه الله خيرا يمكنك جعل النموذج يعمل بشكل تلقائي وذلك عند تشغيل برنامجك بالطريقة التالي : 1- من قائمة أدوات اختر (بدء التشغيل...) 2- من خلال العنوان (عرض النموذج/الصفحة) اختر من القائمة النموذج المراد تشغيله تلقائيا . بالتوفيق

ولو انني غير مقتنع بهذه الطريقة ضعي في حدث عند التحميل للنموذج Enter هذا الكود : nam.Value = Forms!useracc.Controls!UserName.Value ID.Value = Forms!useracc.Controls!Pass.Value في المرفقات مثال على ذلك مع بعض التعديل test.rar

حاول تفريغ البرنامج من البيانات التي في الجداول ومن ثم اعمل ضغط واصلاح للبرنامج ثم ارفقه من خلال قسم تحميل الملفات المؤقت لكي يطلع عليه الأخوة

جرب في المرفقات أدناه بمجرد فتح النموذج (الاجازات استعلام ) سيتم طلب الرقم الوظيفي للموظف أدخل مثلا 13 سيتم اظهار بيانات هذا الموظف فقط 1st_Project.rar

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

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

طيب حاول انشاء ملف جديد وعمل استيراد لمحتويات الملف المحمي

حاول أن تضغط على الـShift بإستمرار وذلك أثناء فتح البرنامج

تم ارفاق مثال الأخ Alhaithm جزاه الله خير حتى لا يضيع مع الوقت Sample.zip

مثالك بعد التعديل 1st_Project.rar

وعليكم السلام ورحمة الله وبركاته،، اليك أخي هذا المثال مع التعديل البسيط من عندك db1.1.rar

السلام عليكم ورحمة الله حياك الله أخي أبو وسم في منتداك بالنسبة لعمل الاستعلام فيكون بالطريقة التالية : انشئ استعلام جديد مستند الى الجدول الذي عملته في خانة معايير الاستعلام للحقل المراد البحث فيه أنت مخير بين التالي : 1- تحديد قيمة معينة يبحث فيها الاستعلام كأن تضع تحت حقل الجنسية "سعودي" في هذه الخانة . "سعودي" 2- أو تترك الأمر مفتوحا بأن تضع في خانة المعايير العبارة لتالية [أدخل نوع الجنسية] وبالتوفيق

السلام عليكم ورحمة الله اليكم اخواني هذه الطريقة http://www.officena.net/ib/index.php?showtopic=2102

وعليكم السلام ورحمة الله وبركاته،، استخدم الصيغة التالية : yyyy/mm/dd

وعليكم السلام ورحمة الله وبركاته الذي أعرفه من خلال أمثلة الأخوة أن الجداول يمكن اخفاؤها بطريقتين الأولى : يمكن اظهارها من خلال أدوات ثم خيارات ثم نضع علامة صح على (اظهار كائنات مخفية ) والثانية (وتحوي كودا قويا حسب اعتقادي :( ) اذا لا يمكن اظهار الجداول الا من خلال الكود نفسه مع تغيير قيمة معينة في كود الاخفاء . أما كود اخفاء النماذج والتقارير والماكروهات والوحدات النمطية فالذي أعرفه أنه يمكن اظهارها من خلال الطريقة الأولى أي من خلال أدوات ثم خيارات ثم نضع علامة صح على (اظهار كائنات مخفية ) أما الاستعلامات فأبحث حاليا عن كود لاخفائها

بعد اذن أخي رضوان أنا أتبع طريقة مربع النص الوهمي بمعنى أن أضع مربع نص غير منضم وغير مرئي وليكن اسمه t4 وأضع به المعادلة المطلوبة ثم أجعل قيمة t3 مساوية لقيمة t4 وذلك من خلال الكود : Private Sub t2_BeforeUpdate(Cancel As Integer) t3.Value = t4.Value End Sub مرفق مثال ex.rar

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

السلام عليكم ورحمة الله وبركاته،، بعد اذن أخي أبو طيف يمكنك عزيزي admiral حماية الجداول من الاستيراد بالطريقة التالية : أ- اخفاء الجداول من خلال كلمة سر . ب- منع الوصول الى الوحدات النمطية أيضا من خلال كلمة سر . ج- بما انه لن يمكن فتح الوحدات النمطية اذا لن يمكن التعرف على كلمة سر اظهار الجداول واليك طريقة اخفاء أو اظهار الجداول وجدتها في أحد الأمثلة المخزنة في جهازي وهي تعود الى أخينا عبدالمانع حفظه الله . أولا / اخفاء الجداول: 1-انشئ زر أمر بإسم A 2-ضع الكود التالي في حدث عند النقر للزر A : Private Sub a_Click() Dim A, B A = "كلمة السر" B = "أدخل كلمة السر لإخفاء الجداول " If InputBox(B,A) = "12345" Then Else MsgBox "عفوا لا يمكن اخفاء الجداول", vbOKOnly, "خطأ" DoCmd.Quit End If CurrentDb.TableDefs("tblName").Attributes = dbHiddenObject End Sub 1-انشئ زر أمر بإسم B 2-ضع الكود التالي في حدث عند النقر للزر B : Private Sub B_Click() Dim C, D C = "كلمة السر" D = "لإظهار الجداول أدخل كلمة السر" If InputBox(D, C) = "12345" Then Else MsgBox "عفوا .. لا يمكن اظهار الجداول", vbOKOnly, "خطأ" DoCmd.Quit End If CurrentDb.TableDefs("tblName").Attributes = 0 End Sub مع ملاحظة أن tblName هو اسم الجدول المراد اخفاؤه/اظهاره

عزيزي السائل أعتقد أن موضوعك يتبع منتدى الأوفيس العام : http://www.officena.net/ib/index.php?showforum=32 هل تريد أن أنقله الى هناك ؟

وعليكم السلام ورحمة الله بالنسبة لحماية الوحدة النمطية فيتم بالتالي : 1- توجه الى محرر الفيجوال بيسك من خلال عرض التصميم واضغط على أيقونة (تعليمات برمجية) أو من خلال الكائنات الرئيسية ( جداول- استعلامات - نماذج - ...... وحدات نمطية ) واختر الأخيرة 2- من خلال القائمة اضغط على : أدوات ثم خصائص برنامجك (مشروعك) 3- اختر التبويبة Protection 4- ضع كلمة السر التي تريدها مع التأكيد عليها مرة أخرى ثم اضغط موافق ( ولا تنسى تدوينها في مكان آمن - بمعنى ... لا تنساها) هكذا تم حماية الوحدات النمطية بكلمة سر بحيث اذا نقلت برنامجك ( مشروعك ) من كمبيوتر لآخر لن تفتح الوحدات النمطية الخاصة بهذا المشروع إلا بكلمة سر . أرجو أن تكون هذه الخطوات كفيلة بحماية الوحدات النمطية وبالتوفيق