Barna

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

اخي @أبو إبراهيم الغامدي هل يمكن تعديل الشيفرة السابقة ليكون اسم الشيت هو اسم الشعبة المصدرة لتلك الورقة ...... بارك الله فيك ..

ممكن توضيح اكثر ... ماهو هذا الكود

اذا كان كلامك على النموذج ممكن تطبق كما يلي مع تعديل المسميات ::: Select Case Nz(e2) Case Is >= 90 [r2] = "ممتاز" Case Is >= 80 [r2] = "جيد جدا" Case Is >= 70 [r2] = "جيد" Case Is >= 50 [r2] = "مقبول" Case Is < 50 [r2] = "ضعيف" End Select اذا كان استعلام ممكنقاعدة IF بهذه الصورة new: IIf([Retba]="ملازم";"ملازم اول";IIf([Retba]="ملازم اول";"نقيب";IIf([Retba]="نقيب";"رائد")))

اجعل الامر في النموذج الفرعي Public Sub ثم استدعها من الرئيسي Forms!F1.f2.Form.اسم Public Sub

احذف كود الانتقال للسطر التالي ..... ونفذ ماهو في الصورة واعلمنا بالنتيجة

حياك الله اخي محمد اهلابك .... جزاك الله خيرا

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

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

شوف كدا ... ممكن ... اذا هو ما تريد اكمل الاخير .... Users.accdb

هل حاولت اخي الكريم Select Case .....

بعد اذنك استاذي القدير محمد استخدم هذا مع تعديل مايلزم ... Select Case TabCtl0 Case Is = 0 If InputBox("أدخل كلمة المرور للتعديل ", "حماية التعديل ") <> "1" Then MsgBox " كلمة المرور غير صحيحة ", vbInformation, " تنبيه " Else MsgBox "كلمة المرور صحيحة ", vbInformation, " تنبية" 'Form.AllowEdits = True End If Case Is = 1 If InputBox("أدخل كلمة المرور للتعديل ", "حماية التعديل ") <> "2" Then MsgBox " كلمة المرور غير صحيحة ", vbInformation, " تنبيه " Else MsgBox "كلمة المرور صحيحة ", vbInformation, " تنبية" 'Form.AllowEdits = True End If Case Is = 2 If InputBox("أدخل كلمة المرور للتعديل ", "حماية التعديل ") <> "3" Then MsgBox " كلمة المرور غير صحيحة ", vbInformation, " تنبيه " Else MsgBox "كلمة المرور صحيحة ", vbInformation, " تنبية" 'Form.AllowEdits = True End If End Select

الحمد لله رب العالمين

هل هذا ما تريد --------->>>> ترقيم متسلسل.accdb

ممكن ترفق لنا اما الكود او مثال للاستعلامات حتى نجربها ....

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

اكتب هذا الحدث --------------->>>>> If ((Eval("DLookUp(""[no]and[name_1]and[date_1]"",""[Table1]"",""[no] = Form.[no] and [name_1] = Form.[name_1]and [date_1] = Form.[date_1] "") Is Not Null"))) Then MsgBox "عـفواً ، تم تسجيـل هذا الإسم الكامل بالفعل", vbMsgBoxRtlReading, "منع تكرار" DoCmd.RunCommand acCmdDelete End If

جرب المرفق التالي .... الصادر والوارد.rar

وعليكم السلام @Ahmed_J حياك الله ...

ممكن تستخدم مثلا هذا الكود ان اردت ..... If Len([mobile1]) < 11 Or Len([mobile1]) > 11 Then Beep MsgBox " عقواً .... تأكد من رقم الموبايل الصحيح ", 64, "تنبيه" Cancel = True Me.mobile1 = "" End If With mobile1 If Not IsNumeric(.Value) And .Value <> vbNullString Then Beep MsgBox "عفوا ... مسموح ادخال الارقام فقط", 16, " تحذير" .Value = vbNullString End If If Mid(mobile1, 1, 3) <> "078" Then MsgBox "عفوا ... تأكد من رقم الشبكة", 16, " تحذير" Me.mobile1 = "" End If End With

اصنع زر امر وضع فيه هذا الكود ..... DoCmd.PrintOut

اليا لم افكر فيه ... يستحق التفكير فية لكن استخدم التوثيق كما في الصور

هل غيرت اسم الجدول والحقل هنا Private Sub Command6_Click() DeleteDuplicateRecords "tbl1", "Fname" End Sub

مبارك ابا امنه .... تستاهل ومزيد من التألق .....

للتنويه : يمكن عمل ذلك باكثر من طريقة مثلا تعمل جدول مشابه للجدول الاساسي وتجعل حق الاسم مطلوب .. التكرار لا ثم تعمل استعلام الحاق من الجدول الاساسي للجدول الجديد . فيتم استبعاد الاسماء المكررة ... وهكذا