How to get current field value

HCL Domino Domino Forum
1

Hi allI have one form and i used it window and web application

In window and web application i write a code for field validation using lotusscript.

but its working in window not working web application .so how to slove this problem .

My codeing is …

Dim session As New NotesSession		

Dim db As Notesdatabase

Dim  workspace As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim item1 As Notesitem



Set db = session.currentdatabase

Set uidoc=workspace.CurrentDocument

Set view=db.GetView("Testing")

Set doc=view.GetFirstDocument



If Trim(uidoc.fieldgettext("Name"))="" Then

	Exit Sub

End If





While Not (doc Is Nothing )

	Set item1=doc.GetFirstItem("Name")

	If  uidoc.FieldGetText("Name")=item1.text Then

		Messagebox "This Name field is already exists"

		Call uidoc.GotoField( "Name" )

		Exit Sub

	End If

	Set doc=view.GetNextDocument(doc)

Wend

In web uidoc is not working i know but how to get current field value

2

Subject: How to get current field value

Hi,Dim session As New NotesSession

Dim db As Notesdatabase

'Dim workspace As New NotesUIWorkspace

'Dim uidoc As NotesUIDocument

Dim udoc as NotesDocument

Dim item1 As Notesitem

Dim nm as String

Set db = session.currentdatabase

Set udoc=Session.DocumentContext

nm=udoc.Name(0)

'Set uidoc=workspace.CurrentDocument

Set view=db.GetView(“Testing”)

Set doc=view.GetFirstDocument

'If Trim(uidoc.fieldgettext(“Name”))=“” Then

'Exit Sub

'End If

If (nm=“”) Then

Exit Sub

End If

While Not (doc Is Nothing )

Set item1=doc.GetFirstItem(“Name”)

If uidoc.FieldGetText(“Name”)=item1.text Then

Messagebox “This Name field is already exists”

Call uidoc.GotoField( “Name” )

Exit Sub

End If

Set doc=view.GetNextDocument(doc)

Wend

I hopes it will work.

san