: Private Sub Cmd_Create_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rs_conterparty As DAO.Recordset
Dim rsCount As Integer
Dim PE_nb As Integer
Dim BizNO As Field
Dim YearMonth
,我没有得到正确的价值DCOUNT 表是 “教训” 没有找到符合条件的记录: ID(自动)PK InstructorID作为整数 Weekof截止日期 StudentID作为整数 地位字节 我的F油膏是 Public Function NoRecordsFound(ByVal instructorid As Integer, ByVal weekof As Date, studentid As I