Hello every one
i have two tables
Table 1:
recid autonumber
userid text
Table 2:
recid number
userid text
now how can i add the recid and userid in table number two
(by the way relations has been set and this is the command i am using)
DoCmd.RunSQL "insert into attempts(recid,lastsignon,un,mn) values('" & Me.recid.Value ','"&now()&"','"&un()&"','"&mn()&"')"
but i am getting erro revery time i try to run it
the reason is instead of every time sending the login data in to the same table i want to send in to seperate table it is easier this way to keep track of every one
here is my code
http://www.hgh.demon.co.uk/test.zip
Best Regards,
Hamed Gholamian

Sorry again i manage to fix it but here is the code
Dim intUserID
intUserID = DLookup("recId", "tblUserSecurity_Sec", "[UserID]='" & Me.txtUserID & "'")
DoCmd.RunSQL "INSERT INTO attempts ( lastsignon,userid) SELECT Now() AS lastLogin, " & intUserID

it goest after the cmd login at the last line before i close it but how can i add two more values in to this table the first one is un and the other one is mn and un and mn both of them are function and also same as field name
PS: i just upload the new updates in to link that i provided inmy previous message
Best Regards,
Hamed Gholamian

any one please please please i need help

Best Regards,
Hamed Gholamian

Hi Hamed,

I think you are almost there! Have a look below and let me know if this helps.

Code Starts - - -
Dim lngUserID As Long
Dim strSQL As String

lngUserID = DLookup("recID", "tbl_UserSecuritySec", "[UserID]='" & txtUserID & "'")

If lngUserID = 0 Then Exit Sub 'Exit if not match?

strSQL = "INSERT INTO tbl_Attempts ( LastSignon, UserID, mn, un ) " & _
        "SELECT Now() AS CurTime, " & lngUserID & " AS CurUserID, mn() AS Funct1, un() AS Funct2; "

DoCmd.RunSQL strSQL

Code Ends - - -

This does exactly what you did but now has the addition of two functions which are appended to the table. The functions are held in a module and are public. Is this correct?

Jon