Solved

MSAccess Forms

Posted on 2011-09-09
14
187 Views
Last Modified: 2012-05-12
I have a form frmReportGenerator with several pages (tabs).  It contains functions to customize reports and email them out.  

The pages have subforms, including frmSubViewEmailMsg for maintaining the email messages.
The recordSource for this form is table tblEmailMessage.  This table has 3 memo fields: TerminatingMsg, ExceptionsMsg, BothMsg. The form displays these fields in 3 textboxes:
frmSubViewEmailMsg!txtTermMsg
frmSubViewEmailMsg!txtExcpMsg
frmSubViewEmailMsg!txtBothMsg

On this form, the textboxes are view only (locked).  To allow the user to edit them, there is a command button (“EDIT”) next to each textbox.  When the user clicks on the EDIT button, it opens up a popup form frmSubEmailMsgEdit that has a textbox containing the message text.  On this form the textbox is unlocked to allow the user to edit, then save the changes to the message text.

I am having trouble figuring out how to pass the name of the message type so that the changes can be saved to the correct field in the table tblEmailMessage. I’m already passing the message text using the arguments of the DoCmd.OpenForm command.  What am I overlooking here??

Thanks, Lynn
 Email-Forms-Printscreen.doc
0
Comment
Question by:Lambel
  • 6
  • 5
  • 3
14 Comments
 
LVL 120

Expert Comment

by:Rey Obrero (Capricorn1)
ID: 36511967
there are a lot more things to do to accomplish this..
better if you can upload a copy of the db..
0
 
LVL 26

Expert Comment

by:Nick67
ID: 36512227
<I’m already passing the message text using the arguments of the DoCmd.OpenForm command>
So, you are using OpenArgs?
Are you passing the text itself?
Or are you telling the new form to go get the text from Forms!SomeForm!SomeControl?
Or are you telling it some SQL,i.e. "select somefield from sometable;" ?

If you are using OpenArgs, I like to pass in a semi-colon delimited list of arguments.
I then use SomeArray() = Split(Me.OpenArgs,";") to break them up.
You could pass in "SomeFormName;SomeControlName" and then based on that either write the edits to a table via recordset code and requery the original control or write the changes to the control directly via Forms!SomeFormName!SomeControlName.Value = me.theEditedControl.value
0
 

Author Comment

by:Lambel
ID: 36512838
I've attached a database file with the forms and code for the issue I described above.
 Email-Forms-201100909-9121.zip
0
Three Reasons Why Backup is Strategic

Backup is strategic to your business because your data is strategic to your business. Without backup, your business will fail. This white paper explains why it is vital for you to design and immediately execute a backup strategy to protect 100 percent of your data.

 
LVL 120

Expert Comment

by:Rey Obrero (Capricorn1)
ID: 36512907
you should have included the form "frmReportGenerator"
0
 
LVL 26

Expert Comment

by:Nick67
ID: 36513028
Ok,
You are using OpenArgs to pass in the text...
And then using code to set the value of that very small textbox
And you are setting it to the value of the ControlSource of the original textbox

So this is probable what you are asking about

        'If we make it this far we can save the changes to the message records
            rs.Edit
            'rs.Fields(msgName) = Me.txtMsg  '<--- this is bad
             rs.Field(Me.txtWhatMsg) = Me.txtMsg  '<---This is what you want
            rs.Update


Now,
0
 

Author Comment

by:Lambel
ID: 36513082
0
 

Author Comment

by:Lambel
ID: 36513306
@Nick67:  The code never gets that far.

Private Sub cmdEditTerMsg_Click()
    DoCmd.OpenForm "frmSubEmailMsgEdit", acNormal, , , , , _    '<------ Bombs Here
    Forms!frmReportGenerator!frmSubViewEmailMsg.TerminatingMsg.value
    Forms!frmReportGenerator!frmSubEmailMsgEdit.txtWhatMsg = "TerminatingMsg"
End Sub

I get error message: "run time error '438'.  Object doesn't support this property or method".
0
 
LVL 120

Expert Comment

by:Rey Obrero (Capricorn1)
ID: 36513330


use this code

Private Sub cmdEditTerMsg_Click()

'    DoCmd.OpenForm "frmSubEmailMsgEdit", acNormal, , , , , _    '<------ Bombs Here
'    Forms!frmReportGenerator!frmSubViewEmailMsg.TerminatingMsg.value
'    Forms!frmReportGenerator!frmSubEmailMsgEdit.txtWhatMsg = "TerminatingMsg"

    DoCmd.OpenForm "frmSubEmailMsgEdit", acNormal, , , , , _    
    Forms!frmReportGenerator!frmSubViewEmailMsg.Form!TerminatingMsg.value

'    Forms!frmReportGenerator!frmSubEmailMsgEdit.txtWhatMsg = "TerminatingMsg"

End Sub
0
 
LVL 26

Expert Comment

by:Nick67
ID: 36513394
Ok,

You second sample just bombs massively for me.
Here is your first sample
The FIRST edit message button is working.
Earlier in that code you were setting msgName

Had you done
msgName = me.txtWhatMsg.value, the code would have worked.

My change works too

Email-Forms-201100909-9121.mdb
0
 
LVL 120

Expert Comment

by:Rey Obrero (Capricorn1)
ID: 36513396
test this and posts what ever comments you have
Email-Forms-201100909-9121.mdb
0
 

Author Comment

by:Lambel
ID: 36513399
I'm still getting stuck in the same place ( run time error 2501) See attached printscreen file.
Error-Email-Forms.doc
0
 
LVL 120

Accepted Solution

by:
Rey Obrero (Capricorn1) earned 500 total points
ID: 36513406
Lambel,

check the uploaded db at http:#a36513396 


0
 

Author Closing Comment

by:Lambel
ID: 36513589
Capricorn and Nick67 - thanks for all your help and comments.  Capricorn1: That last file you sent worked!  I'm not sure what fixed it, but I'm glad to move on at this point!

Thanks again,
Lynn
0
 
LVL 120

Expert Comment

by:Rey Obrero (Capricorn1)
ID: 36513633
I commented the erring codes and replace them with the correct codes. You can check them from the modules of the two forms
0

Featured Post

Ransomware: The New Cyber Threat & How to Stop It

This infographic explains ransomware, type of malware that blocks access to your files or your systems and holds them hostage until a ransom is paid. It also examines the different types of ransomware and explains what you can do to thwart this sinister online threat.  

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

In the previous article, Using a Critera Form to Filter Records (http://www.experts-exchange.com/A_6069.html), the form was basically a data container storing user input, which queries and other database objects could read. The form had to remain op…
Experts-Exchange is a great place to come for help with solutions for your database issues, and many problems are resolved within minutes of being posted.  Others take a little more time and effort and often providing a sample database is very helpf…
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string. Specify the first argument, which is the expression to be returned: Specify the second argument, which …

777 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question