Private Sub FillOrderDetails()
[b][color green]'=================ListView Order Details===================[/color][/b]
On Error GoTo ErrorHandler
Dim rs As DAO.Recordset
Dim db As Database
Dim lstItem As ListItem
Dim strOrderSQL As String
Set db = CurrentDb()
strOrderSQL = "SELECT * FROM QryOrderDetails where [OrderID] =" & Forms!FrmListViewMasterSub.ListViewOrders.SelectedItem.Text
Set rs = db.OpenRecordset(strOrderSQL)
With Me.ListViewOrderDetails
.View = lvwReport
.ListItems.Clear
.ColumnHeaders.Clear
End With
[color green] 'Set up column headers[/color]
With Me.ListViewOrderDetails.ColumnHeaders
.Add , , "Ord-ID", 1000, lvwColumnLeft
.Add , , "Product Name", 3000, lvwColumnLeft
.Add , , "Unit Price", 1200, lvwColumnRight
.Add , , "Quantity", 1200, lvwColumnRight
.Add , , "Discount %", 1400, lvwColumnRight
.Add , , "Extended Price", 1800, lvwColumnRight
End With
rs.MoveFirst
Do Until rs.EOF
[color green] ' Add items and subitems to list control.[/color]
Set lstItem = Forms!frmListViewMasterSub.ListViewOrderDetails.ListItems.Add()
lstItem.Text = rs!OrderID
lstItem.SubItems(1) = rs!ProductName
lstItem.SubItems(2) = Format(rs!UnitPrice, "#,##,0.00#")
lstItem.SubItems(3) = rs!Quantity
lstItem.SubItems(4) = Format(rs!Discount, "#,##,0%")
lstItem.SubItems(5) = Format(rs!ExtendedPrice, "#,##,0.00#")
rs.MoveNext
Loop
rs.Close
DoCmd.Echo True
ErrorHandlerExit:
Exit Sub
ErrorHandler:
If Err = 3021 Then [color green] ' no current record[/color]
Resume Next
Else
MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
Resume ErrorHandlerExit
End If
End Sub