Herkese Merhaba;
Access sorgusu hazırlarken VB kodu kısmında kullanıcı adını almak için kullandığımız Environ("username") kalıbını sorguda kullanmak istiyorum fakat beceremedim. Sorguda böyle bir imkan var mıdır acaba?
sayın tufanbal,
bahsettiğiniz talebinize yönelik olarak;
YÖNTEM 1
Public Function GetUserName() As String
GetUserName = CreateObject("WScript.Network").UserName
End Function
yukarıda kodları bir Modül'e ekleyip kaydediniz.sorguda
kullanici: GetUserName()
ifadesini yazmak sureti ile kullanabilirsiniz.
YÖNTEM 2
Public Function getUserName() As String
getUserName = Environ("UserName")
End Function
yukarıda kodları bir Modül'e ekleyip kaydediniz.sorguda
kullanici: getUserName()
ifadesini yazmak sureti ile kullanabilirsiniz.
YÖNTEM 3
Public Function Environ(Expression)
On Error GoTo Err_Environ
Environ = VBA.Environ(Expression)
Exit_Environ:
Exit Function
Err_Environ:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_Environ
End Function
yukarıda kodları bir Modül'e ekleyip kaydediniz.sorguda
kullanici: Environ("USERNAME")
ifadesini yazmak sureti ile kullanabilirsiniz.
bilginize...iyi çalışmalar,saygılar.
Ellerinize sağlık. Yöntem 3 cazip geldi.
sayın tufanbal,
her 3 yöntemde de aynı sonucu alırsınız.
elbette ki,tercih ve takdir sizindir.
3.Yöntem üzerinde ENVIRON ifadesi yazıyor diye kullanmanız şart değil.diğerleri ile de olmaktadır.
bilginize...iyi çalışmalar,saygılar.
Paylaşımınız için teşekkürler.