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

في المرفقات

kindy.rar

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

بسيطة

Dim x As String

x = Text1.Text

x= right( "00000" & x,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