AccessTr.neT

Tam Versiyon: kritere göre yanyana yazdırma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
kendime uyarlamaya çalıştım
bir bakabilirmisiniz
taşma hatası veriyor
Sizin örneğinizdeki tablolarda birbiriyle ilişkilendirdiğiniz MBPN alanı sayı değil Metin olarak oluşturulmuş. Sanırım sayı olmalı.
aşağıdaki gibi düzeltin.

Kod:
Function Yanyana(Deger As String) As String
Dim rs As DAO.Recordset
Dim db As Database
Dim strSQL As String
Dim D1 As String
    Set db = CurrentDb()
    'strSQL = "SELECT TEL.TEL_NO, TEL.TEL_ID FROM TEL GROUP BY TEL.TEL_NO, TEL.TEL_ID ORDER BY TEL.TEL_ID;"
    strSQL = "SELECT MBPN, ILAC_ADI FROM ILAC GROUP BY MBPN, ILAC_ADI ORDER BY MBPN;"
    Set rs = db.OpenRecordset(strSQL)
    
    rs.MoveFirst
    D1 = ""
    Do Until rs.EOF
        If rs!MBPN = Deger Then D1 = D1 & rs!MBPN & "-"
        rs.MoveNext
    Loop
90
    If Len(D1) = 0 Then Yanyana = "": GoTo 110
    Yanyana = Left(D1, Len(D1) - 1)
110
End Function
çok teşekkürler
ellerinize sağlık
Sayfalar: 1 2