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.