正如评论中提到的，这是个坏主意。但是，如果没有其他方法，可以使用一点vba来完成。
首先，您需要两个过程—一个从该字段获取数据并设置复选框，另一个获取复选框的状态并写回该字段：

Sub sSetCheckBox()
    Me!chkA = Nz(InStr(Me!CheckData, "A"))
    Me!chkB = Nz(InStr(Me!CheckData, "B"))
    Me!chkC = Nz(InStr(Me!CheckData, "C"))
    Me!chkD = Nz(InStr(Me!CheckData, "D"))
    Me!chkE = Nz(InStr(Me!CheckData, "E"))
End Sub

Sub sGetCheckBox()
    Me!CheckData = ""
    If Nz(Me!chkA) Then Me!CheckData = Me!CheckData & "A"
    If Nz(Me!chkB) Then Me!CheckData = Me!CheckData & "B"
    If Nz(Me!chkC) Then Me!CheckData = Me!CheckData & "C"
    If Nz(Me!chkD) Then Me!CheckData = Me!CheckData & "D"
    If Nz(Me!chkE) Then Me!CheckData = Me!CheckData & "E"
End Sub

然后需要调用窗体当前事件中的第一个过程，以便在窗体打开时以及用户在记录之间导航时正确显示复选框：

Private Sub Form_Current()
    Call sSetCheckBox
End Sub

当用户单击复选框时，您需要使用第二个过程：

Private Sub chkA_Click()
    Call sGetCheckBox
End Sub

当做，