r u sure?
I think the problem is here
:
If SKU = Txtcommodity.Text And STRATEGYKEY =
STD2_5
You might want to wrote
If sAA(SKU) = Txtcommodity.Text And
sAA(STRATEGYKEY) = STD2_5
-----Original
Message-----
From: [email protected]
[mailto:[EMAIL PROTECTED] On
Behalf Of JemyX Shinichi
Sent: 07 December
2005 08:39
To:
[email protected]
Subject: Re: [Programmer-VB] Salah nya
apa y??
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
>
>
>
>
>
