طلب المساعدة لتعديل كود عدم تكرار الرقم

[ابو عبدالحميد]

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

اسعدالله مسائكم بكل خير

لدي برنامج (ارقام التحويلات) وبسيط جداً بعملي وفيه نموذج ادخال البيانات والارقام

ولكن يوجد خطأ في الكود عند تعديل الرقم في ( Transfer NO) مع شرط عدم التكرار عند التعديل والاضافة ايضاً

----------

ولماذا البرنامج لا يتوافق مع ويندوز XP  مع اني عملت البرنامج على (اكسس 2003) وتم تحويله على (اكسس 2010 )

وتم تقسيم قاعدة البيانات ان تعمل على داخل شبكة العمل وتم عمل له setup.exe مع انه تم اعطاء كل الصلاحيات للأنظمة

مع ان البرنامج يشتغل على كل الانظمة ما عدا (ويندوز XP )

افيدوني بارك الله فيكم هل يوجد طريقة اخرى  ؟

وجزاكم الله خير

abc1.rar

[Shivan Kurdi]

12 ساعات مضت, ابو عبدالحميد said:

ولكن يوجد خطأ في الكود عند تعديل الرقم في ( Transfer NO) مع شرط عدم التكرار عند التعديل والاضافة ايضاً

عندك هذا الكود في حقل ترانسفير نو بعد تحديث

Private Sub asd22_AfterUpdate()
Dim A
    A = DLookup("[ID9]", "[Tas7]", "[asd22] =form![asd22]")

If (Eval("DLookUp(""[asd22]"",""[Tas7]"",""[asd22] =form![asd22]"") Is Not Null")) Then
    Beep
        MsgBox "Sorry this number is already registered!", vbInformation
           Me.Undo
                DoCmd.GoToRecord , , acGoTo, A
                Me.Refresh
                    End If
'-----------
End Sub

كان من الاحسن ان تستخدم هذا جزء منه قبل تحديث الحقل وليس بعد تحديث ولكن يمكن تستخدمه بعده ايضا

If (Eval("DLookUp(""[asd22]"",""[Tas7]"",""[asd22] =form![asd22]"") Is Not Null")) Then
    Beep
        MsgBox "Sorry this number is already registered!", vbInformation
           Me.Undo
End If

 

[ابو عبدالحميد]

 اخي     Shivan Rekany

  اشكرك على المساعدة ولكن نفس المشكلة ياريت يتم التعديل على نفس  النموذج المرفق بارك الله فيكم

في ١٨‏/١‏/٢٠١٨ at 15:24, ابو عبدالحميد said:

 

ولماذا البرنامج لا يتوافق مع ويندوز XP  مع اني عملت البرنامج على (اكسس 2003) وتم تحويله على (اكسس 2010 )

وتم تقسيم قاعدة البيانات ان تعمل على داخل شبكة العمل وتم عمل له setup.exe مع انه تم اعطاء كل الصلاحيات للأنظمة

مع ان البرنامج يشتغل على كل الانظمة ما عدا (ويندوز XP )

افيدوني بارك الله فيكم هل يوجد طريقة اخرى  ؟

وجزاكم الله خير

abc1.rar

 

[ابو عبدالحميد]

up

 

[ابو عبدالحميد]

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

فضلاً لا امراً  من لديه الخبرة لإجاد حل المشكلة في البرنامج

وجزاكم الله خير

abc1.rar

 

[ابو عبدالحميد]

ساعدوني هل من مجيب