[FORM] Uzun Metin Kutusundan Veri Alma
#1
Selemlar; Tüm form üyesi  ve Yönetici arkadaşlarımın geçmiş bayramlarını kutlar iyi hafta sonları dilerim. Ekte göndermiş olduğum örnek vt.de  formdaki Sağ tarafta bulunan uzun tabloda uzun Metin formatindaki veriyi mail kutusundan görüldüğü formatta alaktayım. Veri Al butonunu kullarak Sağ alandaki başlık altlarındaki verileri Sol taraftaki veri alanlarına ayrıştırarak alabilirmiyiz. Yardımlarınız için teşekkür ederim. Sygılarımla.


Eklenti Dosyaları
.rar   DenemeÖrnek.rar (Boyut: 27,05 KB / İndirilme: 45)



  Alıntı
Bu mesajı beğenenler:
#2
aşağıdaki fonksiyonlar işe yarayabilir
Not: formunuzda İlgi Alanınız Olan Hayvan: alanına ait bir  metin alanı göremedim, ilce ile ilgili fazladan bir alan var
butonun kodu:
Visual Basic
  1. Private Sub Komut2_Click()
  2. RgExp2Nokta (Me.t_metingovde)
  3. End Sub


Visual Basic
  1. Function RgExp2Nokta(metin As String)
  2. Dim RegEx As Object
  3. Set RegEx = CreateObject("VBScript.RegExp")
  4.    With RegEx
  5.        .IgnoreCase = False
  6.        .Global = True
  7.        .MultiLine = False
  8.        
  9.        .Pattern = ":[\r\n\v\f]{2,2}"
  10.        metin = .Replace(metin, ": ")
  11.        
  12.        .Pattern = ".+: .+"
  13.    Set uyan = .Execute(metin)
  14.    End With
  15. x = 1
  16. For Each match In uyan
  17.    dgr = Mid(match.Value, 1, Len(match.Value & "") - 1)
  18.    bol = InStr(dgr, ":")
  19. '    Debug.Print x, dgr, Mid(dgr, bol + 1), Mid(dgr, 1, bol - 1)  ', CStr(match.Value) 'regex.Test(metin) 'False
  20.    AtaDgr Mid(dgr, 1, bol - 1), Mid(dgr, bol + 1)
  21. x = x + 1
  22. Next match
  23.  
  24. End Function


Visual Basic
  1. Function AtaDgr(ctlAdi As String, ctlDgr As String)
  2. Dim frm As Form
  3. Set frm = Forms("frm_deneme")
  4. Select Case ctlAdi
  5.   Case "Ad ve Soyad"
  6.        bol = InStrRev(ctlDgr, " ")
  7.      frm.adisoyadi = Trim(Mid(ctlDgr, 1, bol - 1))
  8.      frm.soyadi = Trim(Mid(ctlDgr, bol + 1))
  9.   Case "TC Kimlik Numarası"
  10.      frm.tcno = ctlDgr
  11.   Case "Cep Telefonu"
  12.      frm.telefon = ctlDgr
  13.   Case "Meslek"
  14.      frm.Meslek = ctlDgr
  15.   Case "Yaş"
  16.      frm.yaş = ctlDgr
  17.   Case "Katıldığı İl"
  18.      frm.ili = ctlDgr
  19.   Case "E-Posta"
  20.      frm.email = ctlDgr
  21.   Case "Adres"
  22.      frm.adres = ctlDgr
  23. '    Case "İlgi Alanınız Olan Hayvan"
  24. '      frm.x = ctlDgr
  25. End Select
  26. End Function





  Alıntı
Bu mesajı beğenenler:
#3
Sayın halily; ilgi ve alakanız için çek teşekkür ederim. Düzenlemiş olduğunuz kodlar gayet mükemmel çalıştı. Bana fayda sağladığı gibi diğer form üyesi arakadaşlarımada güzel bir örnek oldu. Elinize emeğinize sağlık. Saygılarımla.



  Alıntı
Bu mesajı beğenenler:
#4
Rica ederim
Iyi calismalar



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FONKSiYON] Bölünmüş Veri Tabanın Yedeğini Alma webtenoyna 1 87 19-02-2024, 01:48
Son Mesaj: dsezgin
  [VBA] Web Den Resim Linklerini Alma hedefkaya 4 126 12-11-2023, 02:32
Son Mesaj: dsezgin
  [VBA] Bir Tabloda Alan Türü Uzun Metin Olan Iki Ayrı Alanı Karşılaştırmak abkbek 13 265 10-11-2023, 22:26
Son Mesaj: abkbek
  Ortalama Alma snapper 13 216 30-09-2023, 18:30
Son Mesaj: dsezgin
  [VBA] Webden Veri Alma idrisy 1 130 26-08-2023, 04:15
Son Mesaj: dsezgin
  Döngü Ile Veri Alma ates2014 5 161 26-08-2023, 01:38
Son Mesaj: halily
  Uzun Metin Formatını Sql De Kısa Metin Formatına çevirebilir Miyiz? adnnfrm 2 192 06-08-2023, 03:51
Son Mesaj: adnnfrm
  Liste Arama Kutusundan Kayıt Silme CarpeDiem 12 361 21-07-2023, 10:31
Son Mesaj: onur_can

Foruma Git:


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