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

    1. <mark id="os3gq"></mark>
    2. Access交流中心

      北京 | 上海 | 天津 | 重慶 | 廣州 | 深圳 | 珠海 | 汕頭 | 佛山 | 中山 | 東莞 | 南京 | 蘇州 | 無錫 | 常州 | 南通 | 揚州 | 徐州 | 杭州 | 溫州 | 寧波 | 臺州 | 福州 | 廈門 | 泉州 | 龍巖 | 合肥 | 蕪湖 | 成都 | 遂寧 | 長沙 | 株洲 | 湘潭 | 武漢 | 南昌 | 濟南 | 青島 | 煙臺 | 濰坊 | 淄博 | 濟寧 | 太原 | 鄭州 | 石家莊 | 保定 | 唐山 | 西安 | 大連 | 沈陽 | 長春 | 昆明 | 蘭州 | 哈爾濱 | 佳木斯 | 南寧 | 桂林 | ???/a> | 貴陽 | 西寧 | 烏魯木齊 | 包頭 |

      回復 加入收藏帖  復制
      我要提問 帖子上移

      DLOOKUP及相關函數采用字段名稱問題

      楊漢寶 等級: 版主★★★★★ 積分:356 金幣:960 來自:東莞Access交流中心 發表于:2009-05-26 11:38:39   已結帖
      樓主

      老師們你們好!

      學生遇到一個難以解決的問題,就是如何在DLOOKUP等相關函數中無法通過VBA方法自定字段名稱,希望大家給予幫助。

       

      感謝啦!

       

      如:

      DLookup("字段名", "表1", "條件字段名")

      現在我希望通過VBA設置變量的方法自定義 字段名 名稱,試過多次都無法順利通過測試,真是苦腦啊。

      代碼如下:

          Dim i As Integer
          Dim Nr As String
          For Each ctl In Me.Controls
              For i = 1 To 6
              Nr = DLookup("內容" & i, "表1", "序號=" & i)
              If ctl.Name = "text" & i Then ctl = Nr
              Next
          Next

      后面的條件字段 "序號=" & i 可以通過,但前面的字段名稱 "內容" & i 卻無法通過,是怎么回事呢?

       

      access培訓  誠聘access開發人員

          楊漢寶
            獲得社區協助:請教問題(即發帖)3篇,其中獲得解決的2篇;
            協助社區成員:協助他人(即回帖)276篇,其中被設為【最佳答案】的72篇;
            協助我們社區:發布技術文章24篇,邀請了2名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      Top

      掃描下方工作人員的微信二維碼加微信,邀您加入Access課堂微信群,進入一個技術交際圈:

      網站工作人員微信

      曹光耀 等級:一星會員 積分:226 金幣:760 來自:廣州Access交流中心 發表于2009/5/26 12:06:03 
      1樓 得分: 0

      按下面的修改,試試看.

      Nr = DLookup("內容='"內容 & i & "'", "表1", "序號=" & i)



          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          曹光耀
            獲得社區協助:請教問題(即發帖)3篇,其中獲得解決的1篇;
            協助社區成員:協助他人(即回帖)314篇,其中被設為【最佳答案】的87篇;
            協助我們社區:發布技術文章19篇,邀請了4名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      沈軍 等級:版主★★★★★ 積分:356 金幣:960 來自:東莞Access交流中心 發表于2009/5/26 12:41:58 
      2樓 得分: 0

      請幫助把下列代碼變簡單點,謝謝!

       

          Select Case Me.pCsj
          Case 1
              If Not IsNull(DLookup("車輛牌號1", "車輛派遣", "位置=1")) Then
                  Me.車牌 = DLookup("車輛牌號1", "車輛派遣", "位置=1")
              End If
          Case 2
              If Not IsNull(DLookup("車輛牌號2", "車輛派遣", "位置=1")) Then
                  Me.車牌 = DLookup("車輛牌號2", "車輛派遣", "位置=1")
              End If
          Case 3
              If Not IsNull(DLookup("車輛牌號3", "車輛派遣", "位置=1")) Then
                  Me.車牌 = DLookup("車輛牌號3", "車輛派遣", "位置=1")
              End If
          Case 4
              If Not IsNull(DLookup("車輛牌號4", "車輛派遣", "位置=1")) Then
                  Me.車牌 = DLookup("車輛牌號4", "車輛派遣", "位置=1")
              End If
          Case Else
              Me.車牌 = Null
          End Select
         
          If Not IsNull(Me.車牌) Then
          Me.顯示車牌.Caption = DLookup("車輛牌號", "車輛資料", "車輛ID=FORMS!車輛動態!車牌")
          Else
          Me.顯示車牌.Caption = ""
          End If

       



          楊漢寶
            獲得社區協助:請教問題(即發帖)3篇,其中獲得解決的2篇;
            協助社區成員:協助他人(即回帖)276篇,其中被設為【最佳答案】的72篇;
            協助我們社區:發布技術文章24篇,邀請了2名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      豆豆 等級:普通會員 積分:504 金幣:0 來自:東莞Access交流中心 發表于2009/5/26 15:02:50 
      3樓 得分: 0

      表1中如果只用[品名]字段用

      Nr = DLookup("品名", "表1", "序號=" & i)

       

      表1中如果有[品名1],[品名2],[品名3],。。[品名6]這樣的字段用

      Nr = DLookup("品名" & i, "表1", "序號=" & i)



          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          豆豆
            獲得社區協助:請教問題(即發帖)3篇,其中獲得解決的1篇;
            協助社區成員:協助他人(即回帖)604篇,其中被設為【最佳答案】的231篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      豆豆 等級:普通會員 積分:504 金幣:0 來自:東莞Access交流中心 發表于2009/5/26 15:08:29 
      4樓 得分: 0

      Case 1
              If Not IsNull(DLookup("車輛牌號1", "車輛派遣", "位置=1")) Then
                  Me.車牌 = DLookup("車輛牌號1", "車輛派遣", "位置=1")
              End If
      改為

      Case 1
           Me.車牌 = nz(DLookup("車輛牌號1", "車輛派遣", "位置=1"))
      其他相同



          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          豆豆
            獲得社區協助:請教問題(即發帖)3篇,其中獲得解決的1篇;
            協助社區成員:協助他人(即回帖)604篇,其中被設為【最佳答案】的231篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      沈軍 等級:版主★★★★★ 積分:356 金幣:960 來自:東莞Access交流中心 發表于2009/5/26 21:03:14 
      5樓 得分: 0

      chaojianan您好!

      關于 Nr = DLookup("品名" & i, "表1", "序號=" & i) 我在VBA使用當中無法使用,是因為 "品名" & i 無法接受,我已經試過好多次了,是不是這函數中無法重新定義字段名稱呢?

       

      感謝!



          楊漢寶
            獲得社區協助:請教問題(即發帖)3篇,其中獲得解決的2篇;
            協助社區成員:協助他人(即回帖)276篇,其中被設為【最佳答案】的72篇;
            協助我們社區:發布技術文章24篇,邀請了2名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      樟樹 等級:一星會員 積分:114 金幣:480 來自:杭州Access交流中心 發表于2009/5/26 21:09:07 
      6樓 得分: 0

      改成這樣試試看

          Dim i As Integer
          Dim Nr As String

          Dim FieldName as String
          For Each ctl In Me.Controls
              For i = 1 To 6

                  FieldName="內容" & i
                  Nr = DLookup(FieldName, "表1", "序號=" & i)
                  If ctl.Name = "text" & i Then ctl = Nr
              Next
          Next



          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          樟樹
            獲得社區協助:請教問題(即發帖)10篇,其中獲得解決的10篇;
            協助社區成員:協助他人(即回帖)146篇,其中被設為【最佳答案】的37篇;
            協助我們社區:發布技術文章12篇,邀請了3名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      豆豆 等級:普通會員 積分:504 金幣:0 來自:東莞Access交流中心 發表于2009/5/27 11:35:44 最佳答案
      7樓 得分: 2

      表1中如果有[品名1],[品名2],[品名3],。。[品名6]這樣的字段用

      Nr = DLookup("品名" & i, "表1", "序號=" & i)

      這個測試了下,可以。

      請傳你的附件看看為何不行。

       



          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          豆豆
            獲得社區協助:請教問題(即發帖)3篇,其中獲得解決的1篇;
            協助社區成員:協助他人(即回帖)604篇,其中被設為【最佳答案】的231篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      總記錄:7篇  頁次:1/1 9 1 :
      您還沒有在Access軟件網登錄不能回復帖子
      • 你沒有登錄,請點擊后面鏈接登錄:登錄
      • 如果你沒有注冊,請點擊后面鏈接注冊:注冊,注冊完成后,請再次訪問本頁功能。
       
      湖北11选5