iyi günler arkadaşlar. bir hücrede çalışana ait bilgiler var ve bu bilgiler hücre içinde sadece '/' ile ayrılmış, bu hücre içinde şahsın doğum tarihleri de gün ay yıl bitişik şekilde yani (örn: 19990101), ben tüm kişilerin doğum yıllarını boş durumda olan dogum_yili isimli sutuna atmak istiyorum. Ayrıca bazı kişilerin doğum tarihleri bulunmuyor ve boş durumda o kişinin de doğum tarihi sutunun boş kalması gerekiyor. yardımcı olursanız çok sevinirim. örnek uygulama ektedir.
Merhaba, modüle aşağıdaki kodu ekle.
Public Function SplitVeriBul(GVeri As String, GSayi) As Variant
On Error Resume Next
Dim var As Variant
var = Split(GVeri, "/", -1)
SplitVeriBul = var(GSayi)
End Function
Alttaki kodu da sorgunun
Sql kaynağına ekle. Sorguyu çalıştırdığında tablodaki alan güncellenir.
UPDATE Tablo1 SET dogum_yili = Left(Right(SplitVeriBul([kisi],2),8),4);
Sn. Ozanakkaya cevabınızı Örnek üzerinde denedim. Oldu ancak örnekte tarih en sonda olduğundan sorun olmadı. Normalde tarihten sonrada veri olacak. O şekilde denediğimde sizin çözümünüze göre sondan alakasız verileri aliyor. Yanı tarih hücre içinde ikici '/' dan sonra gelen anne baba adından sonra geliyor.
Hücredeki altı haneli yani 'örn:19980102' tarih olan sayıyı bularak yılı diğer hücreye atabilir miyiz.
Modüldeki kod:
Public Function SplitVeriBul(GVeri As String) As Variant
Dim Dizi As Variant
Dim Say As Integer
Dizi = Split(GVeri, " ")
For Say = LBound(Dizi) To UBound(Dizi)
If Len(Dizi(Say)) = 8 And IsNumeric(Dizi(Say)) = True Then
SplitVeriBul = Left(Dizi(Say), 4)
Exit For
End If
Next
End Function
Sorgu:
UPDATE Tablo1 SET dogum_yili = SplitVeriBul([kisi]);
dilerim işinize yarar.
Modül kodu
Function DgTrh(Mtn As String) As String
Dim BlYr, BlYrBit As Integer
Dim StrTrh
BlYr = 0
For x = 1 To 2
BlYr = InStr(BlYr + 1, Mtn, "/")
Next x
BlYrBit = InStr(BlYr + 1, Mtn, "/")
If BlYrBit = 0 Then BlYrBit = Len(Mtn & "")
BlYrBit = BlYrBit + 1 - BlYr
Mtn = Mid(Mtn, BlYr, BlYrBit)
For x = 1 To BlYrBit
If IsNumeric(Mid(Mtn, x, 1)) Then StrTrh = StrTrh & Mid(Mtn, x, 1)
Next x
StrTrh = Right(StrTrh, 2) & "." & Mid(StrTrh, 5, 2) & "." & Left(StrTrh, 4)
DgTrh = StrTrh
End Function
güncelleme kodu
CurrentDb.Execute "UPDATE Tablo1 SET dogum_yili = DgTrh([kisi])"
Sn. Ozanakkaya nin ikinci devamındaki kodlarla konu çözülmüştür. Ayrıca Sn. Berduş un cevabını deneme fırsatım olmadı. Cevaplarınız için teşekkürler.