رسالة عند عدم وجود هذا الرقم فى جدول اخر

[الحلبي]

السلام عليكم 

مرفق مثال 

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

رسالة تفيد بان الرقم المدخل موجود فى جدول اخر (items) او غير موجود

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

رسالة بعدم وجوده فى جدول اخر.accdb

[متقاعد]

2 ساعات مضت, الحلبي said:

رسالة تفيد بان الرقم المدخل موجود فى جدول اخر (items) او غير موجود

الطريقة الاولى بمصدر السجلات

If IsNull(Me.Text0) Then
GoTo k
Else
GoTo a
End If
a:
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT items.* FROM items;")
    rs.FindFirst "[barcod] =" & Me.Text0
    If Not rs.NoMatch Then
    MsgBox "الرقم مسجل"
    Else
    MsgBox "رقم غير مسجل"
    End If
rs.Close
Set rs = Nothing
Exit Sub
k:
MsgBox "اكتب رقم الباركود"

الثانية عد السجلات بواسطة دالة DCount

Dim x As Integer
x = DCount("[barcod]", "items", "[barcod]=" & Me.Text0)
If x > 0 Then
MsgBox "الرقم مسجل"
Else
MsgBox "رقم غير مسجل"
End If

مرفق الملف

 

رسالة بعدم وجوده فى جدول اخر(1).accdb

تم تعديل فبراير 28, 2023 بواسطه متقاعد
تصحيح رفع الملف

[الحلبي]

 

4 ساعات مضت, متقاعد said:

الثانية عد السجلات بواسطة دالة DCount

استاذى ومعلمى ومثقفى الاستاذ/ خالد

الله يرضى عنك ـ هذا طلبى فعلا ـ رحم الله والديك ـ وشفى الله والدك واعفى عنه واتم عليه الصحة والعافية يارب

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

جزاك الله كل خير ـ وجعله فى ميزان حسناتك

[متقاعد]

8 ساعات مضت, الحلبي said:

اشكرك شكر يعجز اللسان عنه

الشكر لله استاذي محمد ونحن في خدمتك دائما

8 ساعات مضت, الحلبي said:

وشفى الله والدك واعفى عنه واتم عليه الصحة والعافية يارب

احسن الله اليك وجزاك الله خير على الدعاء الطيب