Access视频课程
网站公告
·Access快速平台QQ群号:84825014    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:AccessoftChu    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

我与疫情相关的VBA源码

时 间:2020-02-08 10:22:47
作 者:张志   ID:8  城市:上海  QQ:2851379730点击这里给张志发消息
摘 要:学习一下自定义函数。
正 文:

一、背景

1、我现在在沅陵农村,打算回家,家在无锡,身份证是无锡的

2、无锡的家距离老家沅陵1300公里

3、无锡检查站规则:凡从湖北、浙江、广东、河南、湖南、安徽、江西七省来锡人员一律劝返

4、沅陵检查站规则:外地人一律劝返



二、源码

Public Sub 我要回家()
    Dim i As Long
    i = 0
100     If 无锡检查口("湖南", "江苏") = "劝返" Then
        i = i + 1
        If MsgBox("已开 【" & 1300 * i & "】 公里!" + vbNewLine + "无锡不准下高速,你打算原路返回 【沅陵】 吗?", _
        vbExclamation + vbYesNo + vbDefaultButton2, "下一步打算怎么办?") = vbYes Then
            '高速调头去沅陵
            i = i + 1
            If 湖南沅陵检查口("江苏") = "劝返" Then
                If MsgBox("已开 【" & 1300 * i & "】 公里!" + vbNewLine + "沅陵不准下高速,你打算原路返回 【无锡】 吗?", _
                vbExclamation + vbYesNo + vbDefaultButton2, "下一步打算怎么办?") = vbYes Then
                    GoTo 100
                Else
                    MsgBox "已开 【" & 1300 * i & "】 公里!" + vbNewLine + "心好累!把家安在高速服务区!", vbCritical, "回家之路"
                    Exit Sub
                End If
            End If
        Else
            MsgBox "已开 【" & 1300 * i & "】 公里!" + vbNewLine + "心好累!把家安在高速服务区", vbCritical, "回家之路"
            Exit Sub
        End If
        
    End If
End Sub
Public Function 无锡检查口(问你从哪里来 As String, 身份证哪里的 As String) As String
    '凡从湖北、浙江、广东、河南、湖南、安徽、江西七省来锡人员一律劝返
    '年前去湖南老家过春节,现在回无锡,开车1300公里
    '到了无锡检查口,工作人员问从哪来
    Select Case 问你从哪里来
    Case "湖北"
        无锡检查口 = "劝返" '高速调头回去
    Case "浙江"
        无锡检查口 = "劝返" '高速调头回去
    Case "广东"
        无锡检查口 = "劝返" '高速调头回去
    Case "河南"
        无锡检查口 = "劝返" '高速调头回去
    Case "湖南"
        无锡检查口 = "劝返" '高速调头回去
    Case "安徽"
        无锡检查口 = "劝返" '高速调头回去
    Case "江西"
        无锡检查口 = "劝返" '高速调头回去
    End Select
    
    '开车1300公里终于到了湖南老家检查口,工作人员请你出示身份证
    If 身份证哪里的 = "江苏" Then
        无锡检查口 = "劝返" '凡是外地人,劝返
    End If
End Function

Public Function 湖南沅陵检查口(身份证哪里的 As String) As String
    '凡是外地人,劝返
    '从无锡开车1300公里终于到了湖南老家沅陵检查口,工作人员请你出示身份证
    If 身份证哪里的 = "江苏" Then
        湖南沅陵检查口 = "劝返"
    End If
End Function


三、示例下载

单击此下载示例



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

最新评论 查看更多评论(1)

2020/2/12 13:38:28乡下人
来我这儿吧!我有特别通行证,我在高速路口夹道欢迎您!这么大一宝贝人才没人敢要了。

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

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