大家帮我看一下这个程序那错了.

郭健　发表于：2008-06-11 16:56:22 　

大家帮我看一下这个程序:
Private Sub 跟单进度_AfterUpdate()
On Error GoTo Err_跟单进度_AfterUpdate
Dim MyValue As String
MyValue = [跟单进度]
Select Case MyVlaue
  Case "A配件采购"
   DoCmd.OpenForm "跟单进度_A配件采购", , , [任务单号] = Forms![整车跟单总表]![任务单号], acFormEdit
  Case "B配件入库"
   DoCmd.OpenForm "跟单进度_B配件入库", , , [任务单号] = Forms![整车跟单总表]![任务单号], acFormEdit
  Case "C开始生产"
   DoCmd.OpenForm "跟单进度_C开始生产", , , [任务单号] = Forms![整车跟单总表]![任务单号], acFormEdit
  Case "D生产完成"
   DoCmd.OpenForm "跟单进度_D生产完成", , , [任务单号] = Forms![整车跟单总表]![任务单号], acFormEdit
  Case "E已入库"
   DoCmd.OpenForm "跟单进度_E已入库", , , [任务单号] = Forms![整车跟单总表]![任务单号], acFormEdit
  Case "F已发货"
   DoCmd.OpenForm "跟单进度_F已发货", , , [任务单号] = Forms![整车跟单总表]![任务单号], acFormEdit
End Select

Exit_跟单进度_AfterUpdate:
Exit Sub

Err_跟单进度_AfterUpdate:
MsgBox Err.Description
Resume Exit_跟单进度_AfterUpdate

End Sub
跟单进度是一个组合框控件,  分别有上面的"A配件采购",,,,,,,"F已出货",六个值. 我想实现在其值改变时打开相应的窗体.但以上程序实现不了,更新后没有任何反应,请高手指点.

Top

pc高手发表于：2008-06-11 18:31:27

我帮你看了。因为没有看到你的 MDB , 不好看出到底哪里错了，故建议如下;

1. 我发去一个写好的 MDB (按照你提供的信息)，好用，没有问题。

2. 如果只讲错误， “Select Case MyVlaue” ，这个句子有错误，改为 “MyValue” 即可。

但是，我想，这么简单的错误，只要一运行，系统会提示错误。

我想，还是组合框的数据源有问题吧！

点击下载此附件

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

大家帮我看一下这个程序那错了.