I have a form with 10 subforms.In each subform I have about 14-15 fields where I want to check if there is any content (text) when the user saves the document (form).
This is done in the QuerySave script below.
I only show a part of one subform here.
Maybe it would be better to do this in another way?
My question is if it is important if I place the “If a0 = “New” (1) before the
statements: “uidoc.FieldGetText(……)” or (2) if I place it after these (a-m below)?
I suppose in case (1) the script runs faster because it does not have to go through
all a-m (below) - if a0 <> “New”.
But is it of less or no importance?
(Only one subform has the fieldvalue “New”
– the 9 other subforms have other fieldvalues to check)
Sub Querysave(Source As Notesuidocument, Continue As Variant)
On Error Goto ErrorHandler
Dim s As New NotesSession
Dim w As New NotesUIWorkspace
Dim uidoc As notesuidocument
Dim Meddelande As String
Set uidoc=w.currentdocument
a0 = uidoc.FieldGetText("OrderNewFast" )
If a0 = “New” Then
a= uidoc.FieldGetText(“SubscriberNew” )
a2 = uidoc.FieldGetText(“AdressInstallNew” )
b = uidoc.FieldGetText(“TitleNew” )
c= uidoc.FieldGetText(“CompanyNew” )
d = uidoc.FieldGetText(“DivisionNew” )
e= uidoc.FieldGetText(“SubdivisionNew” )
f = uidoc.FieldGetText(“Subscriber2New” )
g = uidoc.FieldGetText(“MotkodNew” )
h = uidoc.FieldGetText(“AnslutNew” )
i = uidoc.FieldGetText(“TelephoneNew” )
j = uidoc.FieldGetText(“FreeNuttagNew” )
k = uidoc.FieldGetText(“RoomnrNew” )
l = uidoc.FieldGetText(“DateXNew” )
m = uidoc.FieldGetText(“SubscriberNewOK” )
If a0 = “New” Then
If a = “” Then
Message = |V g specify subscriber!|
Messagebox Message, 48, "FelMessage"Call uidoc.GoToField(“SubscriberNew” )continue=False
Exit Sub
End If
If a2 = “” Then
Message = |V g specify installadress!|
Messagebox Message,48, “FelMessage” Call uidoc.GoToField ( “AdressInstallNew” )
continue = False
Exit Sub
End If
If b = “” Then
Message = |V g specify Title!|
Messagebox Message, 48, “FelMessage”
Call uidoc.GoToField ( “TitleNew” )
continue = False
Exit Sub
End If
End if
Exit Sub
ErrorHandler:
Resume Next
End Sub