Merhabalar,
Ekli tabloda bulunan "Kont_Srg" sorgusunda 'İçindekiler' sütunundan sadece Booking No : ......... yazan yerin karşısındaki değeri alıp Bilgi sütununa nası aktarabilirim? Şimdiden yardımlarınızı için teşekkür ederim.
1 - her satırda 1 tane tek mi Booking No :
2 - Booking No : tam olarak bu şekilde mi yazılmış? arada fazladan yada eksik olan boşluk benzeri karakter olabilir mi?
Merhaba,
"1 - her satırda 1 tane tek mi Booking No :" evet her satırda tek birden fazla değil,
"2 - Booking No : tam olarak bu şekilde mi yazılmış? arada fazladan yada eksik olan boşluk benzeri karakter olabilir mi?" evet belirttiğiniz gibi bu şekilde yazılı başka bir formatta olmaz boşluklar iki nokta öncesi ve sonrası 1 kademe kadar var şu an gözüktüğü gibi.
peki güncelleme işlemi nasıl gerçekleştirilecek?
düğmeye basınca çalışacak bir Sorguyla mı yoksa siz kayıtlar arasında dolaşırken mi değeri atayacak?
yapılanlar :
1 - referanslardan VBScript Regular Expressions x.x
VBA Editöründe( ALT+F11) iken menüden Tools / References … tıklanır. Açılan pencerede listeden Microsoft VBScript Regular Expressions seçilip OK tıklanır.
2 - çalışmaya yeni bir modül eklendi
3 - eklenen modüle aşağıdaki fonksiyon tanımlandı
Function xBooking(xVeri As String) As String
xBooking = ""
Dim regex As RegExp
Set regex = New RegExp
With regex
.Pattern = "Booking No 
.+)"
.IgnoreCase = True
.Multiline = True
Set eslesmeler = regex.Execute(xVeri)
For Each eslesme In eslesmeler
If eslesme.SubMatches.Count > 0 Then
For Each alteslesme In eslesme.SubMatches
xBooking = alteslesme
Next alteslesme
End If
Next eslesme
End With
End Function
4 - güncelleme sorgusu oluşturuldu
sorgu kodu:
UPDATE Kont_Strg SET Kont_Strg.Bilgi = xBooking(İçindekiler);
dikkat ederseniz veriyi almak için kullanılan xBooking fonksiyonu sorguda çağrılıyor
Not: çalışmalarınızdaki
Yapılmaması gereken ölümcül hataları düzeltmezseniz ilerde sorun yaşayabilirsiniz
Bu arada kayıtlar gerçek anlamda mı güncellenecek yoksa sadece sorguda mı görünecek?