 Watchband JB Leather C ring loop end calf lizard suede $4.00 Time Remaining: 25d 16h 31m Buy It Now for only: $4.00 |
 22mm Silicon Rubber Band diving Watch Strap White NEW Design Replacement Parts $10.00 Time Remaining: 2h 53m Buy It Now for only: $11.00 |
 22mm Italy Genuine Leather Watch Strap Vintage Tan New $15.00 (1 Bid) Time Remaining: 8h 57m |
 18mm Di Modell CASHMERE model Watch Band BLACK Leather Strap Item D292 $17.95 Time Remaining: 25d 9h 55m Buy It Now for only: $17.95 |
 24mm Italy waterproof soft leather Watch Strap black $15.00 Time Remaining: 9h Buy It Now for only: $16.50 |
 Mil Spec Buffer Tube + Ambi loop End Plate BONUS COMBO $19.99 Time Remaining: 20d 7h 49m Buy It Now for only: $19.99 |
 22mm Silicon Rubber Band diving Watch Strap Red NEW design Replacement Parts $10.00 Time Remaining: 1d 7m Buy It Now for only: $11.00 |
 22mm Genuina Leather Watch Strap Vintage Classic Montana Tan replacement Parts $30.00 Time Remaining: 1d 11h 44m Buy It Now for only: $33.00 |
 18mm Di Modell POLO SHERPA Watch Band Cognac WATERPROOF Leather Strap Item D269 $24.95 Time Remaining: 21d 2h 23m Buy It Now for only: $24.95 |
 24mm Italy Genuine Leather Watch Strap Vintage Black $21.00 Time Remaining: 1d 11h 45m Buy It Now for only: $23.50 |
 Black G10 NATO 5 Loop Zulu Nylon Watch Strap Fast Delivery from UK $12.47 Time Remaining: 21d 6h 2m Buy It Now for only: $12.47 |
 22mm Genuine Leather Watch Strap Vintage Montana Tan $30.00 Time Remaining: 1d 11h 53m Buy It Now for only: $33.00 |
 24mm Italy waterproof soft leather Watch Strap black replacement parts new $16.00 Time Remaining: 1d 11h 54m Buy It Now for only: $17.60 |
 Velcro Sport Watch Band Green and Black $6.99 Time Remaining: 19d 12h 45m Buy It Now for only: $6.99 |
 24mm Genuina Leather Strap Vintage Montana Dark Brown $30.00 Time Remaining: 1d 12h 2m Buy It Now for only: $33.00 |
 Di Modell OREGON 18mm Watch Band Tan Calf Strap Made in Germany Item D281 $22.95 Time Remaining: 21d 2h 35m Buy It Now for only: $22.95 |
 24mm Silicon Rubber Band diving Watch Strap blue NEW Desidn Replacement Parts $10.00 Time Remaining: 2d 2m Buy It Now for only: $11.00 |
 24mm Silicon Rubber Band diving Watch Strap Blue NEW Desidn Replacement Parts $10.00 Time Remaining: 2d 2m Buy It Now for only: $11.00 |
 22 mm Rubber Divers watch band extra heavy duty Italy made by Bonetto Cinturini $30.00 Time Remaining: 3d 11h 11m Buy It Now for only: $30.00 |
 24mm ZENO WATCH BASEL Silicon Rubber Band diving Watch Strap Green Replacement $23.00 Time Remaining: 2d 36m Buy It Now for only: $26.00 |
 Chinese Version of Zi Xiu Tang Bee Pollen Weight Loss Supplement The Real Deal $14.50 Time Remaining: 10d 6h 21m Buy It Now for only: $14.50 |
 22mm Blue Italy soft genuine leather Watch Strap replacement parts new design $17.00 Time Remaining: 2d 37m Buy It Now for only: $18.70 |
 25mm Silicon Rubber Band diving Watch Strap Black NEW $22.00 Time Remaining: 2d 8h 59m Buy It Now for only: $24.50 |
 Di Modell GermanySADDLE DAKAR 18mm Watch Band BLACK Genuine Calf Strap D282 $19.95 Time Remaining: 21d 2h 36m Buy It Now for only: $19.95 |
 24mm Silicon Rubber Band diving Watch Strap Black NEW Desidn Replacement Parts $10.00 Time Remaining: 2d 9h 7m Buy It Now for only: $11.00 |
 18mm New Di Modell Gaucho Chrono Watch Band BLACK Leather Strap item D294 $22.95 Time Remaining: 25d 10h 25m Buy It Now for only: $22.95 |
 20mm Italy Genuine Leather Strap Watch Black New Design $8.00 Time Remaining: 2d 9h 7m Buy It Now for only: $8.80 |
 24mm Italy Calf skin leather Strap Handmade Paint blue Watch replacement Parts $45.00 Time Remaining: 2d 21h 33m Buy It Now for only: $50.00 |
 OCEAN JASPER Interchangeable Beaded WATCH BAND or MEDICAL ID TAG BRACELET $8.99 Time Remaining: 28d 9h 59m Buy It Now for only: $8.99 |
 26mm Genuina Leather Watch Strap Vintage Classic Montana Tan replacement Parts $30.00 Time Remaining: 2d 22h 30m Buy It Now for only: $33.00 |
 2 Extra Large Praying Mantis Egg Cases Organic Garden Responsibly Harvested $10.00 Time Remaining: 29d 12h 18m Buy It Now for only: $10.00 |
 24mm Red Italy soft genuine leather Watch Strap replacement parts new design $17.00 Time Remaining: 3d 8h 38m Buy It Now for only: $18.70 |
 18mm Genuine Stingray Watch strap buckle Lake Green NEW DESIGN replacement parts $21.00 Time Remaining: 3d 8h 53m Buy It Now for only: $24.00 |
 New NatoZULU STYLEBlueSatin BuckleSz 18 mm $20.70 Time Remaining: 12d 1h 3m Buy It Now for only: $20.70 |
 24mm Genuina Leather Watch Strap Vintage Classic Montana Black Handmade Parts $22.00 Time Remaining: 3d 15h 59m Buy It Now for only: $24.20 |
 16mm Watch Leather Band Strap with Buckle Brown $7.15 Time Remaining: 2d 14h 18m Buy It Now for only: $7.15 |
 24mm Silicon Rubber Band diving Watch Strap Blue NEW Desidn Replacement Parts $10.00 Time Remaining: 3d 16h 1m Buy It Now for only: $11.00 |
 24mm Genuina Leather Watch Strap Vintage Classic Montana Tan Handmade Parts $22.00 Time Remaining: 3d 16h 2m Buy It Now for only: $24.20 |
 New Lcd Screen Display For LG GT540 GT 540 Optimus $18.08 Time Remaining: 18d 3h 25m Buy It Now for only: $18.08 |
 24mm Blue Italy soft genuine leather Watch Strap replacement parts new design $17.00 Time Remaining: 3d 16h 5m Buy It Now for only: $18.70 |
 Di Modell Rallye WR100m perforated black watch band $34.99 Time Remaining: 9d 19h 15m Buy It Now for only: $34.99 |
 22mm Italy Genuine Leather Strap Vintage Dark Brown Watch parts replacement $15.00 Time Remaining: 3d 21h 47m Buy It Now for only: $16.50 |
 24mm Leather Watch Strap black carbon fiber New Design $15.00 Time Remaining: 4d 1h 19m Buy It Now for only: $16.50 |
 Di Modell WATERPROOF SPORT 18mm Watch Band BLACK Strap Item D277 $19.95 Time Remaining: 21d 2h 32m Buy It Now for only: $19.95 |
 24mm Leather Watch Strap black carbon fiber New Design $15.00 Time Remaining: 4d 1h 21m Buy It Now for only: $16.50 |
 18mm Di Modell HAVANA Watch Band BLACK Leather Strap Made in Germany item D289 $17.95 Time Remaining: 25d 8h 29m Buy It Now for only: $17.95 |
 22mm Italy Genuine Leather Watch Strap Vintage Black $21.00 Time Remaining: 4d 1h 21m Buy It Now for only: $23.50 |
 24mm Leather Watch Strap black carbon fiber New Design $15.00 Time Remaining: 4d 1h 23m Buy It Now for only: $16.50 |
 Black Nylon G10 NATO Zulu Watch Strap 3 Loop Fast Delivery from UK $10.96 Time Remaining: 5d 20h 39m Buy It Now for only: $10.96 |
 18mm Genuine Stingray Watch strap black deployment NEW DESIGN replacement parts $29.00 Time Remaining: 4d 6h 47m Buy It Now for only: $32.00 |
how to make loop in vb a custem loop like i enter text box and user put value to loop any comd valued text box
This Code dose not work for my i write this code may help u to help me Do Until lop2 = 0 lop = spot.Text lop2 = lop - 1 For i = 1 To CountFilesInList(.FileName) ' Check the file size namee = Dir(GetFileFromList(.FileName, i)) Select Case FileLen(GetFileFromList(.FileName, i)) Case Is > 0 Do lop = spot.Text - 1 adinfoc.Recordset.AddNew adno = adinfoc.Recordset.RecordCount + 1 adname = namee adtime = time.Text addate = adate.Value adpath = GetFileFromList(.FileName, i) adinfoc.Recordset.Update Loop End With Case Else End Select Next
It seems that you have a making of an infinite loop here. You have to make sure that lop2 will eventually equal to 0. Try changing 'Do Until lop2 = 0' to 'Do Until lop2 < 0'. Then see if it works. For free VB source codes, visit, http://smartcoder.awardspace.com/ KaBalweg http://smartcoder.awardspace.com/