Rapordaki metin alanında enter oluşturma

[abkbek]

Arkadaşlar merhaba,
Daha önce cevabını yine buradan aldığım bir sorum vardı. konu şu; Ekteki örnekte yer alan Rapor isimli rapordaki telefonlar isimli alanda aşağıdaki kod (Ayrıntı format olayında) çalışıyor ve her telefon türü bir satıra yazılıyor.

If InStr(1, telefonlar, "Cep") > 0 Then
xStr = Replace(telefonlar, "Cep", vbNewLine & "Cep")
End If
If InStr(1, telefonlar, "Daimi") > 0 Then
xStr = Replace(xStr, "Daimi", vbNewLine & "Daimi")
End If
If InStr(1, telefonlar, "Ev") > 0 Then
xStr = Replace(xStr, "Ev", vbNewLine & "Ev")
End If
If InStr(1, telefonlar, "İş") > 0 Then
xStr = Replace(xStr, "İş", vbNewLine & "İş")
End If
Me.Metin0 = xStr

ancak personele ait cep telefonu yoksa diğer telefonlar (Ev Tlf., İş Tlf. gibi) metin alanında görünmüyor. Oysa bu telefonlar kayıtlı, acaba kodda bir eksik mi var? bu hatayı nasıl giderebilirim.

 

[beab05]

Merhaba;

If InStr(1, telefonlar, "Cep") >[B][COLOR="Red"]=[/COLOR][/B]0 Then
xStr = Replace(telefonlar, "Cep", vbNewLine & "Cep")
.....
....

Kırmızı kısmı yani büyük-eşit yaparsanız olur..

 

[abkbek]

Sayın beab05,
Çok teşekkür ederim. çalışmalarınızda başarılar dilerim.