主题：求代码修改

有如下代码，设想是当入库表，出库表或者是订单表新增行的时候，主窗口首页导航上的TopicBar1上能自动显示新增当天行的累计数，可是如下代码必须是重新打开项目的时候，或者是窗口设计的时间才会发生变化，猜想应该是主窗口与独立窗口的问题，求代码修改，谢谢！

Dim dt As Date = Date.Today.AddDays(1)
Select Case e.Link.Name
    Case "今日商品入库"
       Forms("入库查询").Open
 Tables("入库查询_入库查询").Filter = "入库日期 = #"  & Date.Today & "#"
      
    Case "今日商品出库"
       Forms("出库查询").Open
Tables("出库查询_出库查询").Filter = "打印时间 = #"  & Date.Today & "#"

    Case "今日新增订单"
       Forms("订单").Open
Tables("订单").Filter = "下单日期 = #"  & Date.Today & "#"

 Case "明天准备生产"
       Forms("订单").Open
Tables("订单").Filter = "交货日期 = #"  & dt & "#"  
End Select