Syntax Error Making One Field Equal Another

[burrina]

I have a field on my form that needs to stay the same even if moving to another record,it is a bound field and the name is Bank.


Here is my code that runs on the OnCurrent Event.
[Me].[Bank].[DefaultValue]="""" & [Me].[Bank].[Value] & """"

I tells me invalid use of dot or operator or parenthesis.
Maybe another way to do this but I am coming up blank.

[Bob Fitz]

I have a field on my form that needs to stay the same even if moving to another record,it is a bound field and the name is Bank.

Can you explain the need for this.

[burrina]

I have a Check Register Database and need to maintain the Same Bank Account for all records entered onto the Check Register.Only ONE Bank Account to be used at a time on the register. If I go to the next record it show me whatever next Bank Account there is and I don't want this. The table the register is based on uses a combo lookup for the Bank to be used on the form. Bank field is in another table named TBanks. Check Register table is named TReg. Here is a screenshot of the Check Register, move to new record, new bank,,,BAD!

It is a Continuous Form,sorry, forgot that.

[pbaldy]

Try without the brackets around Me.

http://access.mvps.org/access/forms/frm0012.htm

[burrina]

I was using this as the Default Value of the control Bank [Me].[Bank].[DefaultValue]="""" & [Me].[Bank].[Value] & """"
It puts the brackets back if I try and change it.

I use this code on the forms OnCurrent Event
Me.Bank.DefaultValue = """" & Me.Bank.Value & """"


Bank still changes when moving to next record. I should be able to keep the same Bank for all record entered into the check register but
can't for the life of me figure out how. Only ONE Bank per check register is what I am after.

[pbaldy]

Try the after update event of the bank control. I think the current event is too late.

[burrina]

Nope, same thing. Continuous forms are a pain!!! Can't do it in Datasheet, too much code to try and rewrite. I even separated the tables and made one just the details and linked by RegID and no luck. I a sure I am missing something simple, at least I hope i am.

[pbaldy]

Is there some other code running to populate that value? Can you post the db here?

[burrina]

Anyway to post privately? This is not one I want to give away! At least not right now.My plan is to try and sell small databases as a source of income. I realize it is hard to get a grip on what I am doing without seeing it! Most of you guys could no doubt write something much better in a much smaller amount of time but not many people on here offer up their database for free. it is almost impossible as well to scale down and allow you or anyone to make sense of it. Maybe it is my basic design? So, there is what I will do if I don't hear back from you. I will post and then delete it after a short wait. Hope you understand! If I were getting paid to write this, I would owe them money.

[pbaldy]

If you want to email it

Pbaldy
gmail
com

[Missinglinq]

You keep speaking of 'going to next record.' What you want to do should only be done when going to a New Record! Otherwise you'll be over-writing an existing Record! Following Paul's suggestion

Private Sub Bank_AfterUpdate()
 Me.Bank.DefaultValue = """" & Me.Bank.Value & """"
End Sub

will insert the Current Record's Bank data into each New Record until it is physically changed or the Form or Access itself closed.

Linq ;0)>

[burrina]

Here's the thing though, when I go to a new record, it no longer shows what Bank account i am using, that wont work! I need to stay with the same bank account for all records associated with it. Each instance of the check register should have its bank account.

[Missinglinq]

Don't know what to tell you if you're not willing to post your file here! Assuming that other code works, i.e. your file is in a Folder that has been declared as 'Trusted,' it should work! That code is standard boilerplate and has worked for literally thousands of developers over the years!

Linq ;0)>

[burrina]

Thanks for the offer and help. Will post back after trying a few things. What I am doing I think is unique amongst everything I have seen. I have seen nothing to date that does it, Quicken, Quickbooks, MyCheckbok and so on all do it but have not seen a Access db that does it. I have a scheduler incorporated in it as well. If your willing to take a shot at this other thing I am trying I would appreciate it. On my scheduler form which uses a EventID as the primary key I need to append the date to the table TReg which has a Primary key of RegID. It wants to append to all the records instead of just one. Here is my append code.

If Me.Dirty Then Me.Dirty = False
DoCmd.SetWarnings False 'Purpose: Append Scheduled Trans To Check Register.
DoCmd.OpenQuery "Qappendtoregister"
DoCmd.RunCommand acCmdSaveRecord
If Me.Dirty Then Me.Dirty = False
DoCmd.SetWarnings True
__________________________________________________ _________________________________
The ONLY criteria the query has is for the field enter which is set to Date() that's it. I am thinking I need a where statement or something, just dont know how to implement it. See attached screenshot of append query and scheduler form. Any suggestions without seeing it?

[burrina]

Giving up on this one. Thanks...