Ok deh, mksh bgt buat smua masukannya....Ada errornya neh, tp lebih bgs deh drpd ga ada respon sama sekali,ga ketauan jalan or ga nya...
Thanx.... Hasan MM2100 --- Ronald Irawan <[EMAIL PROTECTED]> wrote: > 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] > > > > > > SPONSORED LINKS > > Programmer > Indonesia > Basic programming language > Computer programming languages > Programming languages > === message truncated === __________________________________________ Yahoo! DSL Something to write home about. Just $16.99/mo. or less. dsl.yahoo.com ------------------------ Yahoo! Groups Sponsor --------------------~--> Get Bzzzy! (real tools to help you find a job). Welcome to the Sweet Life. http://us.click.yahoo.com/KIlPFB/vlQLAA/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/
