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
<*> 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/
