Help Access 2000

[gepol]

Xerei kaneis pos mporo na travixo me kodika, to onoma enos user sto diktyo apo tin access 2000?

[GrMikeD]

gine pio sugekrimenos΄, dwse paradeigma tou ti ennoeis

[gepol]

Sto diktyo yparxoun Users. (network neighborhood, domain users, etc.) Einai dynaton mesa apo kodika stin access na travixo ton User pou tin doulevei? (Den ennoo tous users and groups pou dimiourgei h access)

btw, tx gia to endiaferon pou deixneis

[GrMikeD]

Uparxei to Api call ton windows: GetUserName() pou dinei to onoma tou user pou trexei to programma apo to opoio kaleitai. Den kserw Access, oute vb kai den borw na se boithisw pws na tin kaleseis. Alla pistevw oti efoson borei na klithei apo vb, borei kai apo access. Psakse kapou gia kapoio paradeigma.

[gepol]

dystyxos oxi, tks anyway......

[GrMikeD]

Nomizw oti boreis. Me osi gnwsi vb exw, prepei na einai kapws etsi o kwdikas:

 

<pre><font class="small">code:</font><hr>

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

 

Sub ShowUserName() As String

Dim Buffer As String * 100

Dim BuffLen As Long

BuffLen = 100

GetUserName Buffer, BuffLen

ShowUserName = Buffer

End Sub

</pre><hr>

 

nomizw oti to parapanw borei na bei kai se access source code.

 

Episis mou eipe enas filos oti uparxei kai to: Application.UserName kateutheian apo to Application object tis Access

[gepol]

oi entoles GetUsername() kai Apllication.Username den yparxoun stin access, thanks anyways..

[gepol]

telika to vrika apo allou, me tin entoli Environ(Var)

[GrMikeD]

swsta! einai apothikevmeno kai stin enviromental variable USERNAME.

 

Kai to onoma tou upologisti einai stin COMPUTERNAME ama se endiaferei...