Thanks buat tanggapannya. sudah saya benerin mas tapi tetep error
----- Original Message ---- From: "Rosadi, Edi" <[EMAIL PROTECTED]> To: [email protected] Sent: Wednesday, August 29, 2007 9:39:22 AM Subject: RE: [indoprog-vb] run-time error Deklarasinya sqlidr dan sqlusd, tapi yang diisi string SQL? ____________ _________ _________ __ From: indoprog-vb@ yahoogroups. com [mailto:indoprog-vb@ yahoogroups. com] On Behalf Of iwan gunawan Sent: Wednesday, August 29, 2007 9:23 AM To: indoprog-vb@ yahoogroups. com Subject: [indoprog-vb] run-time error 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/ <http://sims. yahoo.com/> [Non-text portions of this message have been removed] NOTICE - This message and any attached files may contain information that is confidential and intended only for use by the intended recipient. If you are not the intended recipient or the person responsible for delivering the message to the intended recipient, be advised that you have received this message in error and that any dissemination, copying or use of this message or attachment is strictly forbidden, as is the disclosure of the information therein. If you have received this message in error please notify the sender immediately and delete the message. [Non-text portions of this message have been removed] ____________________________________________________________________________________ Shape Yahoo! in your own image. Join our Network Research Panel today! http://surveylink.yahoo.com/gmrs/yahoo_panel_invite.asp?a=7 [Non-text portions of this message have been removed]
