قناع للرسالة لحروف لوحة السيارة

بسم الله الرحمن الرحيم

ارفق مثالك اخي الكريم وان شاء الله يتم مساعدتك

المثال مرفق .

شكرا لك .

db3.rar

اخي الكريم

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

عن طريق فورمات

db3up.rar

وهذا ثلاث أحرف فقط وأربع أرقام فقط

db3.rar

أخي الكريم ...

ليس هذا المقصد ..

أنا اريد إظهار رسالة تفيد بأن الرقم والحروف قد تكررت عدد كذا

ويكون الحروف في الرسالة تحمل نفس قناع الحروف( م - م - م )

وقد استخدمت الكود وهو يؤدي المطلوب بشكل جيد ... لكن ينقصه أن تظهر الحروف فيه بشكل قناع ( م-م-م)

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

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

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

لذا سأجاوبك الآن على هذا الأساس

غير سطر الكود التالي من كودك الذي ذكرته

st = Me.txtno & " " & Me.txtno2

إلى التالي (مع أني لاحظت أن أسماء مربعات النص إختلفت بين كودك والمثال الذي أرفقته في هذا الموضوع والذي قبله ... عموما غير اللازم إذا إحتاج الأمر)

st = Left(Me.txtid1, 1) & " - " & Mid(Me.txtid1, 2, 1) & " - " & Right(Me.txtid1, 1) & " " & Me.txtid2

وبالتوفيق

أشكركم أخواني انحلت المسألة ..

وعذرا للأخ just now لم أنتبه لمداخلتك وحلك هو المطلوب .

شكرا أخي koao نعم فقد غيرت في مسميات الحقول ... ولا أملك لكم إلا الدعاء ...

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

جزاكم الله عنا كل خير إخواني الأعزاء just now \ koao