Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 源码示例

增加销售订单快捷选择窗口_机型或客户不存在的提示

时 间:2007-10-30 08:40:56
作 者:gdjdyyj   ID:54  城市:东营
摘 要:增加销售订单快捷选择窗口_机型或客户不存在的提示
正 文:

为使界面更友好, 在进入销售订单主窗体时,调快捷选择窗体,在选择机型或客户时可能没有该机型或客户的销售订单,那么就提示一下:
主要利用平台函数acchelp_strdataisexist(),具体使用方法请参照《报销教程》。
相关语句如下:
 
Private Sub Listdisplay_AfterUpdate()
    Select Case Me.Cobdisplay
 
    Case "按机型"
        If acchelp_strdataisexist("tblxsddzj", "jxid", Me.Listdisplay.Column(0)) Then
            Forms!usysfrmmain!frmChild.Form.RecordSource = "select * from qryxsddzj where 整机名称='" & Me.Listdisplay.Column(1) & "'"
        Else
            MsgBox "没有发现!" & Chr(13) & Chr(13) & Me.Listdisplay.Column(0) & "-" & Me.Listdisplay.Column(1) & Chr(13) & Chr(13) & "机型的销售订单!" & Space(10) & Chr(13) & Chr(13) & "请重新的选择!", vbInformation, "提示"
        End If
 
    Case "按客户"
        If acchelp_strdataisexist("tblxsddzj", "khid", Me.Listdisplay.Column(0)) Then
            Forms!usysfrmmain!frmChild.Form.RecordSource = "select * from qryxsddzj where 客户名称='" & Me.Listdisplay.Column(1) & "'"
        Else
            MsgBox "没有发现!" & Chr(13) & Chr(13) & Me.Listdisplay.Column(0) & "-" & Me.Listdisplay.Column(1) & Chr(13) & Chr(13) & "客户的销售订单!" & Space(10) & Chr(13) & Chr(13) & "请重新的选择!", vbInformation, "提示"
        End If
    End Select
End Sub
界面效果如下:


Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助