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

Question

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

Answer 1

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/

Answer 2

Does this loop go on forever? It's because every time you are pulling the value of spot.text and that value doesn't change. Just try moving the line lop = spot.text outside of your outer loop and see if that will help.

I just glanced at this quickly but that's what I would recommend trying.

Answer 3

spot.Text has everytime the same value. Assign lop = spot.Text before the loop starts. And then say
lop = lop - 1

Otherwise you have a endless loop

Helmut

Answer 4

im gonna say cheerios (= reason i had a nasty incident with fruit loops a lengthy time period again. one time i develop into eating fruit loops very previous due at evening with milk. i finished the bowl yet in it remained leftover milk. i develop into so sleepy i did not wash the bowl and left the milk there. the subsequent 2 days or so i develop into so busy with homework, i did not difficulty to do something else. so the bowl with the milk stayed there. the weekend got here and that i eventually said my leftover milk cereal bowl. one look at it and that i said the milk had grew to develop into into sturdy. so demanding the spoon develop into glued contained in the middle. ewww!!! from that day on, i hated fruit loops. wow.