Merhaba arkadaşlar. Eklemiş olduğum örneğin kodu içerisinde nasıl olmasını istediğimi belirttim. İlginize teşekkürler

Sayın Kars36, ben pek bir şey anlamadım ya da istediğinizi belirttiğiniz metni kodlar arasında göremedim. Modüllere de baktım. Arşiv formunda süzme işlemi yapıp sonucunda olmadığını mı belirtmek istiyorsunuz?

sn EminA haklısınız, Ben de kodlar içerisinde herhangi bir açıklama göremedim.

Hocam inceleme butonunun içerisinde;

Dim i As Integer
i = 0
Do While Not rs.EOF
i = i + 1
.TypeParagraph
'Eğer şahsın TC'si yoksa direk ıd'den devam etsin.)
.Font.Bold = True
.TypeText (i & " - " & rs!Adı & " " & rs!Soyadı & " isimli şahsın ")
.Font.Bold = False
.TypeText (rs!ıd & " kayıtlı olduğu ")
.Font.Bold = True
'Eğer şahsın adresi yoksa "adresinin olmadığı şeklinde yazsın"
.TypeText (rs!Adres & " adresinde ikamet etttiği. ")

TC kod içerisinde geçmemiş, eğer atladıysanız onu da adres mantığı ile yapabilirsiniz.

Hocam ALLAH razı olsun,
Dim i As Integer
i = 0
Do While Not rs.EOF
i = i + 1
.TypeParagraph
.Font.Bold = True
If IsNull(rs!Tc) Then
.TypeText (rs!ıd & " herhangi bir kaydının olmadığı.")
Else
.TypeText (rs!Adı & " " & rs!Soyadı & " isimli şahsın ")
.Font.Bold = False
.TypeText (rs!ıd & " kayıtlı olduğu ")
.Font.Bold = True
If IsNull(rs!Adres) Then
.TypeText ("adres kayıtlarda bulunamadı!")
Else
.TypeText (rs!Adres & " adresinde ikamet etttiği. ")
End If
End If
rs.MoveNext
Loop
rs.Close
End With
End Sub

Şeklinde rapor aldığım zaman, TC’ si olmayan şahıs için

“isimli şahsın 213 kayıtlı olduğu adres kayıtlarda bulunamadı!” yerine[/code][/quote]

“213 kayıtlı olduğu herhangi bir kaydının olmadığı.” Şeklinde nasıl alınabilir.