Barna

بعد اذنك استاذي القدير محمد استخدم هذا مع تعديل مايلزم ... 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

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

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

هذا واجب علينا للمنتدى واعضائه حياك الله اخي الكريم

جرب المرفق وخبرنا بالنتيجة ..... fouad.accdb

طيب على اي اساس تريد حذف السجل المكرر ... هل اول سجل يحذف والاخر يبقى ... لانك تقول البيانات الاخرى مختلفة مثلا محمد البرناوي لديه سجلات عديدة وحقل الهاتف لدية رقم هاتف رقم ١ وفي السجل الاخر رقم هاتف اخر رقم ٢ ؟؟؟؟ كيف يتم الحذف ... ماهو الاساس .... ام تريد سجل واحد بغض النظر الى تلك الحقول الاخرى ؟؟

لم يعمل معي الكود بسبب مطالبة البرنامج للرقم الاساسي ويبدوا ان البرنامج المبسط ينقصه بعض الاكواد ... اعمل نسخه من برنامجك وجرب عليه هذا الكود ... Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.اضافة.SetFocus DoCmd.OpenForm "form1" End If End Sub تم في المرفق .... لم تتم ربما لاحقا اذا وجدت فرصة اخرى ... Barna_765.accdb

حياك الله اخي الكريم

افتح المرفق واكتب جزء من اسم الصف ثم دبل كلك عليه وانظر ... Barna_765.accdb

حياك الله اخي علي

تفضل ..... ali (2).zip

حياك الله ..... انظر المرفق واضغط على موظف_جديد في الكمبوبكس ولاحظ Barna.accdb

بارك الله فيك أخي الكريم

Function CalcAge(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAge = vYears & "سنة, " & vMonths & "شهر, " & vDays & "يوم" End Function صحح كود الوحدة النمطيه لأن الكود الذي ارفقة أخي ناقل في بدايتة ونهايتة نقص احرف سبب عدم الاجابة : قد يكون المطلوب غير واضح للزملاء يجب فتح موضوع مستقل بطلبك ارفاق مثال مبسط للمطلوب لانك طلبت في موضوع قديم جدا حاول التقيد بهذه القوانين أخي الكريم ... وحياك الله قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف