Karena anda menggunakan Ms Access sebagai databasenya, maka pada saat akan
insert data dengan tipe Tanggal maka harus diapit dengan karakter #, dan
jangan lupa harus format mm-dd-yyyy. sehingga jadi ... #" &
txtduedate.text& "# .... pastikan juga bahwa data tanggal sudah diisi.
CMIIW
On 31/08/2007, iwan gunawan <[EMAIL PROTECTED]> wrote:
>
>
> Halo para vb master, tolongin donk,
> dimana salahnya, script ini waktu di run muncul run-time error, tlg yah
> plz.
>
> ini saya copy paste dari vb.
>
>
>
>
> Private Sub CMDSAVE_Click()
> If cmbcurrency.Text = "IDR" Then
> Call IDR
> Else
> Call usd
> End If
> Adodc1.Refresh
> DG1.Refresh
> End Sub
>
>
>
> Private Sub Form_Load()
> strcon = "provider=microsoft.jet.oledb.4.0;data
> source=c:\trs\vendor.mdb"
> Set cn = New ADODB.Connection
> cn.ConnectionString = strcon
> cn.Open
>
> End Sub
>
>
>
> Sub IDR()
> Dim sqlidr As String
> sqlidr = "insert into vendor
> (NOID,VENDOR,NOINVOICE,PEKERJAAN,INVOICEDATE,RECDATE,DUEDATE,INVOICE,IDR,TOTAL)
> values" & _
> "('" & txtid.Text & "','" & txtvendor.Text & "','" & txtnoinvoice.Text&
> "','" &
> txtpekerjaan.Text & "'," & _
> "'" & txtinvoicedate.Text & "','" & txtrecdate.Text & "','" &
> txtduedate.Text & "','" & Val(txtinvoice.Text) & "'," & _
> "'" & cmbcurrency.Text & "','" & Val(txttotal.Text) & "')"
> cn.Execute (sqlidr)
>
> End Sub
>
>
>
> Sub usd()
> Dim sqlusd As String
> sqlusd = "insert into vendor
> (NOID,VENDOR,NOINVOICE,PEKERJAAN,INVOICEDATE,RECDATE,DUEDATE,INVOICE,USD,TOTAL)
> values" & _
> "('" & txtid.Text & "','" & txtvendor.Text & "','" & txtnoinvoice.Text&
> "','" &
> txtpekerjaan.Text & "'," & _
> "'" & txtinvoicedate.Text & "','" & txtrecdate.Text & "','" &
> txtduedate.Text & "','" & Val(txtinvoice.Text) & "'," & _
> "'" & cmbcurrency.Text & "','" & Val(txttotal.Text) & "')"
> cn.Execute (sqlusd)
> End Sub
>
>
>
> Need a vacation? Get great deals
> to amazing places on Yahoo! Travel.
>
>
>
>
>
>
>
> ____________________________________________________________________________________
> Yahoo! oneSearch: Finally, mobile search
> that gives answers, not web links.
> http://mobile.yahoo.com/mobileweb/onesearch?refer=1ONXIC
>
> [Non-text portions of this message have been removed]
>
>
>
> Untuk berhenti berlangganan kirim email kosong ke :
> [EMAIL PROTECTED]
>
> Bagi terjangkit virus lokal, zip virus tersebut
> dan kirim ke [EMAIL PROTECTED], kami
> akan membuat removalnya untuk anda.
> Yahoo! Groups Links
>
>
>
>
--
Best Regard,
[zZzz]
[Non-text portions of this message have been removed]
