Perintah Insertnya kurang tanda (,)
Coba perhatikan baris :
"','" & txtrute3a & "'" & _
harusnya :
"','" & txtrute3a & "', " & _
coding dibawah sudah dibenerin
cn.Execute = "Insert into kendaraan_2005
(No_urut,tahun,jn_ken1,tujuan,keperluan,rute1,rute1a,rute2,rute2a,rut
e3,rute3a,rute4,rute4a,tgl_berangkat,tgl_kembali,jam,penumpang,pemaka
i,unit,peminta,npp1,mengetahui,npp2)"
& _
"Values('" & txtno & "','" & label_tahun & "','"
& cbo_jenis & "','" & cbo_tujuan & "','" & txtkep &
"','" & txtrute1 & "','" & txtrute1a & "','" &
txtrute2 & "','" & txtrute2a & "','" & txtrute3 &
"','" & txtrute3a & "', " & _
"'" & txtrute4 & "','" & txtrute4a & " ','" &
DTPicker1 & "','" & DTPicker2 & "','" & txtjam & "','"
& txtorang & "','" & cbo_pemakai & "','" & txtunit &
"','" & cbo_peminta & "', '" & ls_npp1 & "','" &
cbo_mengetahui & "','" & ls_npp2 & "')"
Regards,
Yulianto
--- In [email protected], Thony Blair <[EMAIL PROTECTED]>
wrote:
>
> Dear All, mohon pencerahannya
> pada saat execute perintah SAVE, kenapa timbul
> "Compile rror: Argument Not Optional?" dan kursos
> menunjuk '" & cbo_mengetahui & "'
> Apa yg salah dengan koding dibawah ini?
>
> NB: Combo cbo_mengetahui ini pada saat load Form
> mengambil record dari tabel referensi yg akan disimpan
> ke Tabel lain
>
>
> cn.Execute = "Insert into kendaraan_2005
>
(No_urut,tahun,jn_ken1,tujuan,keperluan,rute1,rute1a,rute2,rute2a,rut
e3,rute3a,rute4,rute4a,tgl_berangkat,tgl_kembali,jam,penumpang,pemaka
i,unit,peminta,npp1,mengetahui,npp2)"
> & _
>
> "Values('" & txtno & "','" & label_tahun & "','"
> & cbo_jenis & "','" & cbo_tujuan & "','" & txtkep &
> "','" & txtrute1 & "','" & txtrute1a & "','" &
> txtrute2 & "','" & txtrute2a & "','" & txtrute3 &
> "','" & txtrute3a & "'" & _
> "'" & txtrute4 & "','" & txtrute4a & " ','" &
> DTPicker1 & "','" & DTPicker2 & "','" & txtjam & "','"
> & txtorang & "','" & cbo_pemakai & "','" & txtunit &
> "','" & cbo_peminta & "', '" & ls_npp1 & "','" &
> cbo_mengetahui & "','" & ls_npp2 & "')"
>
> terimakasih banyak sebelumnya!!
> pm=
>
>
>
> __________________________________________________
> Do You Yahoo!?
> Tired of spam? Yahoo! Mail has the best spam protection around
> http://mail.yahoo.com
>
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
