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
------------------------ Yahoo! Groups Sponsor --------------------~-->
1.2 million kids a year are victims of human trafficking. Stop slavery.
http://us.click.yahoo.com/WpTY2A/izNLAA/yQLSAA/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/
