Help with functions

[cc.caroline15]

Hello everyone,
I have every sub procedure on this form exept for the F string function, it should have the following functionality:
F Strings
Input1: Assume user enters one word of at least 4 characters, no spaces.
Input2: Assume user enters one word of at least 4 characters, no spaces.
The click event will use a function procedure that concatenates the last 2 letters of Input2 and the first 2 letters of Input1.
e.g. User enters dog and cat, lblAnswer displays atdo.



but everytime I try to run it I get the run time error 13 type mismatch. Can anyone help me? I have attach my form. Thank you
240CCA05.accdb

[June7]

Why are you using Val() function? That function is to convert text strings like "472 dollars" into a number: 472

[cc.caroline15]

Hi June 7 that's for the other functions
the one that i'm having problems with is the F Strings
Private Sub cmdFStrings_Click()
Dim dblResult As Double
strInput1 = txtInput1.Value
strInput2 = txtInput2.Value
dblResult = Fstrings(strInput1, strInput2)
Me.lblAnswer.Caption = dblResult
End Sub
Private Function Fstrings(strInput1 As String, strInput2 As String)
Fstrings = Left(strInput2, 2) & Left(strInput1, 2)
End Function

[June7]

dblResult is declared as a Double. Declare it as a String. Use different name as well.

Dim strResult As String
...
strResult = ...

Save yourself some typing - Value is default property for data controls. Don't have to specify.

[cc.caroline15]

Thank you for the advice and help I didn't know you didn't have to specify them but now I do

[ssanfu]

Private Function Fstrings(strInput1 As String, strInput2 As String)
Fstrings = Left(strInput2, 2) & Left(strInput1, 2)
End Function

This will return the first two characters of strInput2 and the FIRST two characters of strInput1.

function procedure that concatenates the last 2 letters of Input2 and the first 2 letters of Input1
User enters dog and cat, lblAnswer displays atdo.

I would think you would need to use the function RIGHT() strInput2 to get the last two characters:
(code with June's suggestion)

Private Sub cmdFStrings_Click()
    Dim strResult As String
    strInput1 = txtInput1
    strInput2 = txtInput2
    strResult = Fstrings(strInput1, strInput2)
    Me.lblAnswer.Caption = strResult
End Sub

Private Function Fstrings(strInput1 As String, strInput2 As String)
    Fstrings = Right(strInput2, 2) & Left(strInput1, 2)
End Function