ekte ki tabloda bir listem var bu listede ki ad ve soyadları ayırıp yine aynı tabloda bulunan alanlara yazdırmak istiyorum. form da buna benzer örnekler gördüm ama form üzerinden tek tek yapılıyor. ben ise formda tek tek uğraşmadan bir buton yardımı ile ad ve soyadları ayırıp tabloyu güncellemek istiyorum. yardımlarınız için şimdiden teşekkürler..

dilerim işinize yarar
iyi çalışmalar
komut1 tıklama olayı

Private Sub Komut1_Click()

Dim txtGuncelle As String



    txtGuncelle = "update OGR set [ADI]=left([ADI SOYADI],instrRev([ADI SOYADI],' ')-1), [SOYADI]=mid([ADI SOYADI],instrRev([ADI SOYADI],' ')+1)"

    CurrentDb.Execute txtGuncelle



End Sub

teşekkürler elinize sağlık...

Tabloda ki " Bugün Ekim ayının 29. günü" değerinden, kod ile sadece 29 rakamını nasıl ayırırız. 29 dan sonra nokta işareti var. 29 ile birleşik.

Kısaca metin içindeki sayısal değerleri kodla ayırıp başka bir sütuna nasıl kayıt yaptırabiliriz.

dilerim işinize yarar
temel mantık aşağıdaki gibidir

Dim Uzunlk, x As Integer

Dim Hrf As String

Uzunlk = Len(Me.txtHepsi)

For x = 1 To Uzunlk

    Hrf = Mid(Me.txtHepsi, x, 1)

    If IsNumeric(Hrf) Then Me.txtsayi = Me.txtsayi & Hrf Else Me.txtMetin = Me.txtMetin & Hrf

Next x

teşekkürler elinize sağlık