مساعدة في كود منع التكرار

Radwan0 · أبريل 15, 2022

السلام عليكم ورحمة الله

رمضان كريم على الجميع

اخواني عندي نموذج frmpat وبه الحقل idnumber الا وهو رقم هوية

احتاج لكود يقوم باعلامي ان رقم الهويه موجود في البيانات ولا استطيع ادخاله مره اخرى

**ابوبسمله** · أبريل 16, 2022

وعليكم السلام ورحمه الله وبركاته

الله اكرم

يجب عليك استخدام البحث اولا ستجد الكثير من المواضيع عن كيفيه منع التكرار

واليك احد هذه المواضيع

ان لم تستطع فعليك برفع مثال لما تريد حت يتثنى لاخوانك واساتذتنا مساعدتك بشكل افضل

بالتوفيق

**ابو جودي** · أبريل 16, 2022

1

Dim stLinkCriteria      As String
Dim strMsgPrt1          As String
Dim strMsgPrt2          As String
Dim strMsgPrt3          As String

strMsgPrt1 = ChrW("1578") & ChrW("1581") & ChrW("1584") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1588") & ChrW("1582") & ChrW("1589") & ChrW("1609") & ChrW("32") & ChrW("40")
strMsgPrt2 = ChrW("32") & ChrW("41") & ChrW("32") & ChrW("1578") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1587") & ChrW("1578") & ChrW("1582") & ChrW("1583") & ChrW("1575") & ChrW("1605") & ChrW("1607") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("1602") & ChrW("1576") & ChrW("1604")
strMsgPrt3 = ChrW("1587") & ChrW("1608") & ChrW("1601") & ChrW("32") & ChrW("1610") & ChrW("1578") & ChrW("1605") & ChrW("32") & ChrW("1606") & ChrW("1602") & ChrW("1604") & ChrW("1603") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1606") & ChrW("32") & ChrW("1573") & ChrW("1604") & ChrW("1609") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1580") & ChrW("1604") & ChrW("46")

stLinkCriteria = "[idnumber ]=" & Me.idnumber 
    If DCount("*", "tblName", stLinkCriteria) > 0 Then
        MsgBox$ strMsgPrt1 & Me.idnumber  & strMsgPrt2 & vbCr & vbCr & strMsgPrt3, vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, ""
        Me.Undo
        Me.Recordset.FindFirst stLinkCriteria
    Else
    End If

فقط غير tblName الى اسم الجدول تبعك

**ابو جودي** · أبريل 16, 2022

والسؤال الان للباش مهندس @Moosak

فاكر الكود الذكى بتاع الترقيم التلقائى

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

يلا شخبط انت المره دى وفرجنا شخابيطك

**Moosak** · أبريل 16, 2022

1 ساعه مضت, ابو جودي said:

والسؤال الان للباش مهندس @Moosak

فاكر الكود الذكى بتاع الترقيم التلقائى

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

يلا شخبط انت المره دى وفرجنا شخابيطك

أهلا بالتحديات الجميلة 😉

يعني هذي محاولة بدون تجربة إن شاء الله تكون مضبوطة 😅

عملتها كدالة عامة ترجع لك نتيجة من نوع True or False

Public Function CheckIDExist(IDField As String, TableName As String, FormName As form) As Boolean

Dim stLinkCriteria      As String
Dim strMsgPrt1          As String
Dim strMsgPrt2          As String
Dim strMsgPrt3          As String

strMsgPrt1 = ChrW("1578") & ChrW("1581") & ChrW("1584") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1588") & ChrW("1582") & ChrW("1589") & ChrW("1609") & ChrW("32") & ChrW("40")
strMsgPrt2 = ChrW("32") & ChrW("41") & ChrW("32") & ChrW("1578") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1587") & ChrW("1578") & ChrW("1582") & ChrW("1583") & ChrW("1575") & ChrW("1605") & ChrW("1607") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("1602") & ChrW("1576") & ChrW("1604")
strMsgPrt3 = ChrW("1587") & ChrW("1608") & ChrW("1601") & ChrW("32") & ChrW("1610") & ChrW("1578") & ChrW("1605") & ChrW("32") & ChrW("1606") & ChrW("1602") & ChrW("1604") & ChrW("1603") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1606") & ChrW("32") & ChrW("1573") & ChrW("1604") & ChrW("1609") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1580") & ChrW("1604") & ChrW("46")

stLinkCriteria = IDField & "=" & IDField
    If DCount("*", TableName, stLinkCriteria) > 0 Then
        MsgBox$ strMsgPrt1 & IDField & strMsgPrt2 & vbCr & vbCr & strMsgPrt3, vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, ""
        FormName.Undo
        FormName.Recordset.FindFirst stLinkCriteria
        CheckIDExist = True
    Else
        CheckIDExist = False
    End If
End Function

الفحص عليك يا معلم @ابو جودي 🤭

ولا تنسى تديني 10 / 10 😅👊

**ابوبسمله** · أبريل 16, 2022

جميل استاذ موسى @Moosak ولكن ع ما يبدوا انك لم تنتبه الى باقى السؤال من اخى ابوجودى

اعانك الله ع الكود وفى انتظار ابداعتكم وفقكم الله وان شاء الله فى ميزان حسناتكم

بالتوفيق اخوانى

**Moosak** · أبريل 16, 2022

25 دقائق مضت, احمد الفلاحجي said:

جميل استاذ موسى @Moosak ولكن ع ما يبدوا انك لم تنتبه الى باقى السؤال من اخى ابوجودى

تسلم أستاذنا @احمد الفلاحجي 🙂

الكود الذي وضعته عبارة عن نسخة معدلة من كود البطل @ابو جودي ..

لذلك كل ما ذكره موجود بالفعل مسبقا 🙂

أنا فقط حولته إلى وظيفة عامة كما طلب هو 😅

**ابوبسمله** · أبريل 16, 2022

10 دقائق مضت, Moosak said:

الكود الذي وضعته عبارة عن نسخة معدلة من كود البطل @ابو جودي ..

ايوه شايف ده اخى العزيز موسى ولكن ما قصدته بالرجوع لمشاركه اخى العزيز ابوجودى

3 ساعات مضت, ابو جودي said:

واى حقل للتأكد من وجود التكرار

فنظرتى للتعديل عالوضع الحالى كحقل واحد بتغير المتغير IDField بتغيير اسم المتغير مثلا strField من نوع Variant ليحمل اى نوع من القيم ثم نقوم بفحص المتغير اذا كان رقم او نص او تاريخ او نعم ولا وبعدها نكمل باقى الكود

منذ ساعه, Moosak said:

عملتها كدالة عامة ترجع لك نتيجة من نوع True or False

ولما ترجع true or false هل ساقوم بفحص النتيجه فالنموذج ايضا ام ماذا ؟

وسؤالى بقا لاخى العزيز @ابو جودي هل الفكره اللى قصدتها ع نوع واحد ام بكتابه روتين عام يشمل ( اذا كان رقم او نص او تاريخ او نعم ولا ) لكل الحالات فردى او ثنائى او ثلاثى او رباعى ؟

وفقكم الله واعانكم لما فيه كل خير

تقبلوا تحياتى ومرورى ومتابع

**Moosak** · أبريل 16, 2022

1 ساعه مضت, احمد الفلاحجي said:

فنظرتى للتعديل عالوضع الحالى كحقل واحد بتغير المتغير IDField بتغيير اسم المتغير مثلا strField من نوع Variant ليحمل اى نوع من القيم ثم نقوم بفحص المتغير اذا كان رقم او نص او تاريخ او نعم ولا وبعدها نكمل باقى الكود

ما شاء الله عليك مهندس @احمد الفلاحجي مذاكر كويس ونظرتك ثاقبة 🙂

فعلا غفلت هذه النقطة 😅

1 ساعه مضت, احمد الفلاحجي said:

ولما ترجع true or false هل ساقوم بفحص النتيجه فالنموذج ايضا ام ماذا ؟

بعد ما ترجع الدالة بـ True أو false للمصمم الحرية في أن يبني عليها أوامر أخرى أو تركها كما هي .

تم تعديل أبريل 16, 2022 بواسطه Moosak

**ابوبسمله** · أبريل 16, 2022

19 دقائق مضت, Moosak said:

ما شاء الله عليك مهندس @احمد الفلاحجي مذاكر كويس ونظرتك ثاقبة 🙂

فعلا غفلت هذه النقطة

الله يجبر بخاطرك اخى موسى مهندس مره واحده ياعم انا غلبان وع قد حالى انا بقراء العربى بالعافيه 😀 ربنا يعزك ويبارك فيك 🌹

طب يالا شد الهمه واتجدعن قبل ما المعلم يدخل ويشد الحزام 😀🌹

بالتوفيق

**ابو جودي** · أبريل 16, 2022

السلام عليكم

9 ساعات مضت, Moosak said:

الفحص عليك يا معلم @ابو جودي 🤭

مفيش حاجة اسمها كده ... لازم انت تتأكد وتفحص وتجرب أفكارك يا افندم

9 ساعات مضت, Moosak said:

ولا تنسى تديني 10 / 10 😅👊

ده ليه بقه انت اولا لا فحصت ولا جربت الكود وثانيا الكود مش شغال يا بيه وثالثا فين المتغير اللى يحمل القيمة اللى نحتاج التأكد منها

والاهم من كل ده انت وقعت فى الفخ .. نعم يا سيدى لقد وقعت فى الفخ

فين النظرة المبعدية اللى تجعل الكود ذكى فلا تضطر مستقبليا فى الدخول للتعديل على الكود ؟! فين المنطق والتحليل

هو القيمة التى نريد التأكد ان كانت موجود من قبل او لا فى القيم المسجلة بالجدول مش ممكن تكون رقم او نص او تاريخ ؟

انت بتهزر يا بيه 🥵 يا شماتة طنط ظاظا فيه

نلتقى بعد الإفطار ان شاء الله

**ابو جودي** · أبريل 16, 2022

اتفضل يا باش مهندس @Moosak :fff:

**Moosak** · أبريل 16, 2022

3 ساعات مضت, ابو جودي said:

السلام عليكم

مفيش حاجة اسمها كده ... لازم انت تتأكد وتفحص وتجرب أفكارك يا افندم

ده ليه بقه انت اولا لا فحصت ولا جربت الكود وثانيا الكود مش شغال يا بيه وثالثا فين المتغير اللى يحمل القيمة اللى نحتاج التأكد منها

والاهم من كل ده انت وقعت فى الفخ .. نعم يا سيدى لقد وقعت فى الفخ

فين النظرة المبعدية اللى تجعل الكود ذكى فلا تضطر مستقبليا فى الدخول للتعديل على الكود ؟! فين المنطق والتحليل

هو القيمة التى نريد التأكد ان كانت موجود من قبل او لا فى القيم المسجلة بالجدول مش ممكن تكون رقم او نص او تاريخ ؟

انت بتهزر يا بيه 🥵 يا شماتة طنط ظاظا فيه

نلتقى بعد الإفطار ان شاء الله

طب 2 / 10 على الأقل عشان أول واحد مجاوب والعيش والملح 😅

خلاص أنا هجاوبك في موضوعك الأصلي عشان عندي كم ملاحظة 😏

**ابو جودي** · أبريل 16, 2022

2 ساعات مضت, Moosak said:

طب 2 / 10 على الأقل عشان أول واحد مجاوب والعيش والملح 😅

طب 9/10 علشان اول واحد مجاوب وعلشان العيش والملح 😅

حلو عصف الاذهان ويكفيك شرف المحاولة

2 ساعات مضت, Moosak said:

عشان عندي كم ملاحظة 😏

غلطة الشاطر بـ 1000

كده انا 7/10 😭

**Moosak** · أبريل 17, 2022

3 ساعات مضت, ابو جودي said:

غلطة الشاطر بـ 1000

كده انا 7/10 😭

الأخطاء تعلمنا الصواب ..

وتذكرنا بأننا مجرد بشر وعلمنا محدود 🙂

المهاجر ابو معاذ · أبريل 19, 2022

السلام عليكم ورحمة الله وبركاته

محتاج كود عند الغاء سطر من الفاتورة مثلا او اى الغاء يعطى رسالة ( نعم - لا ) اى الالغاء او الرجوع عن الالغاء

**Moosak** · أبريل 19, 2022

وعليكم السلام ورحمة الله وبركاته أخي المهاجر ..

قم بفتح موضوع جديد أخي العزيز وستجد ما يسرك إن شاء الله 🙂

ولو بحثت في المنتدى متأكد أنك ستجد الكثير من المواضيع في ما يخص ( رسالة تأكيد قبل الحذف )

تم تعديل أبريل 19, 2022 بواسطه Moosak

**Moosak** · أبريل 19, 2022

6 ساعات مضت, المهاجر ابو معاذ said:

محتاج كود عند الغاء سطر من الفاتورة مثلا او اى الغاء يعطى رسالة ( نعم - لا ) اى الالغاء او الرجوع عن الالغاء

ولكن كمساعدة سريعة ضع هذا الكود في حدث قبل تأكيد الحذف للنموذج BeforeDelConfirm وغير الرسالة كما تحب 🙂

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer) 
 
   Dim strMessage As String 
   Dim intResponse As Integer 
 
On Error GoTo ErrorHandler 
 
   ' Display the custom dialog box. 
   strMessage = "Would you like to delete the current record?" 
   intResponse = MsgBox(strMessage, vbYesNo + vbQuestion, _ 
               "Continue delete?") 
 
   ' Check the response. 
   If intResponse = vbYes Then 
      Response = acDataErrContinue 
   Else 
      Cancel = True 
   End If 
 
   Exit Sub 
 
ErrorHandler: 
   MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description 
End Sub

تسجيل الدخول

مساعدة في كود منع التكرار

الردود الموصى بها

Radwan0

ابوبسمله

ابو جودي

ابو جودي

Moosak

ابوبسمله

Moosak

ابوبسمله

Moosak

ابوبسمله

ابو جودي

ابو جودي

Moosak

ابو جودي

Moosak

المهاجر ابو معاذ

Moosak

Moosak

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information