AccessTr.neT
İsimleri Ad ve Soyad şeklinde Ayırma Ve Tablo Güncelleme. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: İsimleri Ad ve Soyad şeklinde Ayırma Ve Tablo Güncelleme. (/konu-isimleri-ad-ve-soyad-seklinde-ayirma-ve-tablo-guncelleme.html)

İsimleri Ad ve Soyad şeklinde Ayırma Ve Tablo Güncelleme. - te-kin - 29/10/2019

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..

Cvp: İsimleri Ad ve Soyad şeklinde Ayırma Ve Tablo Güncelleme. - berduş - 29/10/2019

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


Cvp: İsimleri Ad ve Soyad şeklinde Ayırma Ve Tablo Güncelleme. - te-kin - 29/10/2019

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

Cvp: İsimleri Ad ve Soyad şeklinde Ayırma Ve Tablo Güncelleme. - te-kin - 29/10/2019

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.

Cvp: İsimleri Ad ve Soyad şeklinde Ayırma Ve Tablo Güncelleme. - berduş - 29/10/2019

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


Cvp: İsimleri Ad ve Soyad şeklinde Ayırma Ve Tablo Güncelleme. - te-kin - 01/11/2019

teşekkürler elinize sağlık