Counting records in a subform HELP!

[JBurlison]

i have a subform that is filtered by the key of the main form. i want to count how many items are in the subform


i tried this but it says i cannot use ".RecordCount = CountR" as read only

    On Error GoTo ErrorH
    Dim db As Database
    Dim rs As Recordset
    Dim PKey As String
    Dim CountR As Integer
    DoCmd.GoToRecord

PKey = Me.Product_Key

    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT * FROM [ProductKeysAsigned] WHERE [Product Key] = PKey", dbOpenDynaset)
    
    With rs
        .MoveLast
        .MoveFirst
        .RecordCount = CountR
    End With
    rs.Close
    
    Me.Keys_Used = CountR
        GoTo EndH
ErrorH:
    Call ErrorRPT1
EndH:

 

[odin1701]

CountR = .RecordCount

You're trying to assign a value to RecordCount, and you can't.

 

[JBurlison]

o lol duh why did i not see that

 

[odin1701]

Probably because you get in a habit with a With statement of doing:

.Blah
.Blah
.Blah
.Blah
.Blah

etc.

 

[JBurlison]

Err now im getting too few parameters on

    Set rs = db.OpenRecordset("SELECT * FROM [ProductKeysAsigned] WHERE [Product Key] = PKey", dbOpenDynaset)

is this wrong im bad at SQL lol

 

[boblarson]

Set rs = db.OpenRecordset("SELECT * FROM [ProductKeysAsigned] WHERE [Product Key] ='" & PKey & "'", dbOpenDynaset)

 

[JBurlison]

Wooot Works thanks guys!

 

[boblarson]

Just remember when you are referring to a control, a form, a variable, etc. you need to refer to it outside of the quotes, so you have to concatenate it in. Also, remember if dealing with text, encapsulate it with quotes and if it is a date encapsulate with # and if number it doesn't get either.