قناع إدخال: جزء يدوي وجزء رقم متسلسل؟

يمكن عمل ذلك بتعديل قناع الادخال ووضع الكود

قناع الادخال

0000????00

الكود

Private Sub Form_Current()
Dim currentYear As String, TextCounter As String
' If you have a record source you can use Me.CurrentRecord instead of Counter
Static Counter As Integer
Counter = Counter + 1
With Me.Text0
TextCounter = Format(Counter, "0000")
currentYear = Right(DatePart("yyyy", date), 2)
.Value = TextCounter & "   -" & currentYear
.SetFocus
.SelStart = 4
End With
End Sub

السلام عليكم

اخي الكريم من الواضح انك تريد فقط ادخال رمز وليكن ASD وبذلك يتم انشاء كود للسطر يتكون من الكود ASD + اخر رقمين فى تاريخ السنة الحالية + رقم من 1 الي 9999 تلقائي-

اي يجب ان يكون هناك حقل لادخال الرمز ثم يظهر المسلسل التلقائي بحقل اخر

اذا كان ما فهمته صحيح ان شاء الله المرفق بيظبط معاك

اخوك فى الله

412.rar

السلام عليكم

العضو الكريم :

ان الوظيفة now تاتي لنا بتاريخ اليوم مع الوقت فى لحظة استدعاء الوظيفة فى تنسيق

yyyy-mm-dd HH:MM:SS

اي كان التنسيق فان اول اربع حروف من جهة اليسار هي 2007 فرضا

وثاني حرفين من جهة اليمين للعام 2007 هما 07

يعني بالكود

Right(Left(Year(Now()), 4), 2)

مثال اخر :

ِنريد ان يكون مربع نص Txt5 = اول اربع حروف من اليمين من ما يحتويه مربع نص Txt6

me.Txt5=Right(Txt6,4

ثم اغلق القوس

لو مربع Txt5 يحتوي كلمة الحمد لله فان مربع Txt6 سيحتوي الحم

ولو مربع Txt5 يحتوي كلمة ArabTeam فان مربع Txt6 سيحتوي Team

ان شاء الله يكون سهل المثال

اخوك فى الله