Hallo nunu,
Coba periksa nama field hargasatuan atau HargaSatuanAwal.
Rgds
"adhy nunu" <[EMAIL PROTECTED]> on 11/28/2007 12:11:00 AM
Please respond to [email protected]
To: [email protected]
cc: (bcc: Toni Rahayu/IT/domino_srv)
Subject: [Programmer-VB] Fw: help me
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.
Toni Rahayu
PT. Omedata Electronics
IT Department
Hunting : (62-22) 6030805 Ext 121
Faxs : (62-22) 6030896
Homepage : http://www.toni-rahayu.co.cc
