煩指教一段程式碼錯誤在何處

sgrshh29

x,y,z,w是模块级变量吗?

sgrshh29

你知道x = Dir("c:\fox_sys\dept.txt")这个表达式中,x返回什么吗?用立即窗口查看一下,你就明白是什么道理了.

sgrshh29

叫人如何跟你解释清楚呢?这样好了,你试试吧,如果不是你预想的顺序,就调整等号二边的参数.



Private Sub O_1_Click()

x = Dir("c:\fox_sys\dept.txt")
y = Dir("c:\fox_sys\dept1.txt")
z = Dir("c:\fox_sys\dept2.txt")
w = Dir("C:\foy_sys\dept3.txt")



If x = "dept.txt" And z = "dept2.txt" Then
DoCmd.OpenForm "未核銷情況(壹部)"
ElseIf x = "dept.txt" And y = "dept1.txt" Then
DoCmd.OpenForm "未核銷情況(貳部)"
Elseif x <> "dept.txt" And y <> "dept1.txt" And z <> "dept2.txt" Then
MsgBox "系統退出!", "16", "系統"
DoCmd.Quit

end if
End sub

[此贴子已经被作者于2006-2-27 20:05:14编辑过]

sgrshh29

以下是引用john7297在2006-2-27 15:01:00的发言：


1.啟動數據庫後檢查指定三部電腦中特定文件夾中是否存在x.y.z.w中任何一個文件,,若無任何一個文件則退出系統.

2.如有文件y,則打開表單未核銷情況(壹部),如有文件z,則打開表單未核銷情況(貳部)

你要仔细再看看你的要求,下面的一段就是符合你的要求的

x = Dir("c:\fox_sys\dept.txt")
y = Dir("c:\fox_sys\dept1.txt")
z = Dir("c:\fox_sys\dept2.txt")
w = Dir("C:\fox_sys\dept3.txt")
If y = "dept1.txt" Then
DoCmd.OpenForm "未核銷情況(壹部)"
ElseIf z = "dept2.txt" Then
DoCmd.OpenForm "未核銷情況(貳部)"
ElseIf x <> "dept.txt" And y <> "dept1.txt" And z <> "dept2.txt" And w <> "dept3.txt" Then
MsgBox "系統退出!", "16", "系統"
DoCmd.Quit
End If

[此贴子已经被作者于2006-2-28 7:10:38编辑过]