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.
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.
Son düzenleme: