Trying to refresh a child form, but I keep getting a new form instead. How do I make the old form refresh. What I am getting is updated data, just not on the same form. Code looks like this:
Public Sub RefreshData(dbInput As Database, _
frmParent As MDIForm, _
sDataType As String, _
sMenuItemDesc As String)
Dim itemReturned As ListItem
Dim fldLoop As Field
Dim i As Integer
Me.ctlViewCust.ColumnHeaders.Clear
Me.ctlViewCust.ListItems.Clear
Set dbPrimary = dbInput
Set frmMDIRef = frmParent
sMenuDescription = sMenuItemDesc
Me.Caption = sDataType
Set rsListData = dbPrimary.OpenRecordset( _
"qryList" & fnRemoveSpaces(sDataType), _
dbOpenDynaset, _
dbSeeChanges)
For i = 1 To rsListData.Fields.Count - 1
Me.ctlViewCust.ColumnHeaders.Add _
, _
"Column" & i, _
rsListData.Fields(i).Name
Next i
If Not rsListData.EOF Then
sEditID = rsListData.Fields(0)
End If
Do While Not rsListData.EOF
Set itemReturned = Me.ctlViewCust.ListItems.Add( _
, _
"Item" & rsListData.Fields(0), _
rsListData.Fields(1))
For i = 2 To rsListData.Fields.Count - 1
itemReturned.SubItems(i - 1) = _
rsListData.Fields(i) & ""
Next i
rsListData.MoveNext
Loop
End Sub
Any other way I try to refresh, I get new forms along with other errors. I'm stuck!
