Page back

HCL Domino Domino Forum
1

Hello,

I’ve came to a little problem, which I don’t know how to solve.

In my database, I want to be able to go a page back, like on a cancel button, like: javascript:history.back(-1); I was wondering if something simular like this was working in the Notes client.

Thanks in advance,

Stephan

2

Subject: Page back

Yes, it can be done easily.

Make a button named “Cancel” on the Notes Form, and put in the Click event the following LotusScript code:

Sub Click(Source As Button)

Dim workspace As New NotesUIWorkspace

Set uidoc=workspace.currentdocument

uidoc.document.saveoptions="0"

uidoc.close

End Sub

3

Subject: Page back IN LOTUS NOTES; WORKS…

It’s possible, with Appi program. This Program send ALT KEY, LEFT ARROW =PAGE BACK (button).You copy this code in a button, it works fine…

Declare Sub keybd_event Lib “user32” (Byval bVk As Any, Byval bScan As Any, Byval dwFlags As Long,_

Byval dwExtraInfo As Long)

Declare Function OemKeyScan Lib “user32” (Byval wOemChar As Integer) As Long

Declare Function CharToOem Lib “user32” Alias “CharToOemA” (Byval lpszSrc As String,_

Byval lpszDst As String) As Long

Declare Function VkKeyScan Lib “user32” Alias “VkKeyScanA” (Byval cChar As Any) As Integer

Declare Function MapVirtualKey Lib “user32” Alias “MapVirtualKeyA” (Byval wCode As Long,_

Byval wMapType As Long) As Long

Declare Sub DoSleep Lib “kernel32” (Byval dwMilliseconds As Long)

Declare Function FindExecutable Lib “shell32.dll” Alias “FindExecutableA” (Byval lpFile As String,_

Byval lpDirectory As String, Byval lpResult As String) As Long

Const KEYEVENTF_KEYUP = &H2

Const VK_MENU = &H12       ' Alt key

keybd_event &H12,0,0,0 

keybd_event &H25,0,0,0 ' 

intVKScan = MapVirtualKey(VK_MENU, 0)

keybd_event VK_MENU, intVKScan, KEYEVENTF_KEYUP, 0

'keybd_event &H12,0,0,0