3085 Error

[DS928]

I am getting a 3085 Undefined Function ENVIRON in Expression on this bit of code.

Private Sub Form_Load()
Dim TU As Boolean
TU = Nz(DLookup("TerminalTouch", "tblTerminal", "TerminalName = Environ(""ComputerName"")"), 0)


If TU = True Then
HidePointer
Else
End If
End Sub

Using Access 2010 and Windows 7
Any help is appreciated. Thank you.

[pbaldy]

Try

TU = Nz(DLookup("TerminalTouch", "tblTerminal", "TerminalName = '" & Environ("ComputerName") & "'"), 0)

[DS928]

Worked! Thank you.

[pbaldy]

No problem, and welcome to the site by the way!

[DS928]

Thank you for the warm welcome! Have a good day!