<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. 我與疫情相關的VBA源碼-張志
      Access軟件網QQ交流學習群(群號碼198465573),歡迎您的加入!
      首頁 >技術文章> Access數據庫-模塊/函數/VBA


      我與疫情相關的VBA源碼

      發表時間:2020/2/8 10:22:47 評論(1) 瀏覽(811)  評論 | 加入收藏 | 復制
         
      摘 要:學習一下自定義函數。
      正 文:

      一、背景

      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群(群號:198465573)
       
       相關文章
      醫院CT報告系統  【u2f2  2009/3/18】
      【access小品】疫苗接種管理系統  【todaynew  2010/7/18】
      《access數據庫開發經典案例解析》:酒店管理系統、醫院管理系統...  【網行者  2011/4/20】
      處方打印示例\醫院處方打印軟件  【殷小寶  2012/7/17】
      醫院管理系統  【風行  2013/2/2】
      醫院出院患者信息登記管理系統  【仙來  2014/7/5】
      歷時一年,終于修成正果:醫院藥品會計應付數據庫  【luo3212  2014/12/22】
      抗疫情忙充電!推出5個免費課程  【張志  2020/1/31】
       
       訪客評論
      2020/2/12鄉下人
      來我這兒吧!我有特別通行證,我在高速路口夾道歡迎您!這么大一寶貝人才沒人敢要了。

      總記錄:1篇  頁次:1/1 9 1 :
       
       發表評論
      評論內容 (必填)

      常見問答
      技術分類
      相關資源
      文章搜索
      關于作者

      張志

      文章分類

      文章存檔

      友情鏈接
       
         
      湖北11选5