Tür Uyuşmazlığı

[hsayar]

Private Sub USERFORM_INITIALIZE()
Call DegiskenTani
'Tanımlar
Dim i As Integer, SQLStr, SQLTcStr As String
'Değişkenler
    If Dir(kynMHBRM) = "" Then
        MsgBox kynMHBRM & " " & Chr(10) & " Dosyası Bulunamadı.", vbInformation, "Bilgi"
        Exit Sub
    End If
    If Dir(kynULKE) = "" Then
        MsgBox kynULKE & " " & Chr(10) & " Dosyası Bulunamadı.", vbInformation, "Bilgi"
        Exit Sub
    End If
    If Dir(kynTcKimNo) = "" Then
        MsgBox kynTcKimNo & " " & Chr(10) & " Dosyası Bulunamadı.", vbInformation, "Bilgi"
        Exit Sub
    End If
'************************************************'bağlan>
    Set Baglanti = New ADODB.Connection
    Baglanti.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & kynMHBRM
    Set BagULKE = New ADODB.Connection
    BagULKE.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & kynULKE
    Set bagTCKMLK = New ADODB.Connection
    bagTCKMLK.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & kynTcKimNo
'************************************************'bitti<
    SQLStr = "SELECT DISTINCT il FROM [ilveilce$]"    'kynMHBRM dosyada ilgili satırlarda sorgu yap
    Set Kayit1 = New ADODB.Recordset
    Kayit1.Open SQLStr, Baglanti, adOpenKeyset, adLockOptimistic
        Kayit1.MoveFirst:        ComboBox1.Clear
            For i = 1 To Kayit1.RecordCount
               ComboBox1.AddItem Kayit1.Fields("il")
               Kayit1.MoveNext
            Next i
        Kayit1.MoveFirst:        ComboBox1.ListIndex = 27

        Kayit1.MoveFirst:        ComboBox4.Clear
            For i = 1 To Kayit1.RecordCount
               ComboBox4.AddItem Kayit1.Fields("il")
               Kayit1.MoveNext
            Next i
        Kayit1.MoveFirst:        ComboBox4.ListIndex = 27
    If CBool(Kayit1.State And adStateOpen) = True Then Kayit1.Close: Set Kayit1 = Nothing
'___________________________
'***************************
SQLStr = "SELECT DISTINCT ADI FROM [DATA$]"    'kynMHBRM dosyada ilgili satırlarda sorgu yap
Set RecUlke = New ADODB.Recordset
RecUlke.Open SQLStr, BagULKE, adOpenKeyset, adLockOptimistic
        RecUlke.MoveFirst:        ComboBox84.Clear
            For i = 1 To RecUlke.RecordCount
               ComboBox84.AddItem RecUlke.Fields("ADI")
               RecUlke.MoveNext
            Next i
        RecUlke.MoveFirst:        ComboBox84.ListIndex = 0
If CBool(RecUlke.State And adStateOpen) = True Then RecUlke.Close: Set RecUlke = Nothing
''___________________________
'***************************
SQLStr = "SELECT DISTINCT TCK_NO FROM [personel$]"    'kynMHBRM dosyada ilgili satırlarda sorgu yap
Set RecTcNo = New ADODB.Recordset
RecTcNo.Open SQLStr, bagTCKMLK, adOpenKeyset, adLockOptimistic
        RecTcNo.MoveFirst:        ComboBox85.Clear
            For i = 2 To RecTcNo.RecordCount
[color="red"][B]               ComboBox85.AddItem RecTcNo.Fields("TCK_NO")[/B][/color]
               RecTcNo.MoveNext
            Next i
        RecTcNo.MoveFirst:        ComboBox85.ListIndex = 0
If CBool(RecTcNo.State And adStateOpen) = True Then RecTcNo.Close: Set RecTcNo = Nothing
'___________________________
''************************************************'bitti<
'******************bağlantıyı kes
'/*/* diğer nesneleri doldur
OptionButton1.Value = 1: OptionButton3.Value = 1
    arrCeptelKod = Array(505, 506, 530, 532, 533, 534, 535, 536, 537, 538, 542, 543, 544, 546, 547, 555, 556)
    For i = 0 To UBound(arrCeptelKod)
        ComboBox80.AddItem arrCeptelKod(i)
        ComboBox81.AddItem arrCeptelKod(i)
    Next
End Sub

Private Sub USERFORM_TERMINATE()
On Error Resume Next
    If CBool(Baglanti.State And adStateOpen) = True Then Baglanti.Close: Set Baglanti = Nothing
    If CBool(BagULKE.State And adStateOpen) = True Then bagbagULKE.Close: Set BagULKE = Nothing
    If CBool(bagTCKMLK.State And adStateOpen) = True Then bagTCKMLK.Close: Set bagTCKMLK = Nothing
End Sub

yukarıdaki koldardaki
ComboBox85.AddItem RecTcNo.Fields("TCK_NO")

satırında tür uyşmazlığı hatası alıyorum

ComboBox85.AddItem i kullanınca sorun yok sebebi nedir?

 

[hsayar]

örnek dosyayı ekledim ayrıca
ComboBox85.AddItem RecTcNo.Fields("TCK_NO") komutu ile,
ComboBox85 e gelen görüntünün tcno, ad soyad şeklinde olması mümkünmüdür.

 

[hsayar]

veri tabanında bas alınacak sayfayı 0 dan tasarlayınca oldu