arkadaşlar ekte gönderdiğim örnekte sorgu kısmında verilerin tamamını nasıl göreceğim. Sadece alt formda veri varsa gösteriyor. Bu konuda yardım rica ediyorum.
Teşekkür ederim.
![Çözüldü](images/icons/cozuldu.png)
(15/02/2010, 17:10)hegu yazdı: arkadaşlar ekte gönderdiğim örnekte sorgu kısmında verilerin tamamını nasıl göreceğim. Sadece alt formda veri varsa gösteriyor. Bu konuda yardım rica ediyorum.
Teşekkür ederim.
'Önce kulanacağımız değişkenleri tanımlıyoruz.
Dim uzunluk As Integer
Dim ayir As Integer
Dim bosyer As Integer
For uzunluk = Len(adsoyad) To 1 Step -1
'adsoyad uzunluğu ne kadarsa oradan geriye doğru 1 er 1 er karakterlere bak
If Mid(adsoyad, uzunluk, 1) = " " Then
'eğer bu karakter boşluğa eşitse
bosyer = uzunluk
Exit For
'kaçıncı karakter olduğunu bosyer adlı değişkene ata ve for next döngüsünden çık
Else
End If
Next
'değilse döngüyü devam ettir
ayir = Len(adsoyad) - bosyer
'boşluğun kaçıncı karakterde olduğunu bulduktan sonra
'adsoyad uzunluktan bosluk yerini çıkar ve soyadın kaç karakter olduğunu bul
soyad = Right(adsoyad, ayir)
'soyad değişkenine adsoyadımızın sağından itibaren bulduğumuz ayir uzunluğu kadar
'karakteri ata