Office中国论坛/Access中国论坛

标题: 请高手赐教Me.ActiveControl.Name [打印本页]

作者: herosiyong 时间: 2008-12-27 08:46
标题: 请高手赐教Me.ActiveControl.Name
当我选择记录后,再点删除无任何反应,    Me.ActiveControl.Name这里看不懂,请高手看一下,谢谢

Case "delete"

         If GetPower("delPrice") = False Then Exit Sub


         Select Case Me.ActiveControl.Name
            Case "lstPrice"
                  If lstPrice.ListCount < 2 Or IsNull(lstPrice) Then
                  MsgBox "请选中您要删除的报价单......", vbInformation
                  Exit Sub
                  Else
                  If MsgBox("您确定要删除报价单 ==> " & lstPrice & " 吗？" & vbCrLf & "注意：此操作不可恢复", vbYesNo + vbExclamation) = vbYes Then
                     CurrentDb.Execute "delete * from tblPriceM where tblPriceM.PriceID='" & lstPrice & "';"
                     lstPrice.RowSource = lstPrice.RowSource
                     lstPrice.Requery
                     lstPro.RowSource = "SELECT QPrice.* FROM QPrice WHERE 0;"
                  End If
                  End If
               Case "lstPro"
                  MsgBox "报价单数据来源于BOM，清单项目禁止删除，" & vbCrLf _
                     & "如需变更请修改相应BOM然后重新生成报价单......", vbExclamation
         End Select

作者: Henry D. Sy 时间: 2008-12-27 08:48
Me.ActiveControl.Name
获得焦点的控件的名字

作者: herosiyong 时间: 2008-12-27 14:11
标题: 请教代码有没有错,运行没有反应
请教代码有没有错,运行没有反应

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)