Access 2003: Controllo su apertura della form

[malena_visentin]

Ciao a tutti, piccolo problema ho una maschera continua con id, descrizione e giacenza. Come posso fare per far si che quando si apre questa maschera una msgbox mi avvisi di tutti i prodotti il cui campo giacenza sia inferiore a 100 ed una volta aperta mi evidenzi in rosso questi campi????
Grazie per le risposte che saprete darmi.

[miciomao]

Ciao

io evidenzierei la cosa e poi una conferma se vederli oppure no

Private Sub Form_Open(Cancel As Integer)

Dim Sottoscorta As Integer
Sottoscorta = DCount("[id]", "NomeTabellaQry", "[giacenza]<101")
If Sottoscorta > 0 Then
Select Case MsgBox("ATTENZIONE:" & vbCrLf & vbCrLf & "Ci sono " & Sottoscorta & " prodotti sottoscorta!" & vbCrLf & "Vuoi visualizzarli?", vbOKCancel + vbInformation, "RILEVATI SOTTOSCORTA")
Case vbOK
DoCmd.ApplyFilter "", "(([giacenza])<101)"
Case vbCancel
DoCmd.ApplyFilter False
Exit Sub
End Select
End If

End Sub

Ciao
Alex

[malena_visentin]

Sei un mito. Grazie Alex