Query into Variable (1 Viewer)

[LordofTzeentch]

Hi im pretty new to all this and need some help

Im creating a program for a wargame that i play that will create army list s for me. I have everything how i want it but Im having trouble figuring out how you get a value from a query into a variable the code i have atm is

Dim Point As Integer
DoCmd.OpenQuery "QryMagicPoints"
Point = "SELECT [QryMagicPoints].Points from QryMagicPoints"

According to websites that ive vistited this code should work but everytime i run it i get
Run Time error '13'
Type Mismatch any help would be appreciated

 

[bat1799]

Try it his way

Dim rst As DAO.Recordset
Dim Point As Integer
Set rst = CurrentDb.OpenRecordset("QryMagicPoints")
Point = rst!Points
set rst = nothing

HTH

Peter

 

[LordofTzeentch]

Ive just tried that and got
Run-time error 3061
Too few perameters.

it stops as soon as it gets to
Set rst = CurrentDb.OpenRecordset("QryMagicPoints")

 

[bat1799]

try this mod to get the Parameters in place then

Dim qdf As DAO.QueryDef
Dim prm As DAO.Parameter
Dim rst As DAO.Recordset
Dim Point As Integer

Set qdf = CurrentDb.QueryDefs("QryMagicPoints")
For Each prm In qdf.Parameters
    prm.Value = Eval(prm.Name)
Next prm

Set rst = qdf.OpenRecordset()
Point = rst!Points
Set qdf = Nothing
Set rst = Nothing

HTH

Peter

 

[LordofTzeentch]

Excellent it work thanxs alot its much apreciated