Please help...I am having problems with code below in transfering selected items from one listbox to another. When I run the code I get a runtime error with definition stating that F3Dynamic Library is not referrenced. I checked it out and for the life of me I can not find the F3Dynamic Library checkbox to referrence. Has anyone ran into this problems before? Or is there a simple way to transfer items from one listbox to another?
Private Sub CommandButton40_Click()
Dim i As Integer
CComplaint.Enabled = True
CComplaintFinal.Enabled = True
If CComplaint.ListIndex = -1 Then Exit Sub
If Not CheckBox1 Then
For i = 0 To CComplaintFinal.ListCount - 1
If CComplaint.Value = CComplaintFinal.List(i) Then
Beep
Exit Sub
End If
Next i
End If
CComplaintFinal.AddItem CComplaint.Value
End Sub
Thank you to any and all who reply.
Private Sub CommandButton40_Click()
Dim i As Integer
CComplaint.Enabled = True
CComplaintFinal.Enabled = True
If CComplaint.ListIndex = -1 Then Exit Sub
If Not CheckBox1 Then
For i = 0 To CComplaintFinal.ListCount - 1
If CComplaint.Value = CComplaintFinal.List(i) Then
Beep
Exit Sub
End If
Next i
End If
CComplaintFinal.AddItem CComplaint.Value
End Sub
Thank you to any and all who reply.
