Calculation

[sujitbhattacharya]

Dear Community

Sir I have two fields in a table and both of them are of number Data Type (as per ACCESS format). The following is the code Through which I'm trying to enter a calculated data in the Table

Dim Bal_Stock1 As Double
Dim STOCK As Integer
Dim Issued As Integer
Dim Quantity_Stock As Integer
Dim Quantity_Issued As Integer
Dim Bal_Stock As Integer
 
Quantity_Stock = STOCK
Quantity_Issued = Issued
Bal_Stock = Bal_Stock1
 
Bal_Stock1 = stbal(STOCK, Issued)
MsgBox (stbal(CDbl(STOCK), CDbl(Issued)))
 
sql = "INSERT INTO stock(Item_code,Item_Name,Quantity_Stock,Unit,StockValue,Quantity_issued,unit1,IssuedValue,Bal_Stock,Unit2,StockValue1)VALUES(" & _
      "' " & txtItem_Code.Text & "',' " & txtItem_Name.Text & " '," & Quantity_Stock & ",' " & txtUnit.Text & "','" & txtStockValue.Text & "'," & Quantity_Issued & ",' " & txtUnit1.Text & "','" & txtIssuedValue.Text & "', " & Bal_Stock & ",'" & txtUnit2.Text & "',' " & txtstockValue1.Text & "') "

Following is the function through which the calculation is done

Function stbal(STOCK As Integer, Issued As Integer) As Double
  stbal = STOCK - Issued
 
End Function

With this above code it is giving

Error "DataType mismatch on criteria expression"

Pls help me

[kadghar]

Dear Community
...
MsgBox (stbal(CDbl(STOCK), CDbl(Issued)))
...
Function stbal(STOCK As Integer, Issued As Integer) As Double
stbal = STOCK - Issued
End Function
...
Error " DataType mismatch on criteria expression"

Pls help me

CDbl will transform the expression into a Double
stbal use Integers as an input

maybe you should use
stbal(stock, issued)
since they're integers and you dont need to make them doubles for the function to work.

HTH