У меня есть два списка (lfmVocabulary и lfmVocabularyAssign). Они оба не привязаны к форме, и у меня возникают проблемы с достижением определенных аспектов дизайна кода.
До сих пор я могу заполнить первую форму списка значениями через набор записей запроса, но я не могу перенести элементы из одного поля в другое.
Пытаясь добиться этого, я поместил код в модуль следующим образом.
Option Compare Database
Public Sub MoveListBoxItems(lfmVocabularyAssign As ListBox, _
lfmVocabulary As ListBox)
Dim intListX As Integer
For intListX = lfmVocabulary.ListCount = -1 To 0
If lfmVocabulary.Selected(intListX) Then
lfmVocabularyAssign.AddItem lfmVocabulary.List(intListX)
lfmVocabulary.RemoveItem intListX
End If
Next
End Sub
В форме у меня есть следующий код:
Option Explicit
Dim db As Database
Dim rs As Recordset
Private Sub cmdAdd_Click()
MoveListBoxItems lfmVocabulary, lfmVocabularyAssign
End Sub
Private Sub cmdSelectAll1_Click()
Dim n As Integer
With Me.lfmVocabulary
For n = 0 To .ListCount - 1
.Selected(n) = True
Next n
End With
End Sub
Private Sub Form_Load()
Set db = CurrentDb
Set rs = db.OpenRecordset("qryVocabularyDefinitions")
Me.lfmVocabulary.RowSource = ""
Do Until rs.EOF
Me.lfmVocabulary.AddItem rs!Vocabulary
rs.MoveNext
Loop
End Sub
Я новичок в Access и кодировании в целом, и я просматривал Интернет в поисках решения.
Я бы предложил тысячу благодарностей всем, кто может мне помочь: D
