A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] Len Ifadesi- Vba Kod çözümü
#1
Hocalarım Merhaba,

Forumda bir arkadaşımın çalışmasından istifade etmeye çalışıyorum. Len ifadeleri ne ifade ediyor? Örnek :Len(icradairesi) + 2
Rakamları artırırsam satır değişmekte. Bu kodlardaki mantığını (satır başı) bir anlatabilir misiniz? Teşekkürler


Sub UDFOlustur()
On Error GoTo Hata_UDFOlustur


Dim GIcra, GEsas, GTarih, GMetin As Integer

    GIcra = Len(icradairesi) + 2
    GEsas = Len(esasno) + 10
    GTarih = Len(Date) + 9
    GMetin = Len([txtmetin]) + 1


    Open Environ("TEMP") & "/content.xml" For Output As #1
    Print #1, "<?xml version=""1.0"" encoding=""windows-1254""?>"
    Print #1, ""
    Print #1, "<template format_id=""1.7"" >"
    Print #1, "<content><![CDATA[" & TumuBuyuk(icradairesi) & "NA" & vbNewLine & "Esas No :" & esasno & vbNewLine & "Tarih :" & Date & vbNewLine & vbNewLine & (Me.txtmetin) & vbNewLine & vbNewLine & "Alacaklı Vekili" & vbNewLine & "(e-imza)" & "]]></content>"
    Print #1, "<properties>"
    Print #1, "<pageFormat footerFOffset=""20.0"" headerFOffset=""20.0"" paperOrientation=""1"" bottomMargin=""70.875"" topMargin=""70.875"" rightMargin=""70.875"" leftMargin=""70.875"" mediaSizeName=""1""/>"
    Print #1, "</properties>"
    Print #1, "<elements resolver=""hvl-default"">"
    Print #1, "<paragraph Alignment=""0""><content startOffset=""0"" length=""" & GIcra & """ /></paragraph>"
    Print #1, "<paragraph><content startOffset=""" & GIcra & """ length=""1"" /></paragraph>"
    Print #1, "<paragraph><content startOffset=""" & GIcra + 1 & """ length=""" & GEsas & """ /></paragraph>"
    Print #1, "<paragraph><content startOffset=""" & GIcra + 1 + GEsas & """ length=""" & GTarih & """ /></paragraph>"
    Print #1, "<paragraph><content startOffset=""" & GIcra + GEsas + GTarih & """ length=""1"" /></paragraph>"
    Print #1, "<paragraph Alignment=""0""><content startOffset=""" & GIcra + GEsas + GTarih + 1 & """ length=""" & GMetin & """ /></paragraph>"
    Print #1, "<paragraph Alignment=""0""><content startOffset=""" & GIcra + GEsas + GTarih + GMetin & """ length=""1"" /></paragraph>"
    Print #1, "<paragraph Alignment=""0""><content startOffset=""" & GIcra + GEsas + GTarih + GMetin + 1 & """ length=""16"" /></paragraph>"
    Print #1, "<paragraph Alignment=""0""><content startOffset=""" & GIcra + GEsas + GTarih + GMetin + 17 & """ length=""9"" /></paragraph>"
    Print #1, "</elements>"
    Print #1, "<styles>"
    Print #1, "<style name=""default"" description=""Geçerli"" family=""Dialog"" size=""12"" bold=""false"" italic=""false"" foreground=""-13421773"" FONT_ATTRIBUTE_KEY=""javax.swing.plaf.FontUIResource[family=Dialog,name=Dialog,style=plain,size=12]"" />"
    Print #1, "<style name=""hvl-default"" family=""Times New Roman"" size=""12"" description=""Gövde"" />"
    Print #1, "</styles>"
    Print #1, "</template>"

    Close #1
    
Cikis_UDFOlustur:
    Exit Sub
    
Hata_UDFOlustur:
    MsgBox ("UDFOlustur" & Err.Number & "-" & Err.Description & " Hata Kodu, accestr.net Bilgi Veriniz.")
    Resume Cikis_UDFOlustur
End Sub


Eklenti Dosyaları
.rar   TELEKOMPRO_SON -++.rar (Boyut: 105,45 KB / İndirilme: 13)



  Alıntı
Bu mesajı beğenenler:
#2
LEN, varsayılan dil ayarı ne olduğuna bakılmaksızın her karakteri 1 olarak sayar.


Kelime="SORGULAR"
msgbox Len(Kelime)
Gosterim Sonucu 8



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Mssql Hız Sorunu çözümü Ve Bir Soru (access Ile Mssql Kodlarını Tetikleme çözümü) hedefkaya 5 369 25-02-2021, 19:56
Son Mesaj: hedefkaya
  Işlev Görmeyen Dmax Ve Değişken Barındıran Where Ifadesi tarkanay 1 168 25-10-2020, 14:29
Son Mesaj: tarkanay
  Sql Içinde Değişken Kullanımı Ile "desteklenmeyen Join Ifadesi" Hatası tarkanay 7 458 20-10-2020, 15:42
Son Mesaj: tarkanay
  [VBA] Sorgu ifadesi içindeki sözdizimi hatası (eksik işleç) devilspath 5 6.529 07-08-2020, 18:35
Son Mesaj: halily
  [FONKSiYON] Taih Ifadesi Oluşturma Yavuzmumcu 5 385 05-05-2020, 15:30
Son Mesaj: onur_can
  [VBA] EĞER KODU YAZIM TEKNİĞİ -ÇÖZÜMÜ- yahzee_61 4 848 10-12-2018, 01:40
Son Mesaj: yahzee_61
access-sql-20 [VBA] Listeyi görünür yaptıktan sonra seçime eğer ifadesi kullanmak Mr.Midnight 1 791 29-01-2018, 11:42
Son Mesaj: Mr.Midnight
  Olay Özellik İfadesi Hatası raburabu 4 1.037 09-05-2017, 15:03
Son Mesaj: raburabu

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi