Skip to main content

AccessTr.neT


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

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

#1
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.
@benbendedeilem
Son Düzenleme: 04/06/2012, 10:10, Düzenleyen: accessman.
Cevapla
#2
Paylaşımlar için teşekkürler.

Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla
#3
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
Cevapla
#4
Güncel
@benbendedeilem
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task