Mensaje de aviso en formulario condicionado a datos de una tabla

Una sugerencia: si solo quieres elegir las sustancias candidatas (según entiendo yo) ¿Por qué no mostrar únicamente las que son candidatas para ese producto? Simplemente tendrías que añadirle una condición más a tu consulta origen de datos del cuadro combinado:

SELECT qrySUST.SUST, qrySUST.CAND

FROM qrySUST

WHERE (((qrySUST.CodTP)=[Form]![CodTP].[value])) AND qrySUST.CAND=-1

ORDER BY qrySUST.SUST;

Y para que se te actualice en cada registro, en el evento "Al entrar" o "Al recibir el enfoque" del cuadro combinado le pones el siguiente código: Me. CboSUSTenPROD. Requery

Para hacer lo que pides (el mensaje), sería una cosa así, suponiendo que tu cuadro combinado sea multivalor, como se desprende del enunciado:

En el evento "Después de actualizar" o "al perder el enfoque" o "al salir" de tu cuadro combinado, le pones este código (que tendrás que adaptar a los nombres que tu tengas):

Private Sub cboSUSTenPROD()
Dim miSQL As String
Dim rst As DAO.Recordset
Dim rstSust As DAO.Recordset2
Dim listaSust() As String
Dim i As Integer
Dim mensaje As String
Dim cuenta As Integer
If Not IsNull(Me.cboSUSTenPROD) Then
    DoCmd.RunCommand acCmdSaveRecord
    Set rst = CurrentDb.OpenRecordset("SELECT * FROM tblProductos WHERE TP=" & Me.TP)
    Set rstSust = rst("Sust").Value
    i = 1
    'Coges todos los valores seleccionados y los pasas a una matriz
    rstSust.MoveFirst
    Do Until rstSust.EOF
        ReDim Preserve listaSust(i)
        listaSust(i) = rstSust!Value
        i = i + 1
        rstSust.MoveNext
    Loop
    'Miras si cada sustancia es candidata o no
    For i = 1 To UBound(listaSust())
        'Si es candidata, las vas encadenando, separando con comas, y cuentas las que son candidatas
        If DLookup("CAND", "tblSUST", "SUST='" & listaSust(i) & "'") = True Then
            mensaje = mensaje & listaSust(i) & ","
            cuenta = cuenta + 1
        End If
    Next
    'Terminas de construir el mensaje, si hubo candidatas
    If Len(mensaje) > 0 Then
        If cuenta = 1 Then
            mensaje = "La sustancia " & Left(mensaje, Len(mensaje) - 1) & " es candidata"
        Else
            mensaje = "Las sustancias " & Left(mensaje, Len(mensaje) - 1) & " son candidatas"
        End If
        MsgBox mensaje
    End If
    rst.Close
    Set rst = Nothing
    Set rstSust = Nothing
End If
End Sub

Para que lo veas en acción, te adjunto un mini-ejemplo: http://www.filebig.net/files/ZuZsQ5RgUy 

Un saludo

¡Muchas gracias, Sveinbjorn! Me ha costado copiarlo en mi base, pero porque quise simplificar los nombres de los campos y tablas en la pregunta, y como al final todo era 'sust' casi me vuelvo loca al cambiarlos porque no controlo mucho VB. Pero al final lo he conseguido! Me ha ayudado mucho que me mandases el archivo. :)

Mil gracias,

Un saludo

Sveinbjorn,

tengo un problemilla. Me he dado cuenta de que las sustancias del mensaje no se actualizan adecuadamente.

Por ejemplo, si el primer producto que escojo con el TP '1' no tiene sustancias candidatas, no me aparece el mensaje en ninguno de los siguientes productos con el mismo TP. Y si tiene una sustancia candidata, esta es la que aparece en los siguientes mensajes para los productos con el mismo TP.

Probé con el código que me dijiste (Me. CboSUSTenPROD. Requery), pero nada.

Seguro que es una tontería, pero no sé dónde puede estar el fallo.

Te adjunto una copia del archivo para que veas dónde puedo haber metido la pata. http://www.filebig.net/files/LeUgCAzwQa

Gracias

Saludos

Luisa: En mi opinión el mejor evento para sondearlo es el GotFocus del propio Combo, ya que se te adelantará y podrás elegir alguna de de las sustancias sugeridas.

Private Sub CboSUSTenPROD_GotFocus()
Dim Rst As DAO.Recordset
Dim CadenaCand As String
CadenaCand = ""
Set Rst = CurrentDb.OpenRecordset(Me.CboSUSTenPROD.RowSource, dbOpenSnapshot)
Rst.MoveLast
Rst.MoveFirst
Do While Not Rst.EOF
        If Rst!CAND = -1 Then
                CadenaCand = CadenaCand & Rst!SUST & " ; "
        End If
        Rst.MoveNext
Loop
'Le quito a la cadena final los 3 espacios sobrantes
CadenaCand = Left(CadenaCand, Len(CadenaCand) - 3)
MsgBox "En las Sustancias de éste Combo hay la(s) siguiente(s) Candidata(s):  " & CadenaCand
End Sub

En el Mensaje te saldrán las sustancias Candidatas, dentro de todas las que haya en el Combo.

Mis saludos >> Jacinto

Hola Jacinto,

Muchas gracias por tu respuesta.

He hecho lo que me has dicho, pero cuando pongo el cursor en el control de las sustancias en el formulario me salta un error de Visual Basic "Se ha producido el error '3061' en tiempo de ejecución: Pocos parámetros. Se esperaba 1."

Y cuando hago clik en depurar me resalta la fila:

Set Rst = CurrentDb.OpenRecordset(Me.cboSUSTenPROD.RowSource, dbOpenSnapshot)

No tengo ni idea de cómo arreglarlo, ¿sabes por qué puede ser?

Saludos