编辑:问题已经解决。请在下面的单独帖子中查看我的答案!
我有两种形式:Calendar和frmMagnet。单击“日历”中的文本框时,它将打开frmMagnet,并应调用在frmMagnet中声明的函数。但是,当我单击文本框时,出现错误13。
全球变量
Private CalendarArray(42, 2) As Variant
CalenderArray初始化
Private Sub InitVariables()
intMonthSelect = Month(CDate(CStr(Me.MonthComboBox) & " 1"))
intYearSelect = Me.YearComboBox
lngDate = CLng(DateSerial(intYearSelect, intMonthSelect, 1))
strUnscheduledJobs = ""
'Initialize CalendarArray
Dim i As Integer
For i = 0 To UBound(CalendarArray) - 1
CalendarArray(i, 0) = lngDate - Weekday(lngDate) + 1 + i
CalendarArray(i, 1) = CStr(Day(CalendarArray(i, 0)))
Next i
End Sub
日历方法打开磁铁表格
Private Sub text1_DblClick(Cancel As Integer)
If Len(Me.ActiveControl.Text) > 2 Then
Call OpenTextBox(Me.ActiveControl.Name)
End If
End Sub
Private Sub OpenTextBox(ctlName As String)
Dim ctlValue As Integer
Dim DayOfMonth As Long
ctlValue = Me.Controls(ctlName).Tag
DayOfMonth = CalendarArray(ctlValue - 1, 0)
DoCmd.OpenForm "frmMagnet"
Call Forms("frmMagnet").PopulateHeaderText(DayOfMonth) 'THE ERROR IS ON THIS LINE!!!!!
End Sub
frmMagnet方法
Public Sub PopulateHeaderText(theDate As Long)
Me.Controls(HeaderText) = CStr(theDate)
End Sub
谢谢!
所以我的问题是
Me.Controls(HeaderText) = CStr(theDate)
HeaderText所需的引号。正确的语法是
Me.Controls("HeaderText") = CStr(theDate)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句