jmieres

juanito01 respondió: La función... Function dame_edad() As String Dim mibase As DAO.Database Dim mirs As DAO.Recordset Dim sSQL As String On Error GoTo trat_error Set mibase = CurrentDb() sSQL = "select edad from tabla1 where c1=1" Set mirs = mibase.openrecordset(sSQL)...