RE: [Programmer-VB] Salah nya apa y??

Ronald Irawan Tue, 06 Dec 2005 18:32:21 -0800

Yo wis,, gabungken saja kedua post sebelumnya, seperti nya beres :)

Salam
Ronald Irawan
Pt. Sanghiang Perkasa
Gd. Graha Kirana Lt.5
Jl Yos Sudarso Kav.88
Jakarta

"Sistyo Alfan Tribowo" <[EMAIL PROTECTED]>
Sent by: [email protected]

07/12/2005 09:14 AM

Please respond to
[email protected]

To	<[email protected]>
cc
Subject	RE: [Programmer-VB] Salah nya apa y??

Tapi sampeyan juga bener kok..
Kalau hasil If nya true..
Dia akan jadi never ending loop, soalnya rs nya gak move

-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of JemyX Shinichi
Sent: 07 December 2005 09:06
To: [email protected]
Subject: Re: [Programmer-VB] Salah nya apa y??

hehehe ga yakin sich......mungkin bener nich jawaban mas sistyo.....maaf mas hasan........
----- Original Message -----
From: Sistyo Alfan Tribowo
To: [email protected]
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
>
>
>
>
>

Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]

Programmer	Indonesia	Basic programming language
Computer programming languages	Programming languages	Java programming language

RE: [Programmer-VB] Salah nya apa y??

Kirim email ke