如何在Access 2007窗體中選擇性地編輯字段？

Question

是否有可能在ACCESS 2007中使所有其他人以只讀格式離開某個字段進行編輯？ 我的表單上有大約40個控件，並且只能一個一個讀取，這樣會很不方便。我想有這些領域之一（選項組）編輯，這樣，當用戶選擇一個選項，整個形式變爲可編輯

Answer 1

你可以使用VBA程序來遍歷窗體的控件集合和每個控件的.Locked屬性設置爲True。檢查每個控件的.ControlType屬性，並忽略這些標籤和命令按鈕的控件。 IOW，只爲那些有意義的控件類型設置.Locked。

Answer 2

選項1

你可以做你想要鎖定的子窗體形式，把選項組的主要形式有：

例如：

Private Sub Form_Current() 
    Me.aTable_subform.Form.AllowAdditions = False 
    Me.aTable_subform.Form.AllowEdits = False 
    Me.aTable_subform.Form.AllowDeletions = False 

End Sub 

Private Sub PickOne_AfterUpdate() 

    Select Case Me.PickOne 
     Case 1, 3 
      Me.aTable_subform.Form.AllowAdditions = True 
      Me.aTable_subform.Form.AllowEdits = True 
      Me.aTable_subform.Form.AllowDeletions = True 

     Case 2 
      Me.aTable_subform.Form.AllowAdditions = False 
      Me.aTable_subform.Form.AllowEdits = True 
      Me.aTable_subform.Form.AllowDeletions = False 

    End Select 
End Sub 

其他註釋re comment

選項2

你可以有主窗體打開時打開彈出式UO形式。在這個例子的主窗體之前它將變得可見。

代碼的主要形式：

Private Sub Form_Close() 
    DoCmd.Close acForm, "popupform" 
End Sub 

Private Sub Form_Load() 
    DoCmd.OpenForm "popupform", , , , , acDialog 
End Sub 

Private Sub PickOne_BeforeUpdate(Cancel As Integer) 
    Select Case Me.PickOne 
     Case 1 
      If MsgBox("You chose this. Continue?", vbYesNo) = vbYes Then 
       Forms!mainform.AllowAdditions = True 
       Forms!mainform.AllowEdits = True 
       Forms!mainform.Form.AllowDeletions = True 

       ''Setting the visibility leaves the form 
       ''available but it is no longer a dialog form 
       ''but you must remember to close it elsewhere 
       ''If the form is not needed, just close it here 
       Me.Visible = False 
      Else 
       Cancel = True 
      End If 
     Case 2 
      ''Whatever 

    End Select 
End Sub 

選項3

每個控制具有旨在用於由設計者標籤屬性，例如，您可以將「Admin」添加到需要鎖定的所有控件。喲必須使用加載事件，或以後的事件。

Private Sub Form_Load() 
    For Each ctrl In Me.Controls 
     ''For example: 
     If ctrl.Tag = "Admin" And TheOption <> "Admin" Then 
      ctrl.Locked = True 
     End If 
    Next 
End Sub 

您就可以輕鬆擁有多個標籤，一個是說的管理員用戶或選項X，另一個爲其他用戶或OptionY。