+- 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ığı: Bir değişkenin değereni tüm subroutine' lerde kullanmak (/konu-bir-degiskenin-degereni-tum-subroutine-lerde-kullanmak.html)
Bir değişkenin değereni tüm subroutine' lerde kullanmak - Nezih Süzen - 27/08/2014
Değerli Üyeler,
Çoğunuza belki banal gelebilecek bir sorum var. Bir subroutine' de oluşturduğum bir değeri başkalarında da kullanmak istiyorum.
"Public İmza As String" olarak deklare ettim. başarılı olmadı.
Cvp: Bir değişkenin değereni tüm subroutine' lerde kullanmak - C*e*l*o*y*c*e - 27/08/2014
merhaba
yanlış anlamadıysam sanırım modül yaparak orada kullandıgın işlemi başka yerde de kullanmak istiyorsun
örneğin aşagıda Resmi tatil günlerini bulan bir modül var..
Public Function ResmiTatil(ByVal Tarihim As Date) As Boolean
Dim Gun_Ay As String
Gun_Ay = Format(Tarihim, "ddmm")
If Weekday(Tarihim) = 1 Or Weekday(Tarihim) = 7 Or _
Gun_Ay = 101 Or Gun_Ay = 2304 Or Gun_Ay = 1905 Or Gun_Ay = 2910 Or Gun_Ay = 3008 Then
ResmiTatil = False
Else
ResmiTatil = True
End If
End Function