2017-06-05 39 views
0

我有一個表需要操縱多個字段的內容。我已經編寫了代碼來執行操作,但希望在很多領域執行。我建立了另一個表,其中包含需要更改的字段的名稱,然後用它來設置下一個需要檢查的字段名稱。 我試圖使用1表單的內容來設置另一種形式的字段焦點

Dim FieldName As Control 
Dim FieldName1 As String 
DoCmd.OpenForm "FieldsForm", acNormal, "", "", , acNormal 
DoCmd.GoToRecord , Fields, acFirst 
FieldName1 = Forms!FieldsForm.Field 
FieldName = FieldName1 

談到了錯誤 對象變量或帶塊變量未設置

回答

0

不夠清楚應該如何處理在字段中的數據來完成的,這裏有一個例子 - 你讀目標字段然後使用該名稱訪問當前表單中的字段,將焦點設置爲該字段並更改該值:

Dim FieldControl As Control 
Dim FieldName As String 

DoCmd.OpenForm "FieldsForm" 
DoCmd.GoToRecord , , acFirst 

'read target field name from textbox with name "FieldReference" 
FieldName = Forms!FieldsForm.FieldReference.Value 

'get the control by name 
Set FieldControl = Me.Controls(FieldName) 

'Now you can operate with target control 
FieldControl.SetFocus 
FieldControl.Value = "some data"