フォームonLoadのコード:
country_combo.RowSourceType = "Value List"
リセット機能のコード:
Dim lListIndex As Long
With Me.country_combo
For lListIndex = .ListCount - 1 To 0 Step -1
.RemoveItem (lListIndex)
Next lListIndex<br/>
End With
国のコンボを設定するコード:
*For n = 1 To numCountries*
*countryCombo.AddItem (countryRS.Fields("countryName"))*
*countryRS.MoveNext*
*Next n*
国のコンボボックスを実行するコードの後に問題が発生します。Debug.Print(countryCombo.Value)を実行すると、選択した国の名前が出力されるため、値はそこにありますが、コンボボックスに値がまったく表示されません。それらは目に見えず、私が完全に間違えない限り、私が知る限り、特定のアイテムの可視性プロパティはありません。
comboBoxError.png http://img110.imageshack.us/my.php?image=comboboxerror.png