473,407 Members | 2,326 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,407 software developers and data experts.

Recordset question - strategy needed

I have a form (in continuous form view) from which I choose a record
by double-clicking the SRC_CUST_NAME textbox whic opens another form
showing all the details of that record. I do this by having ALL the
fields (most of them hidden) transfer to the detail for through a
series of code lines below like: "[Forms]![frmCustDetail]![PEP_POINT]
= [Forms]![frmMain]![subCustomers]![PEP_POINT]" (see bottom of post).
This is working so well I hate to tamper with it but I'd like to be
able to edit the resulting data displayed. I wrote code to allow
edits:

Private Sub AllowEdits_Click()
Me.Form.AllowEdits = True
End Sub

But this obviously will not SAVE the changes since it is not directly
connected to the table or a recordset. Any ideas?
Thanks!!!
Private Sub SRC_CUST_NAME_DblClick(Cancel As Integer)
On Error GoTo Err_SRC_CUST_NAME_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmCustDetail"
DoCmd.OpenForm stDocName, , , stLinkCriteria
[Forms]![frmCustDetail]![SRC_CUST_NAME] = [Forms]![frmMain]!
[subCustomers]![SRC_CUST_NAME]
~
~
[Forms]![frmCustDetail]![PEP_POINT] = [Forms]![frmMain]![subCustomers]!
[PEP_POINT]
[Forms]![frmCustDetail]![PEP_CA_NAME] = [Forms]![frmMain]!
[subCustomers]![PEP_CA_NAME]
[Forms]![frmCustDetail]![PEP_CA_TYPE] = [Forms]![frmMain]!
[subCustomers]![PEP_CA_TYPE]
Exit_SRC_CUST_NAME_Click:
Exit Sub
Err_SRC_CUST_NAME_Click:
MsgBox Err.Description
Resume Exit_SRC_CUST_NAME_Click
End Sub

May 29 '07 #1
2 1280
On May 29, 2:47 pm, slinky <campbellbrian2...@yahoo.comwrote:
I have a form (in continuous form view) from which I choose a record
by double-clicking the SRC_CUST_NAME textbox whic opens another form
showing all the details of that record. I do this by having ALL the
fields (most of them hidden) transfer to the detail for through a
series of code lines below like: "[Forms]![frmCustDetail]![PEP_POINT]
= [Forms]![frmMain]![subCustomers]![PEP_POINT]" (see bottom of post).
This is working so well I hate to tamper with it but I'd like to be
able to edit the resulting data displayed. I wrote code to allow
edits:

Private Sub AllowEdits_Click()
Me.Form.AllowEdits = True
End Sub

But this obviously will not SAVE the changes since it is not directly
connected to the table or a recordset. Any ideas?
Thanks!!!

Private Sub SRC_CUST_NAME_DblClick(Cancel As Integer)
On Error GoTo Err_SRC_CUST_NAME_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmCustDetail"
DoCmd.OpenForm stDocName, , , stLinkCriteria
[Forms]![frmCustDetail]![SRC_CUST_NAME] = [Forms]![frmMain]!
[subCustomers]![SRC_CUST_NAME]
~
~
[Forms]![frmCustDetail]![PEP_POINT] = [Forms]![frmMain]![subCustomers]!
[PEP_POINT]
[Forms]![frmCustDetail]![PEP_CA_NAME] = [Forms]![frmMain]!
[subCustomers]![PEP_CA_NAME]
[Forms]![frmCustDetail]![PEP_CA_TYPE] = [Forms]![frmMain]!
[subCustomers]![PEP_CA_TYPE]
Exit_SRC_CUST_NAME_Click:
Exit Sub
Err_SRC_CUST_NAME_Click:
MsgBox Err.Description
Resume Exit_SRC_CUST_NAME_Click
End Sub
try running an update query based on your temp data

May 30 '07 #2
Baz
Why not just bind frmCustDetail to the table? The only tampering you would
need to do with your code which copies the values is to remove it or comment
it out.

"slinky" <ca***************@yahoo.comwrote in message
news:11**********************@q66g2000hsg.googlegr oups.com...
I have a form (in continuous form view) from which I choose a record
by double-clicking the SRC_CUST_NAME textbox whic opens another form
showing all the details of that record. I do this by having ALL the
fields (most of them hidden) transfer to the detail for through a
series of code lines below like: "[Forms]![frmCustDetail]![PEP_POINT]
= [Forms]![frmMain]![subCustomers]![PEP_POINT]" (see bottom of post).
This is working so well I hate to tamper with it but I'd like to be
able to edit the resulting data displayed. I wrote code to allow
edits:

Private Sub AllowEdits_Click()
Me.Form.AllowEdits = True
End Sub

But this obviously will not SAVE the changes since it is not directly
connected to the table or a recordset. Any ideas?
Thanks!!!
Private Sub SRC_CUST_NAME_DblClick(Cancel As Integer)
On Error GoTo Err_SRC_CUST_NAME_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmCustDetail"
DoCmd.OpenForm stDocName, , , stLinkCriteria
[Forms]![frmCustDetail]![SRC_CUST_NAME] = [Forms]![frmMain]!
[subCustomers]![SRC_CUST_NAME]
~
~
[Forms]![frmCustDetail]![PEP_POINT] = [Forms]![frmMain]![subCustomers]!
[PEP_POINT]
[Forms]![frmCustDetail]![PEP_CA_NAME] = [Forms]![frmMain]!
[subCustomers]![PEP_CA_NAME]
[Forms]![frmCustDetail]![PEP_CA_TYPE] = [Forms]![frmMain]!
[subCustomers]![PEP_CA_TYPE]
Exit_SRC_CUST_NAME_Click:
Exit Sub
Err_SRC_CUST_NAME_Click:
MsgBox Err.Description
Resume Exit_SRC_CUST_NAME_Click
End Sub

May 30 '07 #3

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

4
by: Tom | last post by:
I want to open a recordset object on an .asp page. When I open the recordset I would like to use a stored procedure that expects a parameter to be passed for the stored procedure. I will then use...
8
by: dmiller23462 | last post by:
My brain is nuked....Can anybody tell me right off the bat what is wrong with this code? Along with any glaring errors, please let me know the syntax to display a message (Response.Write would be...
4
by: Steve Jorgensen | last post by:
I'm restarting this thread with a different focus. The project I'm working on now id coming along and will be made to work, and it's too late to start over with a new strategy. Still, I'm not...
2
by: ThurstonHowl | last post by:
Hello, my task is the following: Input are tables with fields containing strings where the strings are actually delimited lists. For example, one field could contain 'AB|CD|EF|GH' I've...
4
by: BrianS | last post by:
What is the best strategy for dynamic loading private assemblies in asp.net? I understand, and have confirmed, that any dll placed in the app's /bin dir will get loaded on startup. This is not...
5
by: Hexman | last post by:
I've come up with an error which the solution eludes me. I get the error: >An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in HRTest.exe > >Additional...
7
by: MLH | last post by:
Here's a blurb cut from A97 HELP on BOF/EOF: When you open a Recordset object that contains at least one record, the first record is the current record and the BOF and EOF properties are False;...
7
by: Ryan | last post by:
I have a bit of a problem with regards an indexing strategy. Well, basically there is no indexing strategy on a set of data I have at work. Now, I didn't create the design as I would have allowed...
25
by: marcin.rzeznicki | last post by:
Hello everyone I've got a little problem with choosing the best decoding strategy for some nasty problem. I have to deal with very large files wich contain text encoded with various encodings....
0
BarryA
by: BarryA | last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
1
by: nemocccc | last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
1
by: Sonnysonu | last post by:
This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...
0
by: Hystou | last post by:
There are some requirements for setting up RAID: 1. The motherboard and BIOS support RAID configuration. 2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
0
marktang
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
0
by: Hystou | last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
0
Oralloy
by: Oralloy | last post by:
Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...
0
agi2029
by: agi2029 | last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...
0
isladogs
by: isladogs | last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.