Arkadaslar merhaba,
Yazdigim bir kod var ama hata veriyor, sql serverda asagidaki cumleyi execute yaptigim zaman sonuclar geliyor fakat makro olarak hata veriyor. Aacaba sql cumlesi uzun mu geliyor yani ayrilan alani asiyor muyum?
Set rs = New ADODB.Recordset
Sql = "SELECT DISTINCT TBLAMORTISMAN.DEMIR_KODU, EGGUB_VW_AMORT.DEMIR_ISMI," & _
"EGGUB_VW_AMORT.ALIS_TARIHI, EGGUB_VW_AMORT.ALIS_FIYATI," & _
"(CASE WHEN EGGUB_VW_AMORT.BIRIK_AMORTISMAN = '0' THEN 0 ELSE TBLAMORTISMAN.BIRIKAMORT END)" & _
"AS BIRIK_AMORTISMAN, EGGUB_VW_AMORT.DUZ_AMORTISMAN, EGGUB_VW_AMORT.DUZ_SABITKIYMET" & _
"FROM EGGUB_VW_AMORT, TBLAMORTISMAN" & _
"WHERE (EGGUB_VW_AMORT.DEMIR_KODU = TBLAMORTISMAN.DEMIR_KODU) AND" & _
"(TBLAMORTISMAN.SIRKET_KODU = 'EGEGUBRE05') AND (TBLAMORTISMAN.YIL = '" & yil & "') AND (TBLAMORTISMAN.AY = '" & ay & "')"
rs.Open Sql, conn, adOpenStatic, adLockReadOnly
Yazdigim bir kod var ama hata veriyor, sql serverda asagidaki cumleyi execute yaptigim zaman sonuclar geliyor fakat makro olarak hata veriyor. Aacaba sql cumlesi uzun mu geliyor yani ayrilan alani asiyor muyum?
Set rs = New ADODB.Recordset
Sql = "SELECT DISTINCT TBLAMORTISMAN.DEMIR_KODU, EGGUB_VW_AMORT.DEMIR_ISMI," & _
"EGGUB_VW_AMORT.ALIS_TARIHI, EGGUB_VW_AMORT.ALIS_FIYATI," & _
"(CASE WHEN EGGUB_VW_AMORT.BIRIK_AMORTISMAN = '0' THEN 0 ELSE TBLAMORTISMAN.BIRIKAMORT END)" & _
"AS BIRIK_AMORTISMAN, EGGUB_VW_AMORT.DUZ_AMORTISMAN, EGGUB_VW_AMORT.DUZ_SABITKIYMET" & _
"FROM EGGUB_VW_AMORT, TBLAMORTISMAN" & _
"WHERE (EGGUB_VW_AMORT.DEMIR_KODU = TBLAMORTISMAN.DEMIR_KODU) AND" & _
"(TBLAMORTISMAN.SIRKET_KODU = 'EGEGUBRE05') AND (TBLAMORTISMAN.YIL = '" & yil & "') AND (TBLAMORTISMAN.AY = '" & ay & "')"
rs.Open Sql, conn, adOpenStatic, adLockReadOnly