Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
24/10/2009 11:52
Konu Sahibi
derebeyi
Yorumlar
3
Okunma
1520
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

derebeyi

Aktif Üye
Aktif Üye
 41
 149
 47
 06/11/2008
0
 Samsun
 
 Ofis 2007
 30/01/2017,21:39
Çözüldü 
Arkadaşlar
Hegu'nun sorusuna benim Tc Kimlik Sorgulama örneğimi eklemek istiyoruz. Ben ekledim ama bir sorunum var. Tc Kimliğini yazdığımız kişinin ad ve soyad bilgileri ayrı ayrı geldiği için adı soyadı alanında birleştirmek istiyorum. Bunun için şu yöntemleri denedim:

1- trim() kullanarak boşluklarını aldım. Belki boşluk nedeniyle alt satıra atıyordur diye düşündüm ama ilgisi yok.

2- Bana gerekli verileri mevcut metin içerisinden instr$ ile aldığım için bir de instr ile almayı denedim. Durum değişmedi.

3- Verileri değişkenlere gönderdim. ad1 ve ad2 değişkenlerine aldığım verileri daha sonra hem & ile hem de + ile birleştirmeyi denedim sonuç yine değişmedi.

4- Verileri form üzerindeki başka metin kutularına ve etiketlere aktardım. Daha sonra ad ve soyad metinkutularını veya etiketlerini bir başka metin kutusunda ve etikette birleştirdim yine olmadı.

5- Ad ve soyad değerlerini değişkenden form üzerindeki iki metin kutusuna aktardım sonra da metin kutularından tekrara bir değişkene aktardım. Onu da msgbox ile ekrana getirdim. Msgbox penceresinde bile değer alt alta görüntülendi.

6- Acaba gelen ad ve soyad bilgisi benim bilmediğim bir şekilde sayı olarak mı algılanıyor diye Img-grin str() kullandım. Tabii ki hata verdi çünkü değerler string biçimdeydi.

Daha bir sürü yol denedim. Bir yeri atladım ama nereyi atladığımı bulamıyorum. Sonuç olarak neden böyle olduğunu anlayamadım. Ne dersiniz?
Örnek ekledim. Tc kimlik alanına bir tc nosu yazığ sorgulayın ve çıkan değerleri "aktar ve kapat" butonuyla ana forma aktarın. Göreceğiniz gibi Ad ve Soyad alt alta geliyor.


Ek Dosyalar
.rar   Sağlık Kurulu_tckimlik.rar(Dosya Boyutu: 170,69 KB / İndirme Sayısı: 8)

Kullanici Avatari

Seruz

Uzman
Uzman
SE.... UZ....
 47
 1.562
 7
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 09/09/2018,11:08
Çözüldü 
Hem adı, hemde soyadının sonuna Alt+Enter'a tekabül eden, 2 karakter birden konmuş. ( Chr(13) & Chr(10) )
"Aktar ve Kapat" butonundaki ilgili kodları aşağıdaki şekilde değiştirince sorun kalmıyor.

Kod:
ad1 = Left$(Me.adi, Len(Me.adi) - 2)
ad2 = Left$(Me.soyadi, Len(Me.soyadi) - 2)
adsad = ad1 & " " & ad2


Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs

Kullanici Avatari

derebeyi

Aktif Üye
Aktif Üye
 41
 149
 47
 06/11/2008
0
 Samsun
 
 Ofis 2007
 30/01/2017,21:39
Çözüldü 
Teşekkürler Seruz
Yardımlarınla hallettim.



Kullanici Avatari

Bilgisayarcı

Atçalı
Aktif Üye
 Belirtilmemiş
 658
 34
 29/01/2008
410
 Antalya
 
 Ofis 2003
 01/11/2011,15:17
Çözüldü 

Kod:
1
2
3
4
5
6
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ıyorumImg-grin ama yazmış bulundum kodu savunuyorumLol


Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formdaki Butona Metin Kutusundaki Köprüye Gitmesi İçin Komut Vermek Serkan Kurt 9 218 08/09/2018, 20:19
Son Yorum: Serkan Kurt
Çözüldü Metin Kutusu Aktif Pasif golf2000 6 164 27/08/2018, 23:49
Son Yorum: mehmetdemiral
Çözüldü Metin Kutularında Nokta Sorunu m_demir 1 88 27/08/2018, 14:10
Son Yorum: m_demir
Çözüldü Sayısı Sıra İle Artan Metin Uygulaması notrino 2 81 21/08/2018, 11:35
Son Yorum: notrino
Çözüldü Metin Kutusuna Girilen Veriye Göre Veri Çağırma fascioğlu 3 161 25/07/2018, 18:14
Son Yorum: fascioğlu

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.