B4J Question Fix me my warning #2

[universengo]

My code is as below:

Sub txtAreaNull (txtLM As TextArea, tb As String) As Boolean
    Dim tNull As Boolean = False
    If txtLM.Text="" Then
        fx.Msgbox(Main.MainForm,tb,"Warning!")
        txtLM.RequestFocus
        tNull = True
        Return tNull
    End If
End Sub

The log is

Not all code paths return a Value. (warning #2)

Nobody help me to fix this error.
Thanks.

 

[Tayfur]

Sub txtAreaNull (txtLM As TextArea, tb As String) As Boolean
    Dim tNull As Boolean = False
    If txtLM.Text="" Then
        fx.Msgbox(Main.MainForm,tb,"Warning!")
        txtLM.RequestFocus
        tNull = True
        Return tNull
    End If
    Return tNull
End Sub

 

[josejad]

https://www.b4x.com/android/forum/threads/not-all-code-paths-return-a-value.77062/

If txtLM.Text is not "", then you don't return a value, but it's just a warning.

 

[universengo]

Sub txtAreaNull (txtLM As TextArea, tb As String) As Boolean
    Dim tNull As Boolean = False
    If txtLM.Text="" Then
        fx.Msgbox(Main.MainForm,tb,"Warning!")
        txtLM.RequestFocus
        tNull = True
        Return tNull
    End If
    Return tNull
End Sub

That is perfect!
Thank Tayfur so much.

 

[universengo]

https://www.b4x.com/android/forum/threads/not-all-code-paths-return-a-value.77062/

If txtLM.Text is not "", then you don't return a value, but it's just a warning.

My new code.

Sub txtAreaNull (txtLM As TextArea, tb As String) As Boolean
    If txtLM.Text="" Then
        fx.Msgbox(Main.MainForm,tb,"Warning!")
        txtLM.RequestFocus
        Return True
    Else
        Return False
    End If
End Sub

Fixed a warning #2