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.