For A Name, Search To Know If It Exist Really.

This Content Component encountered an error
How test a name in an input field without searching
into the adress database ....


Sub Querysave(Source As Notesuidocument, Continue As
Variant)

' D?claration
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim texte As String

' Initialisation
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
MB_ICONSTOP = 16

' search to know if the name exist
texte = uidoc.FieldGetText( "Field_name" )
If Not(Trim(texte)="") Then
Set tName = New NotesName(texte)
If (tName.CANONICAL = tName.COMMON) Then
Msgbox "unable to find the name",MB_ICONSTOP,"Erreur"
Call uidoc.GotoField( "Field_name" )
Continue = False
Exit Sub
End If
Else
Msgbox "Please, give a real name",MB_ICONSTOP,"Error"
Call uidoc.GotoField( "Field_name" )
Continue = False
End If
End Sub
This was first published in November 2000

Dig deeper on Domino Resources - Part 6

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close