سورس توليد شماره [بایگانی]

sabair

سه شنبه 25 فروردین 1388, 16:48 عصر

دوستان سلام
آيا كسي سورس با برنامه درمورد توليد شماره دارد مثلا
09122502200
تا شماره
09122502300
شماره ايجاد كن
09122502200
09122502201
09122502202
09122502203
و...
تا
09122502300
توليد كند
كسي دارد
متشكرم

nima_8m

سه شنبه 25 فروردین 1388, 17:26 عصر

salam are in barname ke ferstadam hame on kara ro be khobi anjam mide moafagh bashi
nima
http://persiandrive.net/175866

xxxxx_xxxxx

سه شنبه 25 فروردین 1388, 20:57 عصر

منظورتون چيه؟
خب مگه با يه حلقه نميشه اين كارو كرد؟
فقط 3 رقم سمت راست توليد شن و مابقي تو خروجي بهش اضافه شه

majjjj

چهارشنبه 26 فروردین 1388, 08:17 صبح

If Text1.Text = Empty Or Text2.Text = Empty Then
MsgBox "ÇÚÏÇÏ æÇÑÏ ÔÏå ÕÍíÍ äãíÈÇÔÏ", vbOKOnly, "ÎØÇ"
Text1.SetFocus
Exit Sub
End If
If (Val(Text2.Text)) - (Val(Text1.Text)) < 0 Then
MsgBox "ÇÚÏÇÏ æÇÑÏ ÔÏå ÕÍíÍ äãíÈÇÔÏ", vbOKOnly, "ÎØÇ"
Text1.SetFocus
Exit Sub
End If
For i = Val(Text1.Text) To Val(Text2.Text)
DoEvents
RS.AddNew
RS.Fields("test") = i
Next

یک نمونه کوچیک براتون گذاشتم

parselearn

چهارشنبه 26 فروردین 1388, 10:48 صبح

فقط يك حلقه For

For i = CInt(Text2.Text) To CInt(Text3.Text)
List1.AddItem CStr(Text1.Text) + CStr(i)
Next i

sina26

چهارشنبه 26 فروردین 1388, 12:53 عصر

سلام
با تشکر از دوست خوب مان من با اجازه سورس ایشون یه دستکاری کوچک کردم و دوباره در آدرس زیر آپ میکنم امیدوارم مورد استفاده قرار گیرد

http://www.4shared.com/file/98654831/beb81eee/AutoNomber.html

موفق باشید

850725115

جمعه 28 فروردین 1388, 00:11 صبح

خود خودششه