帮忙看看哪里错了。

月夜野狼　发表于：2009-04-07 09:59:15 　

Private Sub Form_Load()
Dim Q_date
Q_date = CStr(Date)
Me.Text13.Value = Q_date -----到这里就出错了
Me.Text15.Value = Q_date
End Sub

Top

曹光耀发表于：2009-04-07 11:17:32

新建一个窗体，加一个Command0按钮，在加载事件中调用Call Command0_Click

Private Sub Command0_Click()
Dim Q_date As String
Q_date = CStr(Date)
Me.Text13 = Q_date
Me.Text15.Value = Q_date
End Sub

Private Sub Form_Load()
'Dim Q_date As String
'Q_date = CStr(Date)
'Me.Text13 = Q_date - ----到这里就出错了
'Me.Text15.Value = Q_date
Call Command0_Click
End Sub

Top

豆豆发表于：2009-04-07 13:27:46

Private Sub Form_Load()
Dim Q_date
Q_date = CStr(Date)
Me.Text13.Value = Q_date

Me.Text15.Value = Q_date
End Sub

经测试无问题，请上传附件。

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

帮忙看看哪里错了。