الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تحويل الرقم إلى نص مكون من عدة خانات

مغلق
بدأه human2x في 12 مايو 2007 · 4 رد · 1,158 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أنا الآن شغال في مشروع وعندي مشكلة بسيطة جداً ألا وهي أنه عندما يدخل الرقم 1 على سبيل المثال في حقل نص فإني أريد أن أحفظه بالشكل التالي (00001)

يعني أريد أن أحول الرقم إلى نص مكون من خمس خانات بحيث أن أي رقم يدخل في مربع النص يتحول مباشرة إلى خمس خانات تبدأ بالأصفار من اليسار.

أمثلة

00099

00015

00152

00007

وهكذا

#2

في المرفقات

kindy.rar

سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته

#3

روح يا عم ربنا ما يحرمناش منك

#5

طريقة اخرى فى حالة اضافة الرقم تلقائيا

Public Sub Autojv()
	Dim rs As New ADODB.Recordset

	rs.Open "select max(EntryNo) from cash", con1, adOpenStatic, adLockPessimistic
	If IsNull(rs(0)) = False Then
		Text1 = Format(rs(0) + 1, "00000")
	Else
		Text1 = "00001"
	End If
	rs.Close
	Set rs = Nothing
End Sub

KHALED_HELAL

هذا الموضوع مغلق.

مواضيع مشابهة