Access VBA wiht文での実行時エラー91

初めまして。

問題：下記文で実行エラー９１が発生します。

しようとしていること：
従業員の名前をクリックしたら、その月のレコードがなければ1日から末日までの行を自動で作成する。




Option Compare Database
Option Explicit
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Public Function GetSbfFormDescription1() As Form_f00_kkkkkf
Set GetSbfFormDescription1 = Forms!f00_kkkkk_WorkTime!subForm.Form
End Function
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Public Function SbfFormDescription1() As Boolean
SbfFormDescription1 = Me.GetSbfFormDescription1.RecordsetClone.RecordCount > 0
End Function
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Public Function AppendCalenderRow1()
Dim rsw As RecordsetWrapper
Dim dtmLoop As Date
' Dim rsA As DAO.Recordset2
' Dim fld As DAO.Field2

If Me.SbfFormDescription1 = False Then

→ With rsw.GetRecordsetClone(Me.GetSbfFormDescription1.Recordset)　

.FindFirst ("[ID]=" & DateSerial(Me.cmb_year, Me.cmb_month.Value, 1))
If .NoMatch Then
For dtmLoop = DateSerial(Me.cmb_year, Me.cmb_month.Value, 1) To DateSerial(Me.cmb_year, Me.cmb_month.Value + 1, 0)
.AddNew
![ID] = Me.staff_list.Value & Format$(dtmLoop, "yymmdd")
![Employee] = Me.staff_list.Value
![Work_Date] = dtmLoop
![Work_Time] = "0"
![Over_Time] = "0"
![Work_Year] = Format$(dtmLoop, "YYYY")
![Work_Month] = Format$(dtmLoop, "MM")

.Update
Next dtmLoop
Else
End
End If

' Set rsA = Nothing
' Set fld = Nothing
End With
End If
Me.GetSbfFormDescription1.Requery
eh.TryToSaveRecord

End Function

No.1 回答者： ShowMeHow 回答日時： 2020/11/20 10:37

よくわからんけど、、、

ＮＥＷしてないから？？