[Event Procedure] to edit a record

[Aloupha]

Hello,



I am trying to use [Event Procedure] to allow users to edit a specific record. I want to click on "Edit Record" and prompted to enter a date to pull the record. I can accomplish this using a combination of queries and macros. However, I am new to using [Event Procedure] and I am thinking I could accomplish the same thing using it.

I have read that I could use DoCmd.OpenForm, and I am having issues with the correct way to write the [WhereCondition]

Private Sub EditRecord_Click()
    DoCmd.OpenForm Updates,acNormal,,[WhereCondition],acFormEdit,acWindowNormal,,
End Sub

How would I go about doing that?

Thanks

[pbaldy]

It looks like this:

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

you could use an InputBox to prompt the user instead of the form reference, but I wouldn't.

[Aloupha]

It looks like this:

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

you could use an InputBox to prompt the user instead of the form reference, but I wouldn't.

Thanks, I am still not sure how to get it done. I think I came accross that link before and wasn't able to figure it out.

Private Sub EditRecord_Click()
    DoCmd.OpenForm "Updates", , , "Date = #" &DateT& "#"
End Sub

This is what I have. At first nothing happened. I closed everything and opened it back up. I get the following error:

Run-time error '3075':

Syntax Error in date in query expression 'Date= ##'

[pbaldy]

The error would imply that DateT (a variable?) is empty.

[Aloupha]

Please bear with me. What should I have in the Me.Controlname? I DateT is the name of the Testbox for the Date field of the form.

[pbaldy]

Then

Me.DateT

[Aloupha]

Then

Me.DateT

I did that and the error remains. I see two behaviors.

1) On the switchboard, I have an event procedure that opens the form as acFormAdd (DoCmd.OpenForm " Updates", , , , acFormAdd)

2) On the form itself, there are three link options: 1) Add Record, 2) Edit Record, 3) View Records.

When I open the form through the switchboard as AcFormAdd and click on the Edit Record link, I still get the error "Run-time error '3075':

Syntax Error in date in query expression 'Date= ##'"

When I am viewing records and I click on the "Edit Record" option, nothing seems to happen. However, I noticed that only 23 records out of 500+ records are showing and all of the 23 records are from the same date. So, it looks like it's kind of working in this place working but it does not prompt me to enter the date. It just does the filter by itself. How? I don't know.

I am not sure why I get different results when I click on the Edit Record button from viewing the form as acFormAdd vs. Normal view (DoCmd.OpenForm "Updates")

[pbaldy]

Can you post the db here?

[Aloupha]

Not really, it's a department db of a company.

[Aloupha]

Not really, it's a department db of a company.

Okay, attached is mock-up version of the db. It functions exactly the same with the same behaviors.

[pbaldy]

If I click on the button on the main form, type a date into the date box on the second and click on Edit, it brings up the record for that date.

I don't think I would open the same form from within itself, and the fact that the textbox you're typing a date into to find is also bound to the table is going to cause you problems.

[Aloupha]

What is the proper way to do it? All I want to do is make it possible to edit a record using the date as a folder. The user will enter the date to be edited. I can do it with using a query and a macro. I wanted to avoid doing it that way.

[pbaldy]

Since the form is bound to the table, you can use the combo box wizard, using the "Find a record..." option. That will give you a combo that will jump to the chosen record. As it is, since that textbox is bound, when you type in a date to find, you're either changing the value of the displayed record or adding a new one.