Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

MSAccess Forms

Posted on 2011-09-09
14
Medium Priority
?
193 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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
NFR key for Veeam Agent for Linux

Veeam is happy to provide a free NFR license for one year.  It allows for the non‑production use and valid for five workstations and two servers. Veeam Agent for Linux is a simple backup tool for your Linux installations, both on‑premises and in the public cloud.

 
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: 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 2000 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

[Webinar] Lessons on Recovering from Petya

Skyport is working hard to help customers recover from recent attacks, like the Petya worm. This work has brought to light some important lessons. New malware attacks like this can take down your entire environment. Learn from others mistakes on how to prevent Petya like worms.

Question has a verified solution.

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

In earlier versions of Windows (XP and before), you could drag a database to the taskbar, where it would appear as a taskbar icon to open that database.  This article shows how to recreate this functionality in Windows 7 through 10.
AutoNumbers should increment automatically, without duplicates.  But sometimes something goes wrong, and the next AutoNumber value is a duplicate.  This article shows how to recover from this problem.
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.

610 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