coba kalo di genti jadi If val(qty_txt.Text) > val(rs2!SALDO) Then
bisa ga? ________________________________ From: mr-BIG <[email protected]> To: Programmer Indonesia <[email protected]>; Warung VB <[email protected]>; [email protected] Sent: Wed, July 28, 2010 10:33:36 AM Subject: [programmer-vb] Error di VB 6 [1 Attachment] [Attachment(s) from mr-BIG included below] pls help, > >Apa yg salah di scrip sy ini, erornya ‘3709’ (lihat gambar) > >sypake VB 6 , pada saat diketik jumlah brg pada qty-txt, maka akan dicek saldo >berdasarkan kd_brg yg diinput > > > > >Private Sub qty_txt_Keypress( KeyAscii As Integer) > > Dim rs2 As New ADODB.Recordset > Set rs2 = New ADODB.Recordset > > rs2.Open "Select sum(jmlh_qty) as SALDO from kartu_stock where kd_brg='" & >kd_brg_txt & "', cn, adOpenDynamic, adLockOptimistic" > > > If qty_txt.Text > SALDO Then > MsgBox ("SALDO Barang Tidak Mencukupi... !!"), > vbOKOnly, >"Cetak Formulir" > > Else > End If > > qty_txt.SetFocus > >End Sub > > >Tks b4 >
