• 0
عروبة

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

سؤال

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

(1)

أريد لحقل في الجدول أن يكون بالشكل التالي:

أربعة أرقام تلقائية يولدها النظام من 0001 إلى ما شاء الله

ثم 3 أرقام أو حروف يضعها المستخدم يدويا

مثلا:

0001ِA1A

فهل من سبيل لصنع قناع إدخال بسيط وميسر؟

(2)

وماذا لو أردت الشيء نفسه لكن مع إضافة وهي ظهور رقمين للسنة؟

يعني 4 أرقام تلقائية ثم 3 أرقام أو حروف أضيفها أنا ثم شرطة ثم خانتين للسنة الحالية وهي 07

يعني مثلا

0001D3W07

هل يمكن عمل ذلك عن طريق قناع الإدخال دون الحاجة إلى استعلام؟

هلا أفدتموني أفادكم الله.

شكرا وجزاكم الله كل خير :)

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

5 إجابة على هذا السؤال .

  • 0

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

قناع الادخال

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

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

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

اخوك فى الله

412.rar

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا، جزاكما الله كل خير :)

Dream_Works

أين أضع الكود الذي وضعته في المربع؟

قناع الإدخال بالفعل وضعته 0000????00

لكن الكود أين أضعه بالضبط؟

ahamied

هذا بالضبط ما أريد

استأذنك بأن تشرح لي كيف جعلته يضع السنة الحالية في آخر خانتين

وشكرا :)

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

ان الوظيفة 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

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

اخوك فى الله

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا

جزاك الله كل خير :)

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .