Open form to a specific record problem

[SeniorCitizen]

I am using the code below to open a form to a specific record based on record count. The problem is that the message box shows the proper record count, but it always opens the first record.
Any thoughts

Private Sub BtnDaily_Click()
Dim RecCnt As Integer
Dim FileEnd As Integer
FileEnd = DCount("RecordDate", "TblSummary")



RecCnt = 1
'Determine if todays record has started


DoCmd.GoToRecord , , acFirst
Do While RecCnt < FileEnd + 1
If RecordDate = Date + NewDay Then
GoTo Found
End If
RecCnt = RecCnt + 1
DoCmd.GoToRecord , , acNext
Loop

DoCmd.OpenForm "FrmDailyAdd", acNormal, , , , , RecCnt
LDate = RecordDate
Exit Sub

The above code works great.


Found:
MsgBox RecCnt
DoCmd.OpenForm "FrmDailyUpdate", acNormal, , , , , RecCnt

End Sub

[pbaldy]

What do you expect the RecCnt variable to do in the OpenForm code? If my count is correct, you have it in the OpenArgs position, which won't do anything on its own. You'd need code in the form to put that value to any use. Is this appropriate?

http://www.baldyweb.com/wherecondition.htm

tweaked to open the form to a specific date.

[SeniorCitizen]

Thanks Taking you advise I have changed the code as follows. I still get a new record regardless of how I change the where clause. ID is the table primary key. I search for the dated record that I want and put that into the recCnt then attempt to open the record with the desired date.

Private Sub BtnDaily_Click()
Dim RecCnt As Integer
Dim FileEnd As Integer
FileEnd = DCount("RecordDate", "TblSummary")



RecCnt = 1
'Determine if todays record has started
DoCmd.GoToRecord , , acFirst
Do While RecCnt < FileEnd + 1
If RecordDate = Date + NewDay Then
GoTo Found
End If
RecCnt = RecCnt + 1
DoCmd.GoToRecord , , acNext
Loop

DoCmd.OpenForm "FrmDailyAdd", acNormal, , RecCnt
LDate = RecordDate
Exit Sub


Found:
RecCnt = ID

MsgBox RecordDate
MsgBox RecCnt
DoCmd.OpenForm "FrmDailyUpdate", acNormal, , "[ID] =" & Me.RecordDate
End Sub

Both RecordDate and RecCnt are correct for the desired record

Frustrated Thanks

[pbaldy]

This:

DoCmd.OpenForm "FrmDailyAdd", acNormal, , RecCnt

is using a count so will resolve to:

DoCmd.OpenForm "FrmDailyAdd", acNormal, , 7

which is not a valid wherecondition. This

DoCmd.OpenForm "FrmDailyUpdate", acNormal, , "[ID] =" & Me.RecordDate

appears to be comparing an ID field to a date field, which presumably will never result in a valid record.

Can you attach the db here to play with?

[SeniorCitizen]

Thanks for smack about the head. Your comment that I cant compare a record number to a date did it. I fix that and all is well.

DoCmd.OpenForm "FrmDailyUpdate", acNormal, , "[ID] =" & Me.ID

I appreciate the help

[pbaldy]

Happy to help!