列表框-保持选中第一项

时间:2019-05-16 14:04:37

标签: vba ms-access listbox

我用ms-access VBA表单创建了一个具有以下属性的列表框:

OverlapFlags =85
IMESentenceMode =3
Left =56
Top =282
Width =8160
Height =963
TabIndex =5
Name ="xOnlineTypen"
ControlSource ="[OAT_NAME]"
RowSourceType ="Table/Query"
RowSource ="SELECT [OAT_NAME], [LFD] from [TABLE]"
OnDblClick ="[Event Procedure]"
ControlTipText ="Die unterstützten Onlineantragstypen"
GUID = Begin
    0x463f...bb06f69
End

LayoutCachedLeft =56
LayoutCachedTop =282
LayoutCachedWidth =8216
LayoutCachedHeight =1245
Begin
    Begin Label
        OverlapFlags =85
        Left =60
        Width =2295
        Height =240
        Name ="Bezeichnungsfeld159"
        Caption ="Unterstütze Antragstypen:"
        GUID = Begin
            0x7f1ed40...c4f9c7ee
        End
        LayoutCachedLeft =60
        LayoutCachedWidth =2355
        LayoutCachedHeight =240
    End
End

问题是,当我显示表单时,即使尝试更改它,第一个项目仍保持选中状态。当我使用鼠标单击列表中的第二项时,会发出蜂鸣声,并且没有其他反应。

我已经尝试删除列表框并创建一个新的列表框(以防列表框损坏),但无法解决。我还尝试更改了一些属性(multiselect,ControlSource,RowSource,BoundColumn等),但没有任何改变。

那是为什么?

什么

1 个答案:

答案 0 :(得分:0)

我发现了问题。它是属性:ControlSource

据我了解:如果填写了ControlSource属性,列表框将尝试将当前选择内容写入数据库。由于列表框仅用于读取,因此不可能,因此系统锁定了选择。

所以我不得不清空ControlSource属性,一切都很好。