Function foundpxbdm()的功能是从当前数据库中的"培训班"表中获得最后一个记录的"培训班代码"字段的值.Dim db As Database '定义一个数据库变量.类似于dim a as long.Dim rs As Recordset'定义一个记录变量 Dim fphm As String Set db = CurrentDb '给db数据库变量赋值,就是让它与数据库联系起来Set rs = db.OpenRecordset("培训班") '培训班是数据库中的一个表的名字.这句话的意思是把表中的第一个记录赋给rs记录变量.如果表不为空,默认打开第一个记录(如果为空,这样会出错,所以要预先加以判断).rs....