bro, cmbJenisATK sampeyan tu kemungkinan isi listitems nya kosong pas tu
control ngeksekusi event onClick... Jadi pas dilakukan rs.open "SELECT
blablabla" klausa SQL WHERE JenisATK nya dianggap kosong.
sebenarnya itu ngga masalah sih. wajar2 aja klo hasil SELECT tidak
menghasilkan apa-apa (empty set). Nah, yg jadi masalah itu, sebenarnya di
code assignment value mu itu. lakukanlah pengecekan. coba liat code
tambahanku yg ku-bold :
Private Sub cmbJenisATK_Click()
Set rsJns = New ADODB.Recordset
rsJns.Open "select JenisATK, satuan, HargaSatuanAwal from " & _
" ATK where JenisATK ='" & cmbJenisATK.Text & "'", _
cn, adOpenDynamic, adLockOptimistican
*txtSatuan.Text = ""
txtHargaSatuanAwal.Text = ""*
*if rs.recordcount > 0 then*
*If isNull(rsJns("Satuan")) = False Then** _*
txtSatuan.Text = rsJns("Satuan")
*If isNull(rsJns("HargaSatuanAwal")) = False Then _*
txtHargaSatuanAwal.Text = rsJns("HargaSatuanAwal")
* end if*
End Sub
pengecekan pertama, rs.recordcount ~> ini dipake utk **memastikan** klo
assignment value ke txtSatuan ato txtHargaSatuanAwal *BARU
AKAN*dilaksanakan klo hasil SELECT memiliki minimal 1 resultset..
pengecekan kedua, isNull(rsJns("xxx") ~> ini dipake utk handler jika value
dari field "Satuan" ato "HargaSatuanAwal" siapatau berupa nilai NULL. kalo
NULL, assignment nilai NULL ke value kontrol akan mbangkitkan error. Klo
ngga salah, errornya sama kya error sampeyan. 3001. Argument wrong type.
Soalnya nilai NULL itu bukan merupakan tipe data apa-apa...
cobain dulu deh..
klo masih nemu error, coba lapor lagi ke sini. kita diskusiin bareng2 lagi.
oke?
--
regards,
Rizky Prihanto
~~~~~~~~~~~~~~~~~~~
Office : C4 Computer Communities Club (http://www.cee-papat.com)
Personal : http://www.software-arsitek.web.id
On 11/30/07, adhy nunu <[EMAIL PROTECTED]> wrote:
>
> rekans,
> field di tabel = HargaSatuanAwal
> di SQl = HargaSatuanAwal
>
> Masih error 3001.
>
> Iseng-iseng saya coba buat form baru, nama recordset yang baru, jadilah
> spt ini :
>
> Private Sub cmbJenisATK_Click()
> Set rsJns = New ADODB.Recordset
> rsJns.Open "select JenisATK, satuan, HargaSatuanAwal from ATK where
> JenisATK ='" & cmbJenisATK.Text & "'", cn, adOpenDynamic, adLockOptimistic
>
> txtSatuan.Text = rsJns("Satuan")
> txtHargaSatuanAwal.Text = rsJns("HargaSatuanAwal")
>
> End Sub
>
> Sayang nya, masih error 3001.
>
> Ada saran lain?
>
>
>
>
