菜鸟求助！很急的问题，多谢老师们指导。

oltgzf

1、如何在窗体中加载一个能一打开本窗体就能显示当日是星期几啊？
我按照教材中的方法，建立了一个空的文本框，之后在该文本框的事件过程旁选择了代码生成器，按照教材中教的，输入了如下代码：（该文本框名称为“星期”）
    Private Sub Form_Load（）
    Select Case Weekday(Date)
         Case 1
                Me.txt星期 = "星期一"
         Case 2
                Me.txt星期 = "星期二"
         Case 3
               Me.txt星期 = "星期三"
         Case 4
                Me.txt星期 = "星期四"
         Case 5
                Me.txt星期 = "星期五"
         Case 6
                Me.txt星期 = "星期六"
         Case 7
                Me.txt星期 = "星期日"
    End Select
    End Sub



输入完之后，返回窗体该文本框没有任何显示，或在代码生成器中运行该编码，就弹出宏的选择器，总而言之就是无法达到自动显示当日是“星期几”的目的。
请各位老师帮忙详细指点、指导一下，学生跪谢！

asklove

“文本框”=WeekdayName(Weekday(Date()))

oltgzf

非常感谢asklove老师的指导，按您教的方法问题解决了，万分感谢！