Metin kutusuna atılan ad ve soyadın alt alta gelmesi

derebeyi

Access Cevaplanmış Soruları

2753

24/10/2009, 16:05 #4

Atçalı

Bilgisayarcı

Bul

Aktif Üye

Adı Soyadı:

Konum: Antalya

Ofis Versiyonu: Ofis 2003

Son Oturumu: 22/04/2019,15:45

Yorumları: 658

Konuları: 34

Kayıt Tarihi: 29/01/2008

Teşekkür Puanı: 410

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

çağırırken de

Kod:

ad1 = Me.adi

ad2 = Me.soyadi

Duzenle ad1, ad2

şeklinde kullanmak yeterli olacaktır.

İlk önce soruya bakıp çözmüştüm. Sonradan cevap yazarken yazılanları okudum.
Img-grin

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 Img-grin

ama yazmış bulundum kodu savunuyorum Lol