AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Metin Kümesinden Koşula Uyan Veriyi Çekmek...

1 2 3
30/01/2019, 01:59

berduş

pardon dikkat etmemişim
ama ilçe ve şehir alanlarını göremedim
30/01/2019, 02:04

Oğuz Türkyılmaz

(30/01/2019, 01:59)haliliyas yazdı: pardon dikkat etmemişim
ama ilçe ve şehir alanlarını göremedim

Mahalle ilçe ve şehir bölümlerini EmlakListesinde görebilirsiniz. Ordaki 3 metin kutusunu birleştirip Kira Sözleşmesi formunda tek bir alanda gösteriyorum. Kira sözleşmesi karışık gibi duruyor normalde sebebi Matbu Kira Sözleşmelerinin yerleşim planına göre tıpatıp aynı şekilde çıktı alabilmek için bu şekilde düzenlendi.
30/01/2019, 02:17

berduş

emlak listesi adres satırında yer alan "380.SOKAK NO:17 D:7" ifadesini
f_100 formundaki txtAdres2 ne
txtAdres2=NO:17 D:7 olarak mı almak istiyorsunuz?
30/01/2019, 02:36

Oğuz Türkyılmaz

(30/01/2019, 02:17)haliliyas yazdı: emlak listesi adres satırında yer alan "380.SOKAK NO:17 D:7" ifadesini
f_100 formundaki txtAdres2 ne
txtAdres2=NO:17 D:7 olarak mı almak istiyorsunuz?

Bu Satırdaki sadece D:7 ifadesi alınacak. Eğer Satırda D: ifadesi ile başlayan bir değer yoksa o zaman No: ifadesi ile başlayan değer alınacak.1 koşul d: ile başlayan olacak. D: ifadesi dairelerde geçerli,  İşyerlerinde ise no: ifadesi geçerli oluyor. Satırda her iki ifade de varsa sadece D: ifadesi ile başlayan numara çekilecek.
30/01/2019, 03:13

berduş

aşağıdaki kodu dener misiniz
yalnız bu kod özel şartlar için geçerli d:/no: dan sonra boşluk yazılıp sonra rakam yazılmışsa boş değer verir
If InStr(1, txtAdres3, "D:", 1) > 0 Then bas = InStr(1, txtAdres3, "D:", 1)        'D: var mı diye kontrol eder

If InStr(1, txtAdres3, "D:", 1) = 0 And InStr(1, txtAdres3, "No:", 1) > 0 Then bas = InStr(1, txtAdres3, "No:", 1) 'd: yoksa No:  var mı diye kontrol eder

bit = InStr(bas, txtAdres3, " ", 1)     'D:/No: dan sonraki ilk boşluğu kontrol eder



Forms![F_100_KIRASOZLESMESI]![txtAdres2] = IIf(bit = 0, Mid(txtAdres3, bas), Mid(txtAdres3, bas, bit - bas))

yada d:/no: nun en sonda olduğunu varsayarsak aşağıdaki kodu deneyebilirsiniz
 If InStr(1, txtAdres3, "D:", 1) > 0 Then bas = InStr(1, txtAdres3, "D:", 1)        'D: var mı diye kontrol eder

If InStr(1, txtAdres3, "D:", 1) = 0 And InStr(1, txtAdres3, "No:", 1) > 0 Then bas = InStr(1, txtAdres3, "No:", 1) 'd: yoksa No:  var mı diye kontrol eder



Forms![F_100_KIRASOZLESMESI]![txtAdres2] =  Mid(txtAdres3, bas)
30/01/2019, 12:36

Oğuz Türkyılmaz

Halil Bey heriki kod da denedim aynı yerde hata verdi. 




1 2 3