07-01-2019, 00:46
(06-01-2019, 23:19)hturkavci03 demiş ki: Merhaba, verdiğiniz kodu soyisim olarak da yaptım ancak formda ve sorguda uygulayamadım. Örnek ektedir.
Visual Basic
- Public Function BasHarfler(AdSoy As String) As String
- Dim Kelime As Variant, Sayac As Long, Sonuc As String
- Kelime = Split(AdSoy, " ", , vbTextCompare)
- For Sayac = 0 To UBound(Kelime)
- Sonuc = Sonuc & Mid(Kelime(Sayac), 1, 1)
- Next Sayac
- BasHarfler = Sonuc
- End Function
Visual Basic
- Private Sub numara_AfterUpdate()
- Me.mesaj = BasHarfler(Me.isim & " " & Me.soyisim) & "." & " - Tel : " & Me.numara
- End Sub
SQL
- UPDATE Tablo1 SET Tablo1.mesaj = BasHarfler([isim] & " " & [soyisim]) & "." & " - Tel : " & [numara]
- WHERE (((Tablo1.mesaj) IS NULL))
Yukaridaki VBA yontemi Sn Jon206'nin daha onceden size evrak projenizde yapilmisti. Guncelleme sorusunu SELECT'e cevirebilirsiniz.