AccessTr.neT
Tersine Çevir - 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ığı: Tersine Çevir (/konu-tersine-cevir.html)

Sayfalar: 1 2


RE: Tersine Çevir - berduş - 17/01/2023

Önerilerimle ilgili araştırma yaptınız mı?


RE: Tersine Çevir - Yandemir - 17/01/2023

o zaman split ve dizi başka yolu yok


RE: Tersine Çevir - husem - 18/01/2023

(17/01/2023, 23:48)berduş yazdı: Önerilerimle ilgili araştırma yaptınız mı?

split ile ilgili örnek birşeyler bulamadım,
olmazsa da başka bir çözüm bulacağım, gerekirse el ile yazarım,

ilgilendiğiniz için teşekkür ederim,


RE: Tersine Çevir - Yandemir - 18/01/2023

Dim myString As String
    Dim myStringSonuc As String
    Dim Dizim() As String
   
    myString = "1-2-3-4-5-6-7-8-9-10-11-12-13-14-15"
    Dizim() = Split(myString, "-")
   
    For i = UBound(Dizim) To LBound(Dizim) Step -1
        myStringSonuc = myStringSonuc & Dizim(i) & "-"
    Next i
   
    MsgBox Mid(myStringSonuc, len(myStringSonuc)-1)


RE: Tersine Çevir - husem - 18/01/2023

teşekkür ederim, kolay gelsin,
uygulamadım, çalışıyor,