Run Time Error

[ptrifile]

Can someone help me with this error. I am getting the error "Runtime error 13 Type mismatch". I am using the following code to get an average (being called from a button)...

Private Sub Command85_Click()
Dim i, numQ, total, avg As Single
Dim question As String

numQ = 0
total = 0

For i = 1 To 15
   question = "question" & i
   If Not IsNull(Me(question)) Then
   
   
      numQ = numQ + 1
      total = total + Me(question)
   End If
Next i

avg = total / numQ

Me!average = avg


End Sub

Any help or suggestion is welcome! thanks in advance

Paul

 

[PHV]

[!]I am getting the error "Runtime error 13 Type mismatch"[/i]
On which line ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[dhookom]

Paul,
Do you realize that in this line

Dim i, numQ, total, avg As Single

only avg is Single? The other variables are created as Variants.

This code creates them all as Single:

Dim i as Single, numQ Single, total Single, avg As Single

Also avg is a reserved word and should not be used as a memory variable name. See Allen Browne's list of Problem names and reserved words in Access. A good naming convention typically avoids this type of issue.

Duane
Hook'D on Access
MS Access MVP