Create a button to save/update record OR add new record

Here's the code:

Private Sub SAVE_BUTTON_Click()
On Error GoTo Err_SAVE_BUTTON_Click


Dim MyDb As Database, Myrec As Recordset
Set MyDb = CodeDb() ' Current MDB
Set Myrec = MyDb.OpenRecordset("Select * From Office Where Office_ID = " &
Me.Office_Code)
If Myrec.EOF Then ' No records
Myrec.AddNew
Else
Myrec.Edit ' record exist
End If

Myrec!Office_Name = Me.Office_Name
Myrec!Business_City = Me.Business_City
Myrec!Business_ST_Add = Me.Business_address
Myrec!Business_ZIP = Me.Business_ZIP
Myrec!Mailing_City = Me.Mailing_City
Myrec!Business_ZIP = Me.Business_ZIP
Myrec!Mailing_ST_Add = Me.Mailing_Address
Myrec.Update


Exit_SAVE_BUTTON_Click:
Exit Sub

Err_SAVE_BUTTON_Click:
MsgBox Err.Description
Resume Exit_SAVE_BUTTON_Click

End Sub

Upon a little further investigation, when I tried to change the Myrec.Edit
statment, after I type "Myrec." a drop down menu is displayed with a list of
statement values/functions, and oddly enough, the "Edit" statement is not
present, but "Save" and "Update" are. I tried using both of those in the
place of "Edit" and it complies fine, but when I click the "SAVE" button, I
get the error "Too few Parameters. Expected 1."

Don't know if this would help or not.

Sorry for the delay
I have never seen this, that the edit doesn't apear on the list, so try
removing the edit line, It could be that its by default set to edit, unless
you tell it other wise.

Cange that :
If Myrec.EOF Then ' No records
Myrec.AddNew
Else
Myrec.Edit ' record exist
End If

To:
If Myrec.EOF Then ' No records
Myrec.AddNew
End If


"DrewTheFather" wrote:

Upon a little further investigation, when I tried to change the Myrec.Edit
statment, after I type "Myrec." a drop down menu is displayed with a list of
statement values/functions, and oddly enough, the "Edit" statement is not
present, but "Save" and "Update" are. I tried using both of those in the
place of "Edit" and it complies fine, but when I click the "SAVE" button, I
get the error "Too few Parameters. Expected 1."

Don't know if this would help or not.

Found the problem, in the reference locate the dao3.6 strait after the Access
11 reference.
If you have an ole automation refernce, the dao should be before it.

DrewTheFather wrote:
Here's the code:

Private Sub SAVE_BUTTON_Click()
On Error GoTo Err_SAVE_BUTTON_Click

Dim MyDb As Database, Myrec As Recordset
Set MyDb = CodeDb() ' Current MDB
Set Myrec = MyDb.OpenRecordset("Select * From Office Where Office_ID = " &
Me.Office_Code)
If Myrec.EOF Then ' No records
Myrec.AddNew
Else
Myrec.Edit ' record exist
End If

Myrec!Office_Name = Me.Office_Name
Myrec!Business_City = Me.Business_City
Myrec!Business_ST_Add = Me.Business_address
Myrec!Business_ZIP = Me.Business_ZIP
Myrec!Mailing_City = Me.Mailing_City
Myrec!Business_ZIP = Me.Business_ZIP
Myrec!Mailing_ST_Add = Me.Mailing_Address
Myrec.Update

Exit_SAVE_BUTTON_Click:
Exit Sub

Err_SAVE_BUTTON_Click:
MsgBox Err.Description
Resume Exit_SAVE_BUTTON_Click

End Sub


--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...forms/200508/1

In my References option, there is no record of an Access 11 reference....I
tried browsing, but could not find it. Is this causing the problem?


"Ofer C via AccessMonster.com" wrote:

Found the problem, in the reference locate the dao3.6 strait after the Access
11 reference.
If you have an ole automation refernce, the dao should be before it.

You need reference to MSACC.OLB you might have a different Access, 8 or
something
If so put the other reference, dao3.6, just after it

"DrewTheFather" wrote:

In my References option, there is no record of an Access 11 reference....I
tried browsing, but could not find it. Is this causing the problem?


"Ofer C via AccessMonster.com" wrote:

Found the problem, in the reference locate the dao3.6 strait after the Access
11 reference.
If you have an ole automation refernce, the dao should be before it.

I have a reference to MSACC9.OLB directly followed by a reference to the DAO
3.6

From what I have looked at and tested, correct me if I'm wrong, but the
problem lies in the SET of Myrec.

This is error starting to wear on me.

"Ofer" wrote:

You need reference to MSACC.OLB you might have a different Access, 8 or
something
If so put the other reference, dao3.6, just after it

"DrewTheFather" wrote:

In my References option, there is no record of an Access 11 reference....I
tried browsing, but could not find it. Is this causing the problem?


"Ofer C via AccessMonster.com" wrote:

Found the problem, in the reference locate the dao3.6 strait after the Access
11 reference.
If you have an ole automation refernce, the dao should be before it.

If you would like me to check the code, you can mail it to me


Compact the MDB
Chenge the name form MyMDNName.mdb to MyMDNName.jpg and zip it

Hotmail doesnt allow mdb attach, and it removes it

Don't give up.


"DrewTheFather" wrote:

I have a reference to MSACC9.OLB directly followed by a reference to the DAO
3.6

From what I have looked at and tested, correct me if I'm wrong, but the
problem lies in the SET of Myrec.

This is error starting to wear on me.

"Ofer" wrote:

You need reference to MSACC.OLB you might have a different Access, 8 or
something
If so put the other reference, dao3.6, just after it

"DrewTheFather" wrote:

In my References option, there is no record of an Access 11 reference....I
tried browsing, but could not find it. Is this causing the problem?


"Ofer C via AccessMonster.com" wrote:

Found the problem, in the reference locate the dao3.6 strait after the Access
11 reference.
If you have an ole automation refernce, the dao should be before it.

I tried sending the file to you from two different addresses and it failed
due to the size of the Zip'ed file. Any other suggestions?

OK, so now I got the Save (update) working, now I'll be working on adding a
new record.