[DanTheMan888]

heres the download

http://h1.ripway.com/killswitcher888...cessingppt.zip

im getting a type missmatch

[cristobal03]

Have you tried stepping through the code? Could you post the errant code block?

chris.

[DanTheMan888]

im trying to add stock to a file and i get type mismatches,
heres the code. oh and if you could download and have a look at it running it would be sweet . dont worry, its only one simple form

Private Type OneProduct
ProductID As Integer
Description As String * 18
Price As Currency
QuantityInStock As Integer
ReorderLevel As Integer
End Type
Dim Filename As String
Dim NumberOfRecords As Integer

Private Sub cmdAddRecord_Click()
Dim ProductID As OneProduct
Filename = App.Path & "\ex10_2_Products.dat"
Product.ProductID = txtProductID.Text
Product.Description = txtDescription.Text
Product.Price = txtPrice.Text
Product.QuantityInStock = txt.QuantityInStock.Text
Product.ReorderLevel = cboReorderLevel.Text
Open Filename For Random As #1 Len = Len(Product)
Put #1, NumberOfRecords + 1, Product
Close #1
NumberOfRecords = NumberOfRecords + 1
lblNumberOfRecords.Caption = NumberOfRecords
txtProductID.Text = ""
txtDesription.Text = ""
txtPrice.Text = ""
txtQuantityInStock.Text = ""
txtProductID.SetFocus
cboReorderLevel.Text = "50"
End Sub

Private Sub cmdDisplayFile_Click()
Dim Index As Integer
Dim DataToDisplay As String
Dim Quantity As String * 4
Dim Price As String * 6
Dim ReorderLevel As String * 3
Dim Product As OneProduct
Filename = App.Path & “ \ ex10_2_Products.dat”
lstDisplayFile.Clear
Open Filename For Random As #1 Len = Len(Product)
For Index = 1 To NumberOfRecords
Get #1, , Product
Quantity = Product.QuantityInStock
Price = Format(Product.Price, " Currency")
ReorderLevel = Product.ReorderLevel
DataToDisplay = Product.ProductID & " " & Product.Description _
& " " & Quantity & " " & Price & " " & ReorderLevel
Next Index
Close #1
End Sub

Private Sub cmdFindProductID_Click()
Dim RecordNumber As Integer
Dim Found As Boolian
Dim ProductID As String
Dim Product As OneProduct
ProductID = txtFindProduct.Text
RecordNumber = 0
Found = False
Filename = App.Path & “ \ ex10_2_Products.dat”
Open Filename For Random As #1 Len = Len(Product)
Do While (Not EOF(1)) And (Found = False)

RecordNumber = RecordNumber + 1
Get #1, RecordNumber, Product
If Product.ProductID = ProductID Then
Found = True
lblProductID.Caption = Product.ProductID
lblDesription.Caption = Product.Description
lblPrice.Caption = Product.Price
lblQuantityInStock.Caption = Product.QuantityInStock
lblReorderLevel.Caption = Product.ReorderLevel
End If
Loop
Close #1
If Not Found Then
MsgBox ("Product ID " & ProductID & " is not in the file")
End If
End Sub

Private Sub cmdFindRecord_Click()
Dim RecordNumber As Integer
Dim Product As OneProduct
Filename = App.Path & “ \ ex10_2_Products.dat”
RecordNumber = txtFindRecord.Text
If (RecordNumber > 0) And (RecordNumber <= NumberOfRecords) Then
Open Filename For Random As #1 Len = Len(Product)
Get #1, RecordNumber, Product
lblProductID.Caption = Product.ProductID
lblDesription.Caption = Product.Description
lblPrice.Caption = Product.Price
lblQuantityInStock.Caption = Product.QuantityInStock
lblReorderLevel.Caption = Product.ReorderLevel
Close #1
Else
MsgBox "Invalid record number"
End If
End Sub

[cristobal03]

Well, I don't have Office anymore so I can't run it if it's an Office integration solution using VBA, and I don't have Visual Studio so I can't help there either. These are the lines I assume are throwing exceptions:

Product.ProductID = txtProductID.Text
[...]
Product.Price = txtPrice.Text
Product.QuantityInStock = txt.QuantityInStock.Text
Product.ReorderLevel = cboReorderLevel.Text

The properties ProductID, QuantityInStock, and ReorderLevel are dimensioned as Integer data types, and Price is dimensioned as a Currency data type. The assignments above are mismatches because of the implicit String data type of Text properties.

I don't know VB.NET but I imagine casting the types will help.

Product.ProductID = CInt(txtProductID.Text)
[...]
Product.Price = Format(txtPrice.Text, "Currency") ' don't know of a currency conversion function
Product.QuantityInStock = CInt(txt.QuantityInStock.Text)
Product.ReorderLevel = CInt(cboReorderLevel.Text)

I have a feeling the lines above were not part of the original code. So I assume the remainder of what you posted works correctly. I don't see any glaring problems, anyway.

Try my suggestions on a copy of the file and see how that works.

chris.

[DanTheMan888]

your rite abut whats wrong but not on how to fix it, the Cint still gives me missmatches

[cristobal03]

Well, I don't know if there are nuances to casting in VB. Is it possible that the text box controls aren't instantiated or somehow have null values? All I know is that those lines are incorrectly type cast. Someone who knows more about VB will have to give you more useful advice.

chris.