主题：可招人数

TextChanged事件

If forms("可招人数").Opened Then
    Dim r As Row = Tables("可招人数_Table1").Rows(0)
    Dim cname As String = ""
    For Each c As Col In Tables("可招人数_Table1").Cols
        If c.caption = e.sender.Text Then
            cname = c.name
        End If
    Next
    If cname > "" Then
        If r(cname) > 0 Then
            msgbox("可注册")
        Else
            msgbox("已招满")
        End If
    End If
End If