2010-09-24 67 views
0

我在窗體上有一個組合框和幾個文本框。當我從組合框中選擇一個值時,我希望它根據該值運行查詢,並使用查詢返回的數據填充文本框。該查詢應只返回一條記錄,並且該文本框將對該記錄中的不同列進行相應處理。MSAccess - 使用查詢中的值填充文本框

我有這樣的代碼:

Private Sub cbo_equip_loc_Change() 
Dim location As String 
Me.cbo_equip_loc.SetFocus 
location = DLookup("NAME", "Query1", "position = '" & Me.cbo_equip_loc.SelText & "'") 
Me.Text51.SetFocus 
Me.Text51.Text = location 

End Sub 

但我得到這個錯誤:「該屬性是隻讀的並且不能設置」

任何想法?

解決:我是個白癡。

我在控制源中從我之前嘗試做的事情中獲得了一些價值。刪除了它,它的工作!

回答

1

文本框文本51被鎖定,設置屬性鎖定爲False。

+0

其實是道具erty被設置爲鎖定=否。但是,即時通訊是一個白癡,我在控制源中從我之前嘗試做的事情中獲得了一些價值。刪除了它,它的工作! – kralco626 2010-09-24 12:36:31

3

有沒有必要做這個:

Me.Text51.SetFocus 
Me.Text51.Text = location 

它是真實的文字屬性僅可當控件具有焦點,但value屬性可沒有任何焦點,或訪問VBA是很高興與控制的只是名字:

Me.Text51.Value = location 

或者

Me.Text51 = location 
+0

我做了Me.Text51.Value = location,它給了我一個錯誤,說我無法設置value屬性。雖然這可能是我從控制源字段中刪除了我的東西之前。 – kralco626 2010-09-24 14:27:11

+0

@ kralco626我想你會發現它是在你做出改變之前。 – Fionnuala 2010-09-24 14:39:11

+0

哈哈。謝謝! +1 – kralco626 2010-09-24 15:01:16