halo para master vb,
bantuin donk benerin script ini, pada waktu klik cmdsave muncul error :
run-time error '-2147217908 (80040e0c)'
Command text was not set for the command project
kira2 dimanasalhnya yah, plz, ini script nya :
Private Sub CMDSAVE_Click()
If cmbcurrency.Text = "IDR" Then
Call IDR
Else
Call usd
End If
Adodc1.Refresh
DG1.Refresh
End Sub
Sub IDR()
Dim sqlidr As String
SQL = "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
SQL = "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
Sebelumnya terima kasih atas bantuannya and tanggapannya.
____________________________________________________________________________________
Moody friends. Drama queens. Your life? Nope! - their life, your story. Play
Sims Stories at Yahoo! Games.
http://sims.yahoo.com/
[Non-text portions of this message have been removed]
