AccessTr.neT

Tam Versiyon: İsim ve Soyismi ayırarak farklı kutulara yazma örneği
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
abiler ablalar bana müşteri girisi yapıp. Arazi bilgilerini girip ektiği ürünü belirleyip ona göre gelir gider analizi yapacağım bir program lazım ha birde yılda kaç kez kontrole gittim onu da belirtecek. yani mantık olarak 1. sayfamızda kişisel bilgiler 2. sayfamızda ÇKS (çiftçi kayıt sişstemi bilgileri) 3. sayfamızda kontrol ve tavsiyeler sayfası 4. sayfamızda Çks bilgilerine göre veri ve hesaplama gelr gider analizi son sayfamızda ise değerlendirme ve raporlama. hadi şimdiden Allah razı olsun bakalım kimler ilminin zekatını verecek
Merhaba Sayın mühendis58
dediğiniz şeyler hemen yapalım demek ile olmaz,ayrıca bu sitemizde siz başlayıp yapacaksınız biz size takıldıgınız yerde yardım edeceğiz kural bu ,yada bu istedikleriniz özel bir iş olarak ücret karşılığı yapılır,bunun için yönetimle irtibata geçin seçim sizin ..kolay gelsin
Konuyu hortlatayım ve bilginin her zaman gerekli olduğu ortaya çıksın Img-grin

Bu örnekte tek isim kullanılmış. İki isim olursa nasıl yaparız? İsim ve soy isim girildiği anda ayırma işlemi yapabilir mi?

Teşekkürler...
kaç isimli olursa olsun son kelimeyi soyisim olarak ayırır
txtAdSoyad kutusunun çıkıldığında olayına
sonbos: soyaddan önceki boşluğun yeri
txtAdSoyad:Adsoyad metin kutusu
txtAd:Ad metin kutusu
txtSoyad:Soyad metin kutusu
InStrRev(metin, aranan karakter yada metin):metin aramaya sondan başlanır , baştan kaçıncı karakter
Kod:
SonBos = InStrRev(Me.txtAdSoyad, " ")
Me.txtAd = Mid(Me.txtAdSoyad, 1, SonBos - 1)
Me.txtSoyad = Mid(Me.txtAdSoyad, SonBos + 1)
Sayfalar: 1 2