Rekan, adakah yang bisa bantu?
saya punya masalah dengan vb dimana ketika di run selalu muncul error :
Microsoft Visual Basic
Run-Time error '3001':
Arguments are of the wrong type, are out of acceptable range, or are in
confilct with one another
1. Kenapa
2. Bagaimana penyelesaiannya?
terima kasih sebelumnya..
Catatan : sudah searching google, tapi belum ada yang mempan. (belum semua
hasil searching dibuka siy, tp beberapa yang dicoba selalu gak berhasil)
= = = = = = = = = = = = = = = = = = = =
code nya :
Private Sub cmbJnsATK2_Click()
Set rsJenis = New ADODB.Recordset
' baris ini yang selalu error 3001
rsJenis.Open "select satuan, hargasatuan from ATK where JenisATK = '" &
cmbJnsATK2.Text & "'", cn, adOpenDynamic, adLockOptimistic
txtSatuan.Text = rsJenis("Satuan")
txtHargaSatuan.Text = rsJenis("HargaSatuanAwal")
end sub
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Provider = "microsoft.jet.oledb.4.0"
cn.CursorLocation = adUseClient
cn.Open App.Path & "\atk.mdb"
Set rs2 = New ADODB.Recordset
cmbJnsATK2.Clear
rs2.Open "select list from listATK", cn, adOpenDynamic, adLockOptimistic
Do While Not rs2.EOF
cmbJnsATK2.AddItem rs2("list")
rs2.MoveNext
Loop
cmbJnsATK2.ListIndex = 0
end sub
Disclaimer: Although this message has been checked for all known viruses
using Trend Micro InterScan Messaging Security Suite, Bukopin
accept no liability for any loss or damage arising
from the use of this E-Mail or attachments.
