+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Metin Kümesinden Koşula Uyan Veriyi Çekmek... (/konu-metin-kumesinden-kosula-uyan-veriyi-cekmek.html)
Cvp: Metin Kümesinden Koşula Uyan Veriyi Çekmek... - berduş - 30/01/2019
pardon dikkat etmemişim
ama ilçe ve şehir alanlarını göremedim
Cvp: Metin Kümesinden Koşula Uyan Veriyi Çekmek... - Oğuz Türkyılmaz - 30/01/2019
(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.
Cvp: Metin Kümesinden Koşula Uyan Veriyi Çekmek... - berduş - 30/01/2019
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?
Cvp: Metin Kümesinden Koşula Uyan Veriyi Çekmek... - Oğuz Türkyılmaz - 30/01/2019
(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.
Cvp: Metin Kümesinden Koşula Uyan Veriyi Çekmek... - berduş - 30/01/2019
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) Cvp: Metin Kümesinden Koşula Uyan Veriyi Çekmek... - Oğuz Türkyılmaz - 30/01/2019
Halil Bey heriki kod da denedim aynı yerde hata verdi.