Dim a As String
a = DLookup("所属期", "职工工资", "所属期=" & "'" & Forms!工资单制作!Text1 & "'")
If a = Null Then
If MsgBox("请确定已将,这期的数据全部输入完毕", 49, "至佳管理") = vbOK Then
DoCmd.OpenQuery "职工工资计算", acViewNormal, acEdit
If MsgBox("数据已生成", 64, "至佳管理") = vbOK Then
else
msgbox"不能重复操作"
End If
End If
End If
请问我这样写,什么地方写错了