Sınırsız Parametreli İşlev(Fonksiyon) yazmak

Sınırsız Parametreli İşlev(Fonksiyon) yazmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Sınırsız Parametreli İşlev(Fonksiyon) yazmak (/konu-sinirsiz-parametreli-islev-fonksiyon-yazmak.html)

Sınırsız Parametreli İşlev(Fonksiyon) yazmak - accessman - 04/06/2012

Bazan öyle olur ki sınırsız parametre verebileceğimiz yordamlara ihtiyaç duyarız. İşte örneği:

Kod:

Function FormatStr(ByVal MainStr As String, ParamArray StrList() As Variant) As String

'ParamArray en son parametrenin değişken uzunluklu bir dizi olmasını sağlıyor.

If UBound(StrList) < 0 Then Exit Function

Dim i As Integer

For i = 0 To UBound(StrList)

MainStr = Replace(MainStr, "%" & i + 1, StrList(i))

Next

FormatStr = MainStr

End Function

Bunu şu şekilde kullanın

Kod:

MsgBox FormatStr("Burası %1. Şu an %2 ve hava %3.", "Türkiye", Now(), “çok güzel.”)

ParamArray olarak tanımladığınız parametreyi en sona yerleştirin. Aksi halde hata oluşur.

Cvp: Sınırsız Parametreli İşlev(Fonksiyon) yazmak - benremix - 04/06/2012

Paylaşımlar için teşekkürler.

Saygılar...

Cvp: Sınırsız Parametreli İşlev(Fonksiyon) yazmak - C*e*l*o*y*c*e - 04/06/2012

sayın accesman öncelikle bu paylaşımlar için ayrı ayrı teşekkürler ,sizden ricamız,konuyu açtıktan sonra örnekler ile kodları paylaşırsanız,işi kodla değil örnek ile alayan arkadaşlar için daha faydalı olur,mümkün oldugunca sadece kod yazıp konuyu açmayın,örnek ile eklemeye çalışın ..kolay gelsin

RE: Sınırsız Parametreli İşlev(Fonksiyon) yazmak - accessman - 11/04/2020

Güncel