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

[Radwan0]

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

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

 

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

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

 

[ابوبسمله]

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

الله اكرم

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

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

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

بالتوفيق

[ابو جودي]

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   الى اسم الجدول تبعك

[ابو جودي]

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

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

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

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

[Moosak]

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 😅👊

[ابوبسمله]

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

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

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

 

 

[Moosak]

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

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

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

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

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

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

[ابوبسمله]

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

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

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

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

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

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

منذ ساعه, Moosak said:

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

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

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

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

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

[Moosak]

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

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

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

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

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

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

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

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

[ابوبسمله]

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

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

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

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

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

بالتوفيق

[ابو جودي]

السلام عليكم 

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

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

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

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

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

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

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

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

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

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

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

[ابو جودي]

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

 

 

[Moosak]

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

السلام عليكم 

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

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

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

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

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

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

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

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

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

 

[ابو جودي]

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

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

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

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

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

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

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

كده انا 7/10 😭

[Moosak]

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

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

كده انا 7/10 😭

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

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

 

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

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

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

[Moosak]

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

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

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

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

[Moosak]

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