Kod:
Private Function Duzenle(ByRef str1, ByRef str2)
str1 = Replace(str1, Chr(13), "")
str1 = Replace(str1, Chr(10), "")
str2 = Replace(str2, Chr(13), "")
str2 = Replace(str2, Chr(10), "")
End Function
Kod:
ad1 = Me.adi
ad2 = Me.soyadi
Duzenle ad1, ad2
İlk önce soruya bakıp çözmüştüm. Sonradan cevap yazarken yazılanları okudum.
Seruz hocanın yazdığı kod doğru. chr(13),chr(10) da doğru, son 2 karekteri silersek bu da doğru ve hızlı. Fakat ileride başına da koyarlarsa gibi bir sıkıntı olabilir. Bu kod onu da kapsar. Ha dersen ki yaparlar mı böyle birşey sanmıyorum ama yazmış bulundum kodu savunuyorum