it does! ... in the frmAsk code. here it is:
Option Compare Database
Private Sub Comando1_Click()
answered = 1
DoCmd.Close acForm, Me.Name, acSaveNo
End Sub
Private Sub Comando2_Click()
answered = 2
DoCmd.Close acForm, Me.Name, acSaveNo
End Sub
Private Sub Comando3_Click()...