Query results in a form

[teddyparnell]

I have a slight problem as i am a bit weak on access skills, I am
trying to run a query by selecting the criteria value from a combo box.
I have got that to work and it produces results from the query.
However i would like to display these results in a form so that it is
more user friendly. How do i do this?

Also I am using a procedure in my database that looks for the username
of the current user logged on using some api thing, looks something
like this:

Function fOSUserName() As String
Dim lngLen As Long, lngx As Long
Dim strUserName As String
strUserName = String(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX<>0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = ""
End If
End Function

Does this look right, i took it from a website somewhere. Also how do I
then use this to make it so that i can store a users username without
them having to type it in on a form?
Hope this makes some kinda sense!

[Douglas J. Steele]

With regards to your second question, it looks as though you got the code
from http://www.mvps.org/access/api/api0008.htm at "The Access Web". In
order for the function you work, you also need the declaration that precedes
the function on that page:

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Afraid I don't understand what you want in your first question.
--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

<te**********@hotmail.com> wrote in message
news:11**********************@z14g2000cwz.googlegr oups.com...

I have a slight problem as i am a bit weak on access skills, I am
trying to run a query by selecting the criteria value from a combo box.
I have got that to work and it produces results from the query.
However i would like to display these results in a form so that it is
more user friendly. How do i do this?

Also I am using a procedure in my database that looks for the username
of the current user logged on using some api thing, looks something
like this:

Function fOSUserName() As String
Dim lngLen As Long, lngx As Long
Dim strUserName As String
strUserName = String(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX<>0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = ""
End If
End Function

Does this look right, i took it from a website somewhere. Also how do I
then use this to make it so that i can store a users username without
them having to type it in on a form?
Hope this makes some kinda sense!