Simple Find/Add/Edit form???

[ItsMe]

Every time you take a trip to the data it taxes the file.



http://en.wikipedia.org/wiki/Thread_(computer_science)

http://www.informit.com/articles/article.aspx?p=25075

My approach to building RDBMS is to limit trips to the data. Use data types that don't require much memory when possible, etc.

I could be wrong, but your approach does not seem very conventional.

[stildawn]

Oh right threads, yeah I know what those are, just thought this was more access specific.

I'll have a closer look into yours tomorrow, but yeah IT are rather protective over admin rights.

[stildawn]

So I have the second half up and running in a Front End/Back End system and so far it has been highly stable. So it looks like most of my concerns are answered.

Just a question however, a few have asked if they can tell who created a record, is there a way to do this automatically without the user having to enter anything? In excel I would use =Environs("Username")

Cheers

[ItsMe]

Good to hear you are moving along!

Here is one aproach
https://www.accessforums.net/code-re...ame-38386.html

Here is another... post #3
https://www.accessforums.net/program...ory-38469.html

[stildawn]

Wow none of those are as simple as environs("username")

Might just have them set a global variable each time they "login" so to speak from the main menu

[Missinglinq]

...In excel I would use =Environs("Username")...

I've seen a number of posts, since the roll out of v2007, reporting that =Environs("Username") sometimes works, sometimes doesn't, even within a single database. I use a fairly simple function that I came across ages ago (sorry to say, I can't remember the source.)

In a Standard Module, paste this in:

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

Function fOSUserName() As String
' Returns the network login name
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 = vbNullString
    End If
End Function

Save the Module and name it anything except fOSUserName.

Then, in Form Design View, in the Default Value Property of the Control, use this

=fOSUserName()

Linq ;0)>

[stildawn]

I'll try that Linq

So if I made a hidden textbox linked to a username field in the table. And use the code above. It should add in their name when they use my add button?

[stildawn]

Just so you know I have had great success with the above.

And everything is running perfectly now for over a week. Thanks everyone for all your help. Can mark this as solved.

Cheers

[ItsMe]

That is good to hear and not a small acomplishment if you ask me. Keep studying up on normalization. If your tables need to be restructured, it is better to do it sooner than later. Like you mentioned, your data was on Excel and this caused problems. Try and analyze the table(s) to make sure you did not migrate some of those problems into the RDBMS.

You may not notice an issue until you try to ad some other type of funcionality to your app. Anyway, just trying to look out. Best of luck!

[stildawn]

Yeah learned heaps, I'm fairly confident that I wont run into these issues in the future.

Cheers again for all your help