vowhex.blogg.se

Me.ItemPriceList_lb.AddItem "Item" & " " & "Price" & " " & "Included In Per Diem" & " " & "Rental" MsgBox "ERROR no Cost Records found for - " & Me.SelectCustomer_cbo & "WHERE (((CustomerPricing.CustomerID)= '" & Me.SelectCustomer_cbo & "FROM CustomerPricing LEFT JOIN Items ON CustomerPricing.ItemNUmber Set rs = dbs.OpenRecordset("SELECT CustomerPricing.CustomerID, Items.Item_Description, CustomerPricing.Price, CustomerPricing.PerDiemItem AS, CustomerPricing.Rental " _

If Nz(Me.SelectCustomer_cbo, "") = "" Then Exit Sub Private Sub SelectCustomer_cbo_Exit(Cancel As Integer) I have not had time to extract the tables to be able to share, as the db is quit large.