Skip to main content

AccessTr.neT


Tablodaki Satırlardaki Karakter Adedi Bulma

Tablodaki Satırlardaki Karakter Adedi Bulma

#27
Elinize sağlık @berduş hocam süper olmuş.
Bu arada say olayı @accessman hocamızın hastane dosyasına uygulanabilir.Bu union olayına bir türlü kafam basmıyor okadar video izlememe rağmen Img-grin
Bende ayırma için kod hazırlamıştım.Kodu ekleyeyim sizin dosyayı ve benim en son dosyayı ilk mesaja ekleyeyim.

Private Sub Komut0_Click() 'Ayirma
   
    Dim Sql As String, i As Integer
    Dim rs As Recordset, birlestir
   
    Sql = "SELECT  max(SplitStnSay([Alan1])) AS [HsStn1] FROM Tablo1;"
   
    CurrentDb.QueryDefs("Sorgu1").sql = sql
   
    Set rs = CurrentDb.OpenRecordset(sql)
   
    If rs.RecordCount > 0 Then
        For i = 0 To rs(0)
            birlestir = birlestir & ", SplitVeriBul([Alan1]," & i & ") As [Alan " & i + 1 & "]"
        Next
       
        birlestir = Mid(birlestir, 2)
        Sql = "SELECT Alan1," & birlestir & " From Tablo1"
        CurrentDb.QueryDefs("Sorgu1").sql = sql
        DoCmd.OpenQuery "Sorgu1"
  End If
   
    rs.Close
    Set rs = Nothing
    birlestir = vbNullString
    Sql = vbNullString
   
End Sub
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Tablodaki Satırlardaki Karakter Adedi Bulma - Yazar: feraz - 28/03/2020, 23:05
Task