اللهم صلي على محمد وعلى آل محمد كما صليت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
وبارك على محمد وعلى آل محمد كما باركت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
للفائدة :
فقد عدلت الكود ليعمل بدون الأعتماد على استعلام ويؤدي نفس الغرض ليصبح بهذا الشكل :
CountNum = DCount("*", "t_data", "[txtno2]=[Forms]![f_data]![txtno2]and [txtno]=[Forms]![f_data]![txtno] ")
Dim st As String
st = Me.txtno & " " & Me.txtno2
If CountNum > 1 Or CountNum = 1 Then
MsgBox "لوحة السيارة رقم : " & st & " تكررت : " & CountNum & " مرة."
Else
End Ifأشكرك مرة أخي Koao
عودة مرة أخرى :
كيف اعمل الرسالة تظهر حروف اللوخة بنفس شكل قناع حقل حروف السيارة .. مثال :
اللوحة رقم :( م - ص - د 1234 ) قد تكررت ( 5 ) مرات
حاولت استخدم : format ولم اتوصل للصيغة الصحيحة .
السلام عليكم ورحمة الله وبركاته
أخي الكريم .. أعجبتني فكرتك في الإستغناء عن الإستعلام في الكود الذي وضعته .. فجزاك الله خيرا
ولاحظت أنك إستخدمت الكود التالي
If CountNum > 1 Or CountNum = 1 Then
والأفضل إستخدام التالي
If CountNum >= 1 Then
وإستخدمت في الكود Else في الدالة الشرطية من دون الحاجة لها ..فالأفضل إزالتها
وبالنسبة لسؤالك عن ظهو الشرطه بين الحروف ... ففي مثالك المرفق لم أرى قناع إدخال ... عموما إذا كان المدخلة تكون حرف ثم مسافة وحرف ثم مسافة وحرف مثل ... ب ب ب
فللحصول على الشرطة بين الحروف في الرسالة ... غير السطر التالي من الكود الذي وضعته انت
st = Me.txtno & " " & Me.txtno2
إلى التالي
st = Replace(Me.txtid1, " ", " - ") & " " & Me.txtid2
وبالتوفيق
اللهم صلي على محمد وعلى آل محمد كما صليت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
وبارك على محمد وعلى آل محمد كما باركت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…