[belajar-access] Sql Error

 

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 (1)

Recent Activity:

• New Members 5

Visit Your Group

SPAM IS PROHIBITED

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

.

__,_._,___