Seriously, I need ideas. Fields not transferring from table to table

A

Aaron

Two text fields are not transferring, even with a simple query instead
of written code, between two tables with identical formatting.

I have 2 temp tables, one for adding a record, a second for reviewing
all the updated records once the added record is inserted.

When I am in the add record form, the temp table accepts data entry
for all fields. I can go into the table and see that all fields are
taking the correct data.

When I run a query to insert that record from the add record temp
table, it doesn't transfer 2 text fields. Everything else transfers,
but not those 2 fields.

Please, I need ideas on what could be causing this. What could be the
problem?

The query works outside of the form. If I put data in those fields, it
transfers if I run the query independently.

It must be a setting, or something. I can't figure it out and I can't
find a similar situation on line. PLEASE HELP!

ANY ideas, even bad ones, are welcome. Again, PLEASE.

-Aaron
 
J

John Spencer

Have you made sure that the record is saved before you attempt the transfer?

Are you sure that the controls on the form are bound to the fields that you
expect to transfer? What is the control source of the two controls that
display the data that is not being transferred.

Hard to trouble shoot what we can't see. You might consider posting your code.


John Spencer
Access MVP 2002-2005, 2007-2010
The Hilltop Institute
University of Maryland Baltimore County
 
J

John W. Vinson

Two text fields are not transferring, even with a simple query instead
of written code, between two tables with identical formatting.

I have 2 temp tables, one for adding a record, a second for reviewing
all the updated records once the added record is inserted.

When I am in the add record form, the temp table accepts data entry
for all fields. I can go into the table and see that all fields are
taking the correct data.

When I run a query to insert that record from the add record temp
table, it doesn't transfer 2 text fields. Everything else transfers,
but not those 2 fields.

Please, I need ideas on what could be causing this. What could be the
problem?

The query works outside of the form. If I put data in those fields, it
transfers if I run the query independently.

It must be a setting, or something. I can't figure it out and I can't
find a similar situation on line. PLEASE HELP!

ANY ideas, even bad ones, are welcome. Again, PLEASE.

-Aaron
Click to expand...

Please post the SQL of your code and the code that runs your query. We can't
see it from here.
--

John W. Vinson [MVP]
Microsoft's replacements for these newsgroups:
http://social.msdn.microsoft.com/Forums/en-US/accessdev/
http://social.answers.microsoft.com/Forums/en-US/addbuz/
and see also http://www.utteraccess.com
 
A

Aaron

Have you made sure that the record is saved before you attempt the transfer?

Are you sure that the controls on the form are bound to the fields that you
expect to transfer?  What is the control source of the two controls that
display the data that is not being transferred.

Hard to trouble shoot what we can't see.  You might consider posting your code.
Click to expand...

OK, this is going to be annoying for you, but...form code follows.
Look for the update event for "Frame43", that is the Save and Close
button for this form:
*********
Option Compare Database

Private Sub AdminCode_AfterUpdate()
Text102 = AdminCode.Value
If UNIFORMED_SERVICES <> "" Then
Text88 = UNIFORMED_SERVICES
Else
Text88 = 0
End If
If FOREIGN_NATIONAL <> "" Then
Text89 = FOREIGN_NATIONAL
Else
Text89 = 0
End If
If FIRST_YEAR_ON_INVENTORY <> "" Then
Text90 = FIRST_YEAR_ON_INVENTORY
Else
Text90 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
End If
If TOTAL_FTE <> "" Then
Text91 = TOTAL_FTE
Else
Text91 = 10000
End If
Me.Refresh

End Sub

Private Sub AdminCode_GotFocus()
AdminCode.BackColor = RGB(255, 255, 0)

End Sub

Private Sub AdminCode_LostFocus()
AdminCode.BackColor = RGB(255, 255, 255)

End Sub

Private Sub AGY_BUR_AfterUpdate()
If UNIFORMED_SERVICES <> "" Then
Text88 = UNIFORMED_SERVICES
Else
Text88 = 0
End If
If FOREIGN_NATIONAL <> "" Then
Text89 = FOREIGN_NATIONAL
Else
Text89 = 0
End If
If FIRST_YEAR_ON_INVENTORY <> "" Then
Text90 = FIRST_YEAR_ON_INVENTORY
Else
Text90 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
End If
If TOTAL_FTE <> "" Then
Text91 = TOTAL_FTE
Else
Text91 = 10000
End If
Me.Refresh

End Sub

Private Sub AGY_BUR_GotFocus()
AGY_BUR.BackColor = RGB(255, 255, 0)
End Sub

Private Sub AGY_BUR_LostFocus()
AGY_BUR.BackColor = RGB(255, 255, 255)
End Sub

Private Sub BranchCode_AfterUpdate()
Text105 = BranchCode.Column(0)
If UNIFORMED_SERVICES <> "" Then
Text88 = UNIFORMED_SERVICES
Else
Text88 = 0
End If
If FOREIGN_NATIONAL <> "" Then
Text89 = FOREIGN_NATIONAL
Else
Text89 = 0
End If
If FIRST_YEAR_ON_INVENTORY <> "" Then
Text90 = FIRST_YEAR_ON_INVENTORY
Else
Text90 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
End If
If TOTAL_FTE <> "" Then
Text91 = TOTAL_FTE
Else
Text91 = 10000
End If
Me.Refresh
End Sub

Private Sub BranchCode_GotFocus()
BranchCode.BackColor = RGB(255, 255, 0)

End Sub

Private Sub BranchCode_LostFocus()
BranchCode.BackColor = RGB(255, 255, 255)

End Sub

Private Sub CenterCode_GotFocus()
CenterCode.BackColor = RGB(255, 255, 0)

End Sub

Private Sub CenterCode_LostFocus()
CenterCode.BackColor = RGB(255, 255, 255)

End Sub

Private Sub CITY_AfterUpdate()
If UNIFORMED_SERVICES <> "" Then
Text88 = UNIFORMED_SERVICES
Else
Text88 = 0
End If
If FOREIGN_NATIONAL <> "" Then
Text89 = FOREIGN_NATIONAL
Else
Text89 = 0
End If
If FIRST_YEAR_ON_INVENTORY <> "" Then
Text90 = FIRST_YEAR_ON_INVENTORY
Else
Text90 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
End If
If TOTAL_FTE <> "" Then
Text91 = TOTAL_FTE
Else
Text91 = 10000
End If
Me.STATE = CITY.Column(1)
Me.Refresh

End Sub

Private Sub CITY_GotFocus()
CITY.BackColor = RGB(255, 255, 0)
End Sub

Private Sub CITY_LostFocus()
CITY.BackColor = RGB(255, 255, 255)
End Sub

Private Sub COUNTRY_AfterUpdate()
If UNIFORMED_SERVICES <> "" Then
Text88 = UNIFORMED_SERVICES
Else
Text88 = 0
End If
If FOREIGN_NATIONAL <> "" Then
Text89 = FOREIGN_NATIONAL
Else
Text89 = 0
End If
If FIRST_YEAR_ON_INVENTORY <> "" Then
Text90 = FIRST_YEAR_ON_INVENTORY
Else
Text90 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
End If
If TOTAL_FTE <> "" Then
Text91 = TOTAL_FTE
Else
Text91 = 10000
End If
Me.Refresh

End Sub

Private Sub COUNTRY_GotFocus()
COUNTRY.BackColor = RGB(255, 255, 0)
End Sub

Private Sub COUNTRY_LostFocus()
COUNTRY.BackColor = RGB(255, 255, 255)
End Sub

Private Sub CURRENT_YEAR_INVENTORY_AfterUpdate()
If UNIFORMED_SERVICES <> "" Then
Text88 = UNIFORMED_SERVICES
Else
Text88 = 0
End If
If FOREIGN_NATIONAL <> "" Then
Text89 = FOREIGN_NATIONAL
Else
Text89 = 0
End If
If FIRST_YEAR_ON_INVENTORY <> "" Then
Text90 = FIRST_YEAR_ON_INVENTORY
Else
Text90 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
End If
If TOTAL_FTE <> "" Then
Text91 = TOTAL_FTE
Else
Text91 = 10000
End If
Me.Refresh

End Sub

Private Sub CURRENT_YEAR_INVENTORY_GotFocus()
CURRENT_YEAR_INVENTORY.BackColor = RGB(255, 255, 0)
End Sub

Private Sub CURRENT_YEAR_INVENTORY_LostFocus()
CURRENT_YEAR_INVENTORY.BackColor = RGB(255, 255, 255)
End Sub

Private Sub DivisionCode_AfterUpdate()
Text104 = DivisionCode.Column(0)
If UNIFORMED_SERVICES <> "" Then
Text88 = UNIFORMED_SERVICES
Else
Text88 = 0
End If
If FOREIGN_NATIONAL <> "" Then
Text89 = FOREIGN_NATIONAL
Else
Text89 = 0
End If
If FIRST_YEAR_ON_INVENTORY <> "" Then
Text90 = FIRST_YEAR_ON_INVENTORY
Else
Text90 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
End If
If TOTAL_FTE <> "" Then
Text91 = TOTAL_FTE
Else
Text91 = 10000
End If
Me.Refresh

End Sub

Private Sub DivisionCode_GotFocus()
DivisionCode.BackColor = RGB(255, 255, 0)

End Sub

Private Sub DivisionCode_LostFocus()
DivisionCode.BackColor = RGB(255, 255, 255)

End Sub

Private Sub FCT_CODE_AfterUpdate()
If UNIFORMED_SERVICES <> "" Then
Text88 = UNIFORMED_SERVICES
Else
Text88 = 0
End If
If FOREIGN_NATIONAL <> "" Then
Text89 = FOREIGN_NATIONAL
Else
Text89 = 0
End If
If FIRST_YEAR_ON_INVENTORY <> "" Then
Text90 = FIRST_YEAR_ON_INVENTORY
Else
Text90 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
End If
If TOTAL_FTE <> "" Then
Text91 = TOTAL_FTE
Else
Text91 = 10000
End If

Me.STATUS = FCT_CODE.Column(2)
Me.Refresh

End Sub

Private Sub FCT_CODE_GotFocus()
FCT_CODE.BackColor = RGB(255, 255, 0)
End Sub

Private Sub FCT_CODE_LostFocus()
FCT_CODE.BackColor = RGB(255, 255, 255)
End Sub

Private Sub FIRST_YEAR_ON_INVENTORY_AfterUpdate()
If UNIFORMED_SERVICES <> "" Then
Text88 = UNIFORMED_SERVICES
Else
Text88 = 0
End If
If FOREIGN_NATIONAL <> "" Then
Text89 = FOREIGN_NATIONAL
Else
Text89 = 0
End If
If FIRST_YEAR_ON_INVENTORY <> "" Then
Text90 = FIRST_YEAR_ON_INVENTORY
Else
Text90 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
End If
If TOTAL_FTE <> "" Then
Text91 = TOTAL_FTE
Else
Text91 = 10000
End If
Me.Refresh

End Sub

Private Sub FIRST_YEAR_ON_INVENTORY_GotFocus()
FIRST_YEAR_ON_INVENTORY.BackColor = RGB(255, 255, 0)
End Sub

Private Sub FIRST_YEAR_ON_INVENTORY_LostFocus()
FIRST_YEAR_ON_INVENTORY.BackColor = RGB(255, 255, 255)
End Sub

Private Sub FOREIGN_NATIONAL_AfterUpdate()
'If UNIFORMED_SERVICES <> "" Then
' Text88 = UNIFORMED_SERVICES
'Else
' Text88 = 0
'End If
If FOREIGN_NATIONAL <> "" Then
Text89 = FOREIGN_NATIONAL
Else
Text89 = 0
End If
If FIRST_YEAR_ON_INVENTORY <> "" Then
Text90 = FIRST_YEAR_ON_INVENTORY
Else
Text90 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
End If
If TOTAL_FTE <> "" Then
Text91 = TOTAL_FTE
Else
Text91 = 10000
End If
Me.Refresh

End Sub

Private Sub FOREIGN_NATIONAL_GotFocus()
FOREIGN_NATIONAL.BackColor = RGB(255, 255, 0)
End Sub

Private Sub FOREIGN_NATIONAL_LostFocus()
FOREIGN_NATIONAL.BackColor = RGB(255, 255, 255)
End Sub



Private Sub Form_Open(Cancel As Integer)
'COUNTRY = "US"
Me.Refresh
Me.Repaint
Text59 = DLookup("[FUNCTION]", "INVENTORY_UPDATE")
Text66 = DLookup("[OPDIV_OFFICE]", "INVENTORY_UPDATE")
Text68 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
Text90 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
Text88 = 0
Text89 = 0
Text91 = 10000
Me.AGY_BUR.SetFocus
Me.AGY_BUR.Value = Me.AGY_BUR.Column(0, 0)
Frame43 = 0
End Sub

Private Sub Frame43_AfterUpdate()
Select Case Frame43

*************************************
'This is the code that moves the data from the record source of this
form into the record source of the previous form. It is here that I
see the two fields from the record source of THIS form NOT transfer
into the other form's record source. I will write out the queries at
the end of this, but they are extremely basic. And they work, when not
used inside this form.
**************************************
Case 1

DoCmd.OpenQuery "MakeIGTempTable", acViewNormal

DoCmd.SetWarnings False

DoCmd.OpenQuery "IGIntoCommercial", acViewNormal

'DoCmd.RunSQL "INSERT INTO COMMERCIAL_DETAILED_TEMP SELECT
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.* " _
& "FROM INHERENTLY_GOVERNMENTAL_DETAILED_TEMP"

DoCmd.Close acForm, "ADD_INVENTORY_RECORD_COMMERCIAL_DETAILED"

DoCmd.RunSQL "DELETE * FROM INHERENTLY_GOVERNMENTAL_DETAILED_TEMP"

DoCmd.OpenForm "UPDATE_INVENTORY_COMMERCIAL_DETAILED", acNormal

End Select

End Sub

Private Sub PRIOR_YEAR_INVENTORY_AfterUpdate()
If UNIFORMED_SERVICES <> "" Then
Text88 = UNIFORMED_SERVICES
Else
Text88 = 0
End If
If FOREIGN_NATIONAL <> "" Then
Text89 = FOREIGN_NATIONAL
Else
Text89 = 0
End If
If FIRST_YEAR_ON_INVENTORY <> "" Then
Text90 = FIRST_YEAR_ON_INVENTORY
Else
Text90 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
End If
If TOTAL_FTE <> "" Then
Text91 = TOTAL_FTE
Else
Text91 = 10000
End If
Me.Refresh

End Sub

Private Sub PRIOR_YEAR_INVENTORY_GotFocus()
PRIOR_YEAR_INVENTORY.BackColor = RGB(255, 255, 0)
End Sub

Private Sub PRIOR_YEAR_INVENTORY_LostFocus()
PRIOR_YEAR_INVENTORY.BackColor = RGB(255, 255, 255)

End Sub

Private Sub CenterCode_AfterUpdate()
Text101 = CenterCode.Column(0)
If UNIFORMED_SERVICES <> "" Then
Text88 = UNIFORMED_SERVICES
Else
Text88 = 0
End If
If FOREIGN_NATIONAL <> "" Then
Text89 = FOREIGN_NATIONAL
Else
Text89 = 0
End If
If FIRST_YEAR_ON_INVENTORY <> "" Then
Text90 = FIRST_YEAR_ON_INVENTORY
Else
Text90 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
End If
If TOTAL_FTE <> "" Then
Text91 = TOTAL_FTE
Else
Text91 = 10000
End If
Me.Refresh

End Sub

Private Sub GroupCode_AfterUpdate()
Text103 = GroupCode.Column(0)
If UNIFORMED_SERVICES <> "" Then
Text88 = UNIFORMED_SERVICES
Else
Text88 = 0
End If
If FOREIGN_NATIONAL <> "" Then
Text89 = FOREIGN_NATIONAL
Else
Text89 = 0
End If
If FIRST_YEAR_ON_INVENTORY <> "" Then
Text90 = FIRST_YEAR_ON_INVENTORY
Else
Text90 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
End If
If TOTAL_FTE <> "" Then
Text91 = TOTAL_FTE
Else
Text91 = 10000
End If
Me.Refresh
End Sub

Private Sub GroupCode_GotFocus()
GroupCode.BackColor = RGB(255, 255, 0)

End Sub

Private Sub GroupCode_LostFocus()
GroupCode.BackColor = RGB(255, 255, 255)

End Sub

Private Sub REASON_CODE_AfterUpdate()
If UNIFORMED_SERVICES <> "" Then
Text88 = UNIFORMED_SERVICES
Else
Text88 = 0
End If
If FOREIGN_NATIONAL <> "" Then
Text89 = FOREIGN_NATIONAL
Else
Text89 = 0
End If
If FIRST_YEAR_ON_INVENTORY <> "" Then
Text90 = FIRST_YEAR_ON_INVENTORY
Else
Text90 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
End If
If TOTAL_FTE <> "" Then
Text91 = TOTAL_FTE
Else
Text91 = 10000
End If
Me.Refresh

End Sub

Private Sub REASON_CODE_GotFocus()
REASON_CODE.BackColor = RGB(255, 255, 0)
End Sub

Private Sub REASON_CODE_LostFocus()
REASON_CODE.BackColor = RGB(255, 255, 255)
End Sub

Private Sub STATE_AfterUpdate()
If UNIFORMED_SERVICES <> "" Then
Text88 = UNIFORMED_SERVICES
Else
Text88 = 0
End If
If FOREIGN_NATIONAL <> "" Then
Text89 = FOREIGN_NATIONAL
Else
Text89 = 0
End If
If FIRST_YEAR_ON_INVENTORY <> "" Then
Text90 = FIRST_YEAR_ON_INVENTORY
Else
Text90 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
End If
If TOTAL_FTE <> "" Then
Text91 = TOTAL_FTE
Else
Text91 = 10000
End If
Me.Refresh

End Sub

Private Sub STATE_GotFocus()
STATE.BackColor = RGB(255, 255, 0)
End Sub

Private Sub STATE_LostFocus()
STATE.BackColor = RGB(255, 255, 255)
End Sub

Private Sub STATUS_AfterUpdate()
If UNIFORMED_SERVICES <> "" Then
Text88 = UNIFORMED_SERVICES
Else
Text88 = 0
End If
If FOREIGN_NATIONAL <> "" Then
Text89 = FOREIGN_NATIONAL
Else
Text89 = 0
End If
If FIRST_YEAR_ON_INVENTORY <> "" Then
Text90 = FIRST_YEAR_ON_INVENTORY
Else
Text90 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
End If
If TOTAL_FTE <> "" Then
Text91 = TOTAL_FTE
Else
Text91 = 10000
End If
Me.Refresh

End Sub

Private Sub STATUS_GotFocus()
STATUS.BackColor = RGB(255, 255, 0)

End Sub

Private Sub STATUS_LostFocus()
STATUS.BackColor = RGB(255, 255, 255)

End Sub

Private Sub TOTAL_FTE_AfterUpdate()
If UNIFORMED_SERVICES <> "" Then
Text88 = UNIFORMED_SERVICES
Else
Text88 = 0
End If
If FOREIGN_NATIONAL <> "" Then
Text89 = FOREIGN_NATIONAL
Else
Text89 = 0
End If
If FIRST_YEAR_ON_INVENTORY <> "" Then
Text90 = FIRST_YEAR_ON_INVENTORY
Else
Text90 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
End If
CURRENT_YEAR_INVENTORY = TOTAL_FTE
If TOTAL_FTE <> "" Then
Text91 = TOTAL_FTE
Else
Text91 = 10000
End If
Me.Refresh

End Sub

Private Sub TOTAL_FTE_GotFocus()
TOTAL_FTE.BackColor = RGB(255, 255, 0)
End Sub

Private Sub TOTAL_FTE_LostFocus()
TOTAL_FTE.BackColor = RGB(255, 255, 255)
End Sub

Private Sub UNIFORMED_SERVICES_AfterUpdate()
If UNIFORMED_SERVICES <> "" Then
Text88 = UNIFORMED_SERVICES
Else
Text88 = 0
End If
'If FOREIGN_NATIONAL <> "" Then
' Text89 = FOREIGN_NATIONAL
'Else
' Text89 = 0
'End If
If FIRST_YEAR_ON_INVENTORY <> "" Then
Text90 = FIRST_YEAR_ON_INVENTORY
Else
Text90 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
End If
If TOTAL_FTE <> "" Then
Text91 = TOTAL_FTE
Else
Text91 = 10000
End If
Me.Refresh

End Sub

Private Sub UNIFORMED_SERVICES_GotFocus()
UNIFORMED_SERVICES.BackColor = RGB(255, 255, 0)
End Sub

Private Sub UNIFORMED_SERVICES_LostFocus()
UNIFORMED_SERVICES.BackColor = RGB(255, 255, 255)
End Sub

Private Sub YEAR_COST_COMPARISON_AfterUpdate()
If UNIFORMED_SERVICES <> "" Then
Text88 = UNIFORMED_SERVICES
Else
Text88 = 0
End If
If FOREIGN_NATIONAL <> "" Then
Text89 = FOREIGN_NATIONAL
Else
Text89 = 0
End If
If FIRST_YEAR_ON_INVENTORY <> "" Then
Text90 = FIRST_YEAR_ON_INVENTORY
Else
Text90 = DLookup("[INVENTORY_YEAR]", "INVENTORY_UPDATE")
End If
If TOTAL_FTE <> "" Then
Text91 = TOTAL_FTE
Else
Text91 = 10000
End If
Me.Refresh

End Sub

Private Sub YEAR_COST_COMPARISON_Click()
MsgBox "WARNING! Do not enter any value in this box unless there has
been a Cost Comparison performed. Click on a different box to
continue, after clicking OK"

End Sub

Private Sub YEAR_COST_COMPARISON_GotFocus()
YEAR_COST_COMPARISON.BackColor = RGB(255, 255, 0)
MsgBox "WARNING! Do not enter any value in this box unless there has
been a Cost Comparison performed. Click on a different box to
continue, after clicking OK"
End Sub

Private Sub YEAR_COST_COMPARISON_LostFocus()
YEAR_COST_COMPARISON.BackColor = RGB(255, 255, 255)
End Sub


Private Sub Command86_Click()
Dim objApp As Object
Dim location As String

location = Application.CurrentProject.Path & "\PIRTUserGuide.doc"
Set objApp = CreateObject("Word.Application")
objApp.Visible = True
objApp.Documents.Open location

End Sub
Private Sub Command87_Click()
DoCmd.SetWarnings False

DoCmd.Close acForm, "ADD_INVENTORY_RECORD_COMMERCIAL_DETAILED"

DoCmd.RunSQL "DELETE * FROM INHERENTLY_GOVERNMENTAL_DETAILED_TEMP"

DoCmd.OpenForm "UPDATE_INVENTORY_COMMERCIAL_DETAILED", acNormal

End Sub
**********
The query I wrote to transfer the data is basic, it just has all of
the fields, insert into from one table to the other. It works, when I
use it outside of the form.

*****************
INSERT INTO COMMERCIAL_DETAILED_TEMP ( SEQ_NO, AGY_BUR, OPDIV_OFFICE,
STATE, CITY, COUNTRY, TOTAL_FTE, FCT_CODE, STATUS, REASON_CODE,
FOREIGN_NATIONAL, UNIFORMED_SERVICES, FIRST_YEAR_ON_INVENTORY,
YEAR_COST_COMPARISON, CURRENT_YEAR_INVENTORY, PRIOR_YEAR_INVENTORY,
ATTENTION, INVENTORY_YEAR, RCD_SELECT, DELETED,
Office_Center_Consortium_Org_Symbol, Base_Admin_Code,
Group_Staff_Org_Symbol, Division_Org_Symbol, Branch_Org_Symbol,
Center_Office_Consortium_Name, Group_Staff_Region_Name,
Division_Staff_Name, Branch_Name, Main_Office_Group_Division_FTE,
Position_Type, FTE_Ceiling, Notes )
SELECT INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.SEQ_NO,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.AGY_BUR,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.OPDIV_OFFICE,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.STATE,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.CITY,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.COUNTRY,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.TOTAL_FTE,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.FCT_CODE,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.STATUS,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.REASON_CODE,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.FOREIGN_NATIONAL,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.UNIFORMED_SERVICES,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.FIRST_YEAR_ON_INVENTORY,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.YEAR_COST_COMPARISON,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.CURRENT_YEAR_INVENTORY,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.PRIOR_YEAR_INVENTORY,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.ATTENTION,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.INVENTORY_YEAR,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.RCD_SELECT,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.DELETED,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.Office_Center_Consortium_Org_Symbol,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.Base_Admin_Code,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.Group_Staff_Org_Symbol,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.Division_Org_Symbol,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.Branch_Org_Symbol,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.Center_Office_Consortium_Name,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.Group_Staff_Region_Name,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.Division_Staff_Name,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.Branch_Name,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.Main_Office_Group_Division_FTE,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.Position_Type,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.FTE_Ceiling,
INHERENTLY_GOVERNMENTAL_DETAILED_TEMP.Notes
FROM INHERENTLY_GOVERNMENTAL_DETAILED_TEMP;

*********
The two fields that do not transfer are "Position_Type" and "Notes".
They are both text fields, and I didn't change any attributes other
than length. I wrote the query when I first noticed the issue of those
fields not transferring.

The tables are copies of one another, so there is no difference in
formatting.

I hope this helps you to help me...if I need to look into anything
else about my forms or tables please let me know. Thanks!

-Aaron
 
A

Aaron

Please post the SQL of your code and the code that runs your query. We can't
see it from here.
Click to expand...

Just noticed you guys responded very quickly, thank you for that as
well! I didn't expect a reply on the same day so I didn't check back
here. I have posted the code now...I hope it contains something
helpful.

-Aaron
 
A

Aaron

Have you made sure that the record is saved before you attempt the transfer?

Are you sure that the controls on the form are bound to the fields that you
expect to transfer?  What is the control source of the two controls that
display the data that is not being transferred.

Hard to trouble shoot what we can't see.  You might consider posting your code.

John Spencer
Access MVP 2002-2005, 2007-2010
The Hilltop Institute
University of Maryland Baltimore County
Click to expand...

Wow, never mind! Experimenting today, trying to make the form anew,
and I discovered that I had to advance to a new record before the
record source would be fully updated. So, I decided I need to put an
After Update event on those fields of "me.refresh", as with the other
fields. Now it works! So simple... I guess it automatically refreshed
whenever I went to look at the record source table to see if my data
was in there. The forms stay on top, so I have to go to design view
before I can look at tables. And so, the fields were inserted when I
did that, but not when the code ran without interruption!

-Aaron
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Split form 0
Need some PWA help 0
Create a chart from a table in word thats dynamic 0
Consolidation Table from Different Excel Tabs with Different Format 1
Format column widths from one table to a separate table on same page 1
Dealing with a Pivot Table (when I don't want to) 0
Adding data to MS Access from csv file 0
Some mail merge fields not pulling into document 2

Top