Skip to main content

AccessTr.neT


Etiketler
Yazar: accessman - Cevaplar: 3 - İzleme: 3034
Sınırsız Parametreli İşlev(Fonksiyon) yazmak
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
[code]
MsgBox FormatS
Yazar: asar800 - Cevaplar: 5 - İzleme: 2492
Butona birden çok işlev yükleme
İyi günler
Formdaki butona tıklandığında veya bir başka şekilde birden fazla işlev atanabilirmi? Örneğin kaydet + yenile veya kaydet + sonraki gibi.
Yazar: simendifer - Cevaplar: 5 - İzleme: 2767
buton olay yordamı kodları yanlış işlev yapıyor
Değerli arkadaşlar
buton olay yordamı kodları yanlış işlev yapıyor şöyle ki 2010 ofis kullanıyorum yaptığım programı başka bir bilgisayarda 2007 ofiste kullanırken rapor aç butonu na bastığımda 2007 ofis olan bilgisayarda rapor yazdırıyor yazdır butonuna bastığımda rapor görünüyor neden böyle oluyor bir çözümü varmı sorun nedir acaba
Yazar: tarkanaykın - Cevaplar: 5 - İzleme: 663
İşlev Görmeyen Ekleme Sorgusu
merhaba arkadaşlar, dosyayı ekte gönderiyorum, yapmanızı istediğim tek şey  bi tane ekleme sorgusu var açar açmaz sadece onu, direkt olarak çalıştırın, formlarla işiniz yok, ileti kutuları çıkıyor tamam iyi güzel ama ben gerekli değerleri girdiğim halde " bilmem şu,şu,şu hatalardan dolayı tablonuza ekleme yapılamadı" diyor. ekleme yapacağım tablonun adı "SUREC", nerede hata yapıyorum acaba?
Yazar: tarkanaykın - Cevaplar: 7 - İzleme: 361
İşlev Görmeyen Cells(0,0) İfadesi
arkadaşlar dün geceden beri bu sorunla cebelleşiyorum, diğer konularım kapanmadı diye de, daha doğrusu cevap da gelmedi diye de yeni konu açmakta çekindim açıkçası. ama artık çok sıktı bu durum beni. outlook bünyesinde kodum var ki buna göre; yeni bir Excel dosyası oluşturup açıyor buraya kadar çalışıyor ama ben açık olan o sayfaya cells(0,0) yöntemiyle değer giremiyorum, çok ilginçtir Range("a1").Value= "deneme" şeklinde veri girişi oluyor ama bana Cells() yöntemi lazım çünkü bir dizideki değer
Task