please CMIIW sAA.move next di letakan sebelum loop.......sebenernya program nya jalan cuma looping tiada akhir aja.......
----- Original Message ----- From: "Hasan" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Wednesday, December 07, 2005 8:32 AM Subject: [Programmer-VB] Salah nya apa y?? > Saya pake script ini, tp pas di runing ko ga ada > respon apa2 y, error or apa gitu, pdhl setau saya > kondisi looping terpenuhi deh, mgkn ada diantara > rekan2 yg bisa tau salahnya dari script berikut ini: > Private Sub cmdalocate_Click() > > Set sAA = New ADODB.Recordset > Set sAB = New ADODB.Recordset > > Dim strsql1 As String > Dim strsql3 As String > > Dim iVariable As Integer > Dim iData As Integer > Dim rs As New ADODB.Recordset > Set rs = New ADODB.Recordset > > strsql1 = "select SKU,STRATEGYKEY from SKU" > sAA.Open strsql1, con, adOpenDynamic, adLockOptimistic > If SKU = Txtcommodity.Text And STRATEGYKEY = STD2_5 > Then > Do Until sAA.EOF > > strsql3 = "SELECT LOT,LOC,QTY from LOTXLOCXID > WHERE QTY <> 0, LOT in (select LOT from LOTATTRIBUTE > WHERE STORERKEY= '" & Form1.txtseller.Text & "', > SKU='" & Txtcommodity.Text & "', LOTTABLE05 'IS NOT > NULL' )" > sAB.Open strsql3, con, adOpenDynamic, > adLockOptimistic > If (qty = qty(strsql3)) Then > > If iVariable = Txtopen.Text Then > rs.Open "Select qty from lotxlocxid order > by qty",con > For iData = 1 To rs.RecordCount() > If iVariable <> 0 Then > Do Until iVariable = 0 > iVariable = iVariable - qty > rs!qtyallocated = iVariable > rs.MoveNext > Loop > MsgBox "Hasilnya sudah 0 di data > ke " & iData > Else > MsgBox "Hasilnya sudah 0 di > data ke " & iData > End If > Exit For > Next > End If > > End If > Loop > End If > End Sub > > > Dari If..Then distrsql1 die lgs ke End If paling > ahir... > Tolong bantu saya y... > > > Thanx.. > > Hasan > MM2100 > > > > __________________________________________ > Yahoo! DSL - Something to write home about. > Just $16.99/mo. or less. > dsl.yahoo.com > > > > > Untuk keluar dari millis ini, kirim email kosong ke: > [EMAIL PROTECTED] > > > Yahoo! Groups Links > > > > > ------------------------ Yahoo! Groups Sponsor --------------------~--> Most low income households are not online. Help bridge the digital divide today! http://us.click.yahoo.com/I258zB/QnQLAA/TtwFAA/k7folB/TM --------------------------------------------------------------------~-> Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/Programmer-VB/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
