Code: Select all
DoCmd.RunSQL "Insert Into tblUsers (txtAddAlias) Value & (Me."ComputerLoginName") & "'" , dbFailOnError
CurrentDb.Execute "UPDATE tblUsers SET Alias='" & (Me."txtAddAlias") & (Me."ComputerLoginName") & "'", dbFailOnError
Code: Select all
DoCmd.RunSQL "Insert Into tblUsers (txtAddAlias) Value & (Me."ComputerLoginName") & "'" , dbFailOnError
CurrentDb.Execute "UPDATE tblUsers SET Alias='" & (Me."txtAddAlias") & (Me."ComputerLoginName") & "'", dbFailOnError