Type Mismatch error

[Fonzie]

What I am trying to do is for the given part number in a subform, a query will run to add all quantities in all workorders for that part number. I have the code entered below, but keep getting a 'Type Mismatch' error. I have no idea where to go from here.

Private Sub Quantity_AfterUpdate()
DoCmd.RunCommand acCmdSaveRecord
Dim rst As Recordset
Dim db As Database
Dim strsql As String
strsql = "SELECT Sum(WorkorderDetails.Quantity) AS temp FROM WorkorderDetails WHERE PartNumber = '" & Me!PartNumber & "';"
Set db = CurrentDb
Set rst = db.OpenRecordset(strsql)
rst.MoveFirst
If rst!temp > 1 Then
MsgBox ("More that One&quot
Else
End If
rst.Close
End Sub

 

[tlbroadbent]

Add a test for RecordCount on the recordset. It may be that the query is returning no records.

If rst.recordcount>0 Then
' Query returned no rows
Else
rst.MoveFirst
If rst!temp>0 Then
.
.
.
Terry

http://members.home.net/tlbroadbent/prog.htm

The reason why worry kills more people than work is that more people worry than work. - Robert Frost

 

[Fonzie]

I tried entering your code, but still coming up with 'Type Mismatch'.

 

[Fonzie]

Found problem in different post. DAO library needed to have higher priority that ADO.

 

[ComputorMike]

Set rst = db.OpenRecordset(sSQL, dbOpenDynaset)
If Not rst.BOF Then rst.MoveLast
i = rst.RecordCount To object or not to object
That is the question
Alast poor varible I new you well