The following example uses the GetCurrentView subroutine to determine whether a form is in Form or Datasheet view. If it's in Form view, a message to the user is displayed in a text box on the form; if it's in Datasheet view, the same message is displayed in a message box.
GetCurrentView Me, "Please contact system administrator."
Sub GetCurrentView(frm As Form, strDisplayMsg As String)
Const conFormView = 1
Const conDataSheet = 2
Dim intView As Integer
intView = frm.CurrentView
Select Case intView
Case conFormView
frm!MessageTextBox.SetFocus
' Display message in text box.
frm!MessageTextBox = strDisplayMsg
Case conDataSheet
' Display message in message box.
MsgBox strDisplayMsg
End Select
End Sub