Missing Keyword: end sub

dunski · Jun 11, 2012

Hi Can anyone help please.
I just can't see why I am getting this error. I have included the code for the sub below.

Compiling code. Error
Error parsing program.
Error description: Missing Keyword: end sub
Occurred on line: 221
End If

B4X:

Sub bEnter_Click

   myNumber =txtNum.Text 
   If transactFlag= False Then
      If myNumber.Length <> 10 Then 
         Msgbox("Incorrect number of characters, please enter  your number again","Loyalty Program")
         Exit Sub
      Else
         lblDisplay.Text="Enter transaction amount and click enter"
         lblDisplay.TextColor=Colors.Red
         transactFlag=True
         txtNum.Text=""
         txtNum.INPUT_TYPE_DECIMAL_NUMBERS
         txtNum.Color=Colors.LightGray
      End If ' this is line 221
   Else
      transaction(myNumber)
   End If
txtNum.Text = ""

End Sub

klaus · Jun 11, 2012

Replace Exit Sub by Return.

Best regards.

dunski · Jun 11, 2012

Solved

Thanks Klaus
You're a living legend!
Best regards
Dunski

johnaaronrose · Jul 6, 2013

Baffling missing End Sub error

i'm now getting this message on the las line shown below:
Sub pnlMap_Touch (Action As Int, X As Float, Y As Float)
If MapCalibrating = False Then
Return
End If
If CurrentCalibrationPoint <> 1 AND
CurrentCalibrationPoint <> 2 Then
Return
End If

PS the following have their 'Dims' in Process_Globals:
Dim MapCalibrating As Boolean : MapCalibrating = False
Dim CurrentCalibrationPoint As Int : CurrentCalibrationPoint = 0

pnlMap is a Panel drawn in Designer with its 'Dim pnlMap as Panel' defined in Globals

klaus · Jul 6, 2013

This

B4X:

If CurrentCalibrationPoint <> 1 AND
     CurrentCalibrationPoint <> 2 Then
     Return
End If

should be

B4X:

If CurrentCalibrationPoint <> 1 AND CurrentCalibrationPoint <> 2 Then
    Return
End If

Best regards.

johnaaronrose · Jul 7, 2013

Thank you

klaus said:

This

B4X:

If CurrentCalibrationPoint <> 1 AND
     CurrentCalibrationPoint <> 2 Then
     Return
End If

should be

B4X:

If CurrentCalibrationPoint <> 1 AND CurrentCalibrationPoint <> 2 Then
    Return
End If

Best regards.

Thanks for that. Habits die hard: I'm used to Gambas where no continuation character is need.

Missing Keyword: end sub

dunski

Member

klaus

Expert

dunski

Member

johnaaronrose

Active Member

klaus

Expert

johnaaronrose

Active Member

Similar Threads

Missing Keyword: end sub

dunski

Member

klaus

Expert

dunski

Member

johnaaronrose

Active Member

klaus

Expert

johnaaronrose

Active Member

Similar Threads

Privacy & Transparency

Privacy & Transparency