请老师来改一下

上面理解错误，模块中做下面红色部分修改即可：

Function SendToInputBox(mynum)
    Dim f As Form
    Dim g As String
   
    Set f = Forms!frmCalender日程管理
    g = Format(f("Date" & mynum), "yyyy年m月d日 aaaa")
   
    DoCmd.OpenForm "frmInputBox当日事项"
   
    With Forms!frmInputBox当日事项
        !InputDay = mynum
        !InputDate = f("Date" & mynum)
        !InputFor = g
        !original_text = f("Text" & mynum)
        !InputText = f("Text" & mynum)
        !InputText.SetFocus
    End With
   
    SendKeys "{F2}^{HOME}", False
End Function