(la tabla es muy sencilla: 3 columnas: secuencia (Indice), MTitulo y MTexto
Este es la función:
Código: Seleccionar todo
Function cgULeeTextoMensaje(optional seq As Long, titulo, mensaje)
'lee tabla _Mensajes de 3 columnas: Secuencia, Mtitulo, Mtexto
Dim omiTabla As Object
Dim omiBD As Object
Dim miSQL As String
On Error goTo Err_Sub
if isMissing(seq) then seq = 3
Set omiBD = Application.CurrentDb()
miSQL = "SELECT * FROM _MensajesCuadros WHERE (Secuencia = “ & seq & ");"
Set omiTabla = omiBD.OpenRecordset(miSQL)
If omiTabla.RecordCount > 0 Then
omiTabla.MoveFirst
titulo = "(" & seq & ") " & omiTabla.MTitulo()
mensaje = omiTabla.MTexto()
msgbox titulo & chr(13) & mensaje
else
titulo = ""
mensaje = "(" & seq & ")" & " Sin mensaje"
msgbox titulo & chr(13) & mensaje
End If
Exit_Sub:
omiTabla.Close
Set omiBD = Nothing
exit function
Err_Sub:
MsgBox Err & Chr(13) & Error
Resume Exit_Sub
End Function
