Solved Syntax Error (1 Viewer)

[PatAccess]

Hello Guys,
I am trying to familiarize myself with Function in MS Access VBA. Does it not return strings. The following code give me an error message

Function getTraining(strTraining As String) As String
    strTraining = "SELECT DISTINCT [Training] FROM QryTrainedEmployees ORDER BY [Training]"
    Return strTraining
End Function

Why?

 

[pbaldy]

You want the function to return the string? Try

getTraining = strTraining

Though it is odd that you taking strTraining as an input but not using it.

 

[PatAccess]

You want the function to return the string? Try

getTraining = strTraining

Though it is odd that you taking strTraining as an input but not using it.

I put it as a parameter because I thought it was needed but if I dont want it do I do?

Function getTraining() As String
    getTraining = "SELECT DISTINCT [Training] FROM QryTrainedEmployees ORDER BY [Training]"
    Return strTraining
End Function

Because that doesn't work either

 

[The_Doc_Man]

The "Return x" syntax trips me up sometimes, too. It is one of the differences between VBA and VB. Return x in VB returns a value for the function, but in VBA the Return does not use an argument. As Paul has noted, you need the explicit assignment expression in VBA.

 

[pbaldy]

This

Return strTraining

has to be this

getTraining = strTraining

 

[PatAccess]

This

Return strTraining

has to be this

getTraining = strTraining

I guess I am confuse as to where I assign the string? Because the following does not work either or do you mean I do not use the keyword "Return"? So like this?

Function getTraining() As String
    Dim sqlTraining As String
    sqlTraining = "SELECT DISTINCT [Training] FROM QryTrainedEmployees ORDER BY [Training]"
    getTraining = sqlTraining
End Function

 

[pbaldy]

Yes, like that. You understand that's going to return a SQL string, not the result of that string?

 

[PatAccess]

Yes, like that. You understand that's going to return a SQL string, not the result of that string?

Yes I understand it and it worked. So, thank you very much

 

[pbaldy]

Happy to help!

 

[Isaac]

What do you want to do in plain english?