----- Original Message -----
Sent: Wednesday,
December 07, 2005 8:53 AM
Subject: RE:
[Programmer-VB] Salah nya apa y??
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
>
>
>
>
>
