删除复选框读取的多条记录ID值,如何弹出对话框“你没有这条记录权限,是否继续下一条记录!”
数据库有好多条记录,每条记录都有权限。用户有这个权限时直接删除,没有权限时如何弹出对话框“你没有这条记录权限,是否继续下一条记录!”点否取消,点是跳到下一条。
for i=0 to 1000‘从0到1000条
IF bFlag=TRUE THEN ‘有权限
conn.execute"delete from EPHARNESSBOARDPECCANCY where ID="&i&""
END IF‘这条记录有权限就删除
IF bFlag<>true THEN
没权限是写个弹出对话框函数,“是否继续下一条?”点是继续读取下一个ID值,没有就终止
end if
next
现在要问的就是没权限时的对话框如何写?