Re: [belajar-access] Sql Error

 

bukan error.
runsql menjalankan action query kalau ingin ada hasil, tetapi yang anda jalankan adalah select sql.
jika ingin membuka query, save sql tersebut menjadi query, lalu panggil dengan perintah:

docmd.openquery "namaquery"


aksan kurdin



On 7/20/2012 9:09 AM, M Nugraha Malik wrote:

 

Dear Pakar Access,

 

Saya lagi belajar Coba-coba membuat program dalam access, namun saya menemukan salah satu program saya tidak berjalan alias error, saya sudah coba berapa alternatif tapi tetap error, mungkin para teman pakar access ada yang bisa membantu.

 

Dim Discount As String

 

Discount = "SELECT IF.POLICY, IF.PRODUCT, IF.ISSUE_DATE, IF.ISSUE_YEAR, IF.ISSUE_MONT, IF.IAGE, IF.C_IAGE, IF.DISC, IF.CURR, IF.SMK, IF.SEX, IF.YOB, IF.MOB, IF.CTERM, IF.PTERM, IF.PAY_MODE, IF.BASIC_GROS, IF.RIDER_GROS, IF.EX_PREM, IF.BASIC_SI, IF.RIDER_SI, IF.RESERVE, IF.NEXT_DATE, IF.NEXT_MONTH, IF.NEXT_YEAR, IF.NEXT_DUE, IF.STATUS, IF.TYPE, IF.METH, IF.PREM_RES, IF.U_PREM, IF.COVTERM_ORI, IF.PTERM_ORI, IF.COV_TYPE, IF.PTERM_TYPE, IF.CAMPID, IF.PARTNER, IF.COVCODE, IF.PROD_CODE, IF.CLAIM_HOSPITAL, IF.NO_CLAIM_BONUS, IF.PREMIUM_UNPAID, IF.TGL_STATUS, IF.POLIS, IF.PARTC, IF.SUMIN, IF.PREMIUM ,(IF.BASIC_SI)+(IF.RIDER_SI)*(1-(IF.DISC/100)) AS PREMI FROM IF WHERE(((IF.PAY_MODE) Like 'M'));"

 

 

DoCmd.RunSQL (Discount)

 

 

 

Terima Kasih

 

Malik

 

 

 

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 5

Visit Your Group

SPAM IS PROHIBITED

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___