|
Question : Refresh contents of a list box displayed on form, using VBA
|
|
I have a simple set of routines that allows me to select multiple MS Project files saved in an Access DB format and delete them. On loading the form (all of this is done in Access) a list box is loaded showing the name of all the MS Project files saved in the DB. I can select multiple ones and delete them from the DB. The problem I having is getting the list box on the form to reload and refresh showing the updated list without the ones I just deleted. Below are the two functions I use - 1st is the procedure called when clicking the "Delete" button; next is the routine I call to reload the list box:
[as you should be able to see, I try the repaint and refresh actions, but neither of these work. I have actually put a debug stop in the coding right after the point where the selected MS Projects are actually deleted from the table and I can confirm that they are deleted. When I do this, then once the load list box routine runs, I get the proper list in the list box. This leads me to believe that there is some time delay between when the deletions are "committed" in the DB that is longer than it takes to requery for the list box info. Thus, for some reason, I'm getting "ghost" records. Don't know if this is the case though. Also, I tried using a Table/Query binding and using the refresh method and got the same result. Plus, I'd like to stick to VBA manipulation of these controls. Any ideas, help are welcome.]
Private Sub cmdDeleteProj_Click()
Dim intCount As Integer 'counter
Dim varItem As Variant 'for loopping through the items selected in the listbox
Dim rtnDelete As Variant 'returns 3 options from the delete dialog box
Dim astrDeleteProjects() As String 'array to hold names of selected items
If lstDeleteProject.ItemsSelected.Count > 0 Then
'Establish 1) the number of selected items, 2) size the array to the number of selected items, _
3) fill the array with the MSP_PROJECT!PROJ_NAME value from the selected items
intCount = lstDeleteProject.ItemsSelected.Count
ReDim astrDeleteProjects(intCount)
intCount = 0
For Each varItem In lstDeleteProject.ItemsSelected
astrDeleteProjects(intCount) = lstDeleteProject.Column(0)
intCount = intCount + 1
Next varItem
'Loop through the array of selected items: 1) ask to delete, if No, ignore and go to next, 2) if Yes, delete _
3) if Cancel, exit sub and re-load the listbox
For intCount = 0 To lstDeleteProject.ListIndex - 1
strFileName = astrDeleteProjects(intCount)
strFilePath = Application.CurrentProject.FullName
rtnDelete = MsgBox("Are you sure you wish to delete the MS Project file " & vbCr & _
"'" & strFileName & "' from the PMA 202 database", vbYesNoCancel, "Delete Project?")
Select Case rtnDelete
Case 6 'Yes for Delete
DeleteFromDatabase Name:="<" & strFilePath & ">\" & strFileName & "", FormatID:="MSProject.MDB8"
Case 2
Call LoadDeleteList
btnExit.SetFocus
Exit Sub
End Select
Next intCount
Else
MsgBox "Please select an MS Project to delete from the database.", vbOKOnly, "Select Project"
lstDeleteProject.SetFocus
Exit Sub
End If
Call LoadDeleteList
Me.Repaint
Me.Refresh
btnExit.SetFocus
End Sub
Private Sub LoadDeleteList()
Dim cnConnection As ADODB.Connection
Dim strConnection As String
'Set connection info
Set cnConnection = New ADODB.Connection
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\PMA202_Test.mdb;User Id=admin;Password=;"
cnConnection.Open strConnection
cnConnection.CursorLocation = adUseClient
'set recordset Info
Dim rsRecordset As ADODB.Recordset
Set rsRecordset = New ADODB.Recordset
lstDeleteProject.RowSource = "" 'clear any previous items in the listbox
'get the recordset data
With rsRecordset
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "Select PROJ_ID, PROJ_NAME From MSP_PROJECTS Order By MSP_PROJECTS.PROJ_NAME", CurrentProject.Connection
End With
rsRecordset.MoveFirst
'load the returned data in the listbox
Do While Not rsRecordset.EOF
lstDeleteProject.AddItem (rsRecordset!PROJ_NAME)
rsRecordset.MoveNext
Loop
lstDeleteProject.Requery
rsRecordset.Close
cnConnection.Close
Set rsRecordset = Nothing
Set cnConnection = Nothing
End Sub
|
|
|
Answer : Refresh contents of a list box displayed on form, using VBA
|
|
What about doing this then:
Me!lstDeleteProject.RowSource = ""
Me!lstDeleteProject.Refresh
Me!lstDeleteProject.RowSource = "Select PROJ_ID, PROJ_NAME From MSP_PROJECTS Order By MSP_PROJECTS.PROJ_NAME;"
Me!lstDeleteProject.Refresh
This should technicaly set the Listbox to blank, refresh, then re-pull in the records and refresh again.
|
|
|
|
|
