رسالة عند عدم صحة البيانات

[عمر طاهر]

السلام عليكم

أرجو التعديل على المرفق بحيث يعطيني رسالة عند عدم صحة الكود 

ولكم جزيل الشكر

dlook.accdb

[SEMO.Pa3x]

عليكم السلام، اخي وضح طلبك بالضبط نحن لا نعمل بالتكهنات

[kha9009lid]

4 ساعات مضت, عمر طاهر said:

يعطيني رسالة عند عدم صحة الكود

ممكن

نحجز متغير

Dim x As Byte

نجعل المتغير يعد السجلات بمعيار رقم الكود

x = DCount("*", "part", "[cpart]=[aa]")

نضع شرط اذا كان العدد لا يساوي صفر ينفذ الاجراء

If x <> 0 Then
bb = DLookup("[npart]", "part", "[cpart]=[aa]")

اذا لم يتحقق الشرط يظهر رسالة بعدم صحة الكود ويفرغ حقلي aa و bb ثم ننهي الجملة الشرطية

Else
MsgBox "رقم الكود غير صحيح حاول مرة اخرى", vbCritical, "خطأ"
aa = Null
bb = Null
End If

يكون الكود كاملا بالشكل التالي

Dim x As Byte
x = DCount("*", "part", "[cpart]=[aa]")
If x <> 0 Then
bb = DLookup("[npart]", "part", "[cpart]=[aa]")
Else
MsgBox "رقم الكود غير صحيح حاول مرة اخرى", vbCritical, "خطأ"
aa = Null
bb = Null
End If

مرفق الملف بعد التعديل

 

dlook.accdb

[kha9009lid]

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

ن

نحجز متغير

Dim x As Byte

استدراك حتى لا نحصل على رسالة خطأ اذا كان عدد السجلات كبير نستبدل 👇

Dim x As Byte
بـ
Dim x As Long
او
Dim x As Integer

Byte = 0 to 255
Integer = -32,768 to 32.767
Long =  -2,147,483,648 to +2,147,483,647

والله الموفق

تم تعديل يونيو 13, 2021 بواسطه kha9009lid

[عمر طاهر]

21 ساعات مضت, SEMO.Pa3x said:

عليكم السلام، اخي وضح طلبك بالضبط نحن لا نعمل بالتكهنات

العمل 

عند ادخال كود مادة يعطي السعر في مربع bb

المطلوب اعطائي رسالة عند ادخال كود مادة خاطئ

وشكرا

19 ساعات مضت, kha9009lid said:

ممكن

نحجز متغير

Dim x As Byte

نجعل المتغير يعد السجلات بمعيار رقم الكود

x = DCount("*", "part", "[cpart]=[aa]")

نضع شرط اذا كان العدد لا يساوي صفر ينفذ الاجراء

If x <> 0 Then
bb = DLookup("[npart]", "part", "[cpart]=[aa]")

اذا لم يتحقق الشرط يظهر رسالة بعدم صحة الكود ويفرغ حقلي aa و bb ثم ننهي الجملة الشرطية

Else
MsgBox "رقم الكود غير صحيح حاول مرة اخرى", vbCritical, "خطأ"
aa = Null
bb = Null
End If

يكون الكود كاملا بالشكل التالي

Dim x As Byte
x = DCount("*", "part", "[cpart]=[aa]")
If x <> 0 Then
bb = DLookup("[npart]", "part", "[cpart]=[aa]")
Else
MsgBox "رقم الكود غير صحيح حاول مرة اخرى", vbCritical, "خطأ"
aa = Null
bb = Null
End If

مرفق الملف بعد التعديل

 

dlook.accdb 500 kB · 12 downloads

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

ممنونك

[SEMO.Pa3x]

تفضل:

    If DCount("[npart]", "part", "cpart=" & aa) > 0 Then
        MsgBox "Exist !"
    Else
        MsgBox "Not Exists"
    End If

 

[عمر طاهر]

في ١٤‏/٦‏/٢٠٢١ at 10:46, SEMO.Pa3x said:

تفضل:

    If DCount("[npart]", "part", "cpart=" & aa) > 0 Then
        MsgBox "Exist !"
    Else
        MsgBox "Not Exists"
    End If

 

ممنونك اخي

شكرا