RE: [Programmer-VB] Tolongin dong....

[Sistyo Alfan Tribowo]

Hapus & _ Sebelum rsCheck.MoveNext   From: Programmer-VB@yahoogroups.com [mailto:Programmer-VB@yahoogroups.com] On Behalf Of Hasan Sent: Tuesday, April 18, 2006 8:55 AM To: Programmer-VB@yahoogroups.com Subject: [Programmer-VB] Tolongin dong....   Rekans... Saya mi minta tlg neh..,kenapa y script berikut  sll klr error "Expected Function Or Variable", pdhl diatasnya msh ada script lg, tp die sll aja lgs error, jadi kesannya die ga baca script yg diatasnya....,tlg y rekans,bantu saya..,ini scriptnya : Set rsCheck = New ADODB.Recordset     rsCheck.Open "select * from pickdetail where orderkey='" & txtwho.Text & "' ", con, adOpenDynamic     Do Until rsCheck.EOF         lot = Trim(rsCheck!lot)         loc = Trim(rsCheck!loc)         qty = Trim(rsCheck!qty)         Dim rslotx As New ADODB.Recordset         Set rslotx = New ADODB.Recordset         rslotx.Open "select * from lotxlocxid where lot='" & lot & "' and loc='" & loc & "'", Cn         qtyAll = rslotx!QtyAllocated         qtyAll = qtyAll - qty         Cn.Execute " Update lotxlocxid set qtyallocated='" & qtyAll & "' where " & _                     " lot='" & lot & "' and loc='" & loc & "' " & _     rsCheck.MoveNext     Loop Yang diblok selalu rsCheck.movenext... Thanx... Hasan __________________________________________________ Do You Yahoo!? Tired of spam?  Yahoo! Mail has the best spam protection around http://mail.yahoo.com Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut:     http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke:     [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini:     Yahoo! Messenger: wahanaprogrammer YAHOO! GROUPS LINKS  Visit your group "Programmer-VB" on the web.    To unsubscribe from this group, send an email to:  [EMAIL PROTECTED]    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.