pls help,
Apa yg salah di scrip sy ini, erornya ‘3709’ (lihat gambar)
sy pake 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
