Access - error de sintaxis return ycodigo

Private Function ult_codigocarrera() As Byte
Dim db As Database
Dim ssTmp As Recordset
Dim sSQL As String
Dim yCodigo As Byte
sSQL = "SELECT Max(cod_carreras) AS UltCodigo FROM t_carreras"
Set db = CurrentDb()
Set ssTmp = db.OpenRecordset(sSQL, dbOpenSnapshot, dbForwardOnly)
yCodigo = ssTmp!UltCodigo
ssTmp.Close
Set ssTmp = Nothing
Set db = Nothing
Return yCodigo
End Function

al ejecutar me sale error de sintaxis y me señala la línea Return yCodigo y no se como corregir este error. Necesito ayuda!!!!!!!!

Hola.

No sé de que lenguaje vienes, pero en VB no se devuelven los valores de las funciones con Return como estarás acostumbrado sino con NombreFunción = Expresión.

Por tanto cambia la linea y pon ult_codigocarrera = yCodigo

Tan sencillo o complicado como eso.

De todas formas puedes ahorrarte la función si usas
variable = DMax("cod_carreras", "t_carreras") *
en vez de
variable = ult_codigocarrera()

Un saludo,

Norberto


* DMáx("cod_carreras"; "t_carreras") si la expresión la usas en Access y no en VBA.

Muchas gracias Norberto por tu pronta ayuda, disculpa que no te haya agradecido con anterioridad. Es que no había leído la respuesta. Esta base de datos la estoy creando en ACCESS 2010

No me adiciona el valor al código este es el código que estoy utilizando con las modificaciones que me sugeristes.Te agradezco de todo corazón tu ayuda. Quite la función. Dios te llene de sabiduría y me puedas ayudar a solucionar esto.

Mil bendiciones!!!!

Private Sub Cuadro_combinado26_NotInList(NewData As String, Response As Integer)
Dim mensaje As String, titulo As String, respuesta As Integer
Dim db As Database, r As Recordset, codigo As Integer
mensaje = "El Recurso no se encuentra en la lista. ¿Desea añadirlo?"
titulo = "Nuevo Recurso"
respuesta = MsgBox(mensaje, 36, titulo)
If respuesta = 6 Then 'Si se desea dar de alta el nuevo elemento
Set db = CurrentDb()
Set r = db.OpenRecordset("T_RECURSOS_NOMBRE")
codigo = DMax("[cod_recurso]", "[T_RECURSOS]") + 1 'Funcion que obtiene el ultimo codigo de recurso de la tabla
r.AddNew
r![COD_RECURSO] = codigo
r![N_RECURSO] = NewData
r.Update
r.Close
origen = "Select n_recurso From t_recursos" 'Se actualiza el origen de la fila
Me![N_RECURSO].RowSource = origen
Me![N_RECURSO].Requery
Me![COD_RECURSO] = codigo 'Se asigna el nuevo codigo
Else
Me![N_RECURSO] = Null
DoCmd.GoToControl (N_RECURSO)
End If
Response = DATA_ERRCONTINUE
End Sub