A.S.C Filtre, Grafik ve Raporlama Eklentisi

Metin Kutusu Içinde Değeri Bulma
#13
(25-03-2020, 18:50)halily demiş ki:
(25-03-2020, 18:24)h2001 demiş ki: Metin2 ye aktarım sonrasında değer ikinci satıra yerleşiyor.
tam olarak anlamadım ben de öyle bir sorun çıkmadı
çalışmanızın son halini ekler misiniz?

Ekledim Hocam, Örneğin Metin2 dolu olduğu halde boşmuş gibi görünüyor. Delete ile ilk satıra çekince düzeliyor.


Eklenti Dosyaları
.rar   Yeni Microsoft Access Veritabanı.rar (Boyut: 150,69 KB / İndirilme: 5)



  Alıntı
Bu mesajı beğenenler:
#14
aşağıdaki gibi dener misiniz? metin kutusunu eklenen yeni satır ekleme - Chr(110) ve chr(13) kodları nedeniyle alt satırdan başlamış
Visual Basic
  1. MtnX = Replace(Replace(Me.Metin1, Chr(110), ""), Chr(13), "")
  2. Bas1 = InStr(MtnX, "Unvanı") + 6
  3. Bit1 = InStr(MtnX, "Kuruluş Tarihi")
  4. Metin2 = Mid(MtnX, Bas1, Bit1 - Bas1)





  Alıntı
Bu mesajı beğenenler:
#15
(25-03-2020, 20:29)halily demiş ki: aşağıdaki gibi dener misiniz? metin kutusunu eklenen yeni satır ekleme - Chr(110) ve chr(13) kodları nedeniyle alt satırdan başlamış
Visual Basic
  1. MtnX = Replace(Replace(Me.Metin1, Chr(110), ""), Chr(13), "")
  2. Bas1 = InStr(MtnX, "Unvanı") + 6
  3. Bit1 = InStr(MtnX, "Kuruluş Tarihi")
  4. Metin2 = Mid(MtnX, Bas1, Bit1 - Bas1)


Teşekkür ederim hocam bu da oluyor ama ben önceki kodlarda + ları yükselterek sorunu daha basit çözdüm. Saygılar

Bas1 = InStr(Metin1, "Unvanı") + 8
Bit1 = InStr(Metin1, "Kuruluş Tarihi")
Metin2 = Mid(Metin1, Bas1, Bit1 - Bas1)



  Alıntı
Bu mesajı beğenenler:
#16
+1 yaparak da olabilir ama şöyle bir sorun doğurabilir eğer "ünvanı" ifadesinden sonra enter tuşuna basılmamışsa ve boşluk da koyulmamışsa bilgi ilk harf eksiğiyle alınabilir



  Alıntı
Bu mesajı beğenenler: h2001
#17
Anladım Hocam, veriyi alıntıladığım şablon bir web sayfası, dolayısıyla uzun süre o boşluklar olacak gibi. Yaptığım çalışma da ticari olmadığı için ileride güncelleme yapmam kolay. 
Sizin verdiğiniz son örnekte satırlar birleşmekte ise de, ileride web sayfası şablonunda değişiklik yapıldığında  herhalde  güncelleme veya (+-) yapmak zorunda kalacağım.
İleride gerekirse son belirttiğiniz çözümü uygularım.Teşekkürler



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FONKSiYON] Metin Içinde Geçen Değerleri Indexleme alperalper 2 67 21-03-2020, 17:29
Son Mesaj: onur_can
  Combobox Içinde Search gbaran80 2 82 21-02-2020, 08:17
Son Mesaj: onur_can
  [SORGU] Sorgu Içinde Birden Fazla Sorgu Oluşturmak footprinting 2 139 04-02-2020, 11:45
Son Mesaj: footprinting
  Onay Kutusu İsmail Küçükşengün 10 8.182 30-01-2020, 10:28
Son Mesaj: Zargana61
access-sql-4 Form Içinde Kullanılmak üzere Değer Atama alperalper 3 85 29-01-2020, 23:32
Son Mesaj: dsezgin
  [SORGU] Iki Tarih Arası Farkı Bulma footprinting 2 124 25-01-2020, 08:02
Son Mesaj: footprinting
  [VBA] Boş Metin Kutusu Denetimi h2001 9 282 03-12-2019, 18:28
Son Mesaj: h2001
  Liste Kutusu Aktarma Ve Rapor Problemi sefersanli 8 144 19-11-2019, 09:05
Son Mesaj: halily

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi