Help with writing to a linked table

[troy_lee]

I have a linked table (two primary keys: one coming from Me.txtRMA#
and the other is an Autonumber) that I am writing to from an unbound
form. Please review my code and tell me what is wrong with it. I don't
get any errors and no data is written to the table. It doesn't do
anything. Thanks for the help

Private Sub cmdSubmit_Click()
On Error GoTo Submit_Click_Err
Dim rstEvalForm As Recordset

'Set the variable by opening the Table: tblRMAEval.
Set rstEvalForm = CurrentDb.OpenRecordset("tblRMAEval", dbOpenDynaset)
With rstEvalForm
'Add a new record to the end of the Recordset Object.
.AddNew
![idsRMA#] = Me.[txtRMA#]
![dtmDate] = Me.cboEvalDate
![chrTech] = Me.cboTechName
![blnLooseHardwareCheck] = Me.chkHardware
![blnWiringConnectionsCheck] = Me.chkWiring
![blnOpticsCheck] = Me.chkOptical
![chrVisualComments] = Me.txtVisualComments
![blnShortsCheck] = Me.chkShorts
![chrShotsCount] = Me.txtShots
![intInputE] = Me.txtInputE
![intDoubleE] = Me.txtDoubleE
![intPFNE] = Me.txtPFNE
![intSCRE] = Me.txtSCRE
![chrPowerComments] = Me.txtPowerComments
![blnLaserFire] = Me.chkFired
![int10ShotAvg] = Me.txt10Shot
![intPW] = Me.txtPW
![blnATREnergy] = Me.chkATR
![blnGUITest] = Me.chkGUI
![chrLaserComments] = Me.txtLaserComments
![intFirstTargetActual] = Me.txtFirstBIT
![intLastTargetActual] = Me.txtLastBIT
.Update
End With
'Close the recordset and set it to nothing.
rstEvalForm.Close
Set rstEvalForm = Nothing

cmdSubmit_Click_Exit:
ExitSub
cmdSubmit_Click_Err:
MsgBox Err.Description
Resume cmdSubmit_Click_Err
End Sub

Thanks in advance.

Troy Lee

[Keith Wilby]

<tr******@comcast.netwrote in message
news:31**********************************@a70g2000 hsh.googlegroups.com...

![idsRMA#] = Me.[txtRMA#]

![idsRMA#] = Me.txtRMA#

Maybe? Not sure that using # in a field name is a good thing.

Regards,
Keith.
www.keithwilby.com

[Bruce]

On Jul 30, 7:13*am, [e-mail] wrote:

I have a linked table (two primary keys: one coming from Me.txtRMA#
and the other is an Autonumber) that I am writing to from an unbound
form. Please review my code and tell me what is wrong with it. I don't
get any errors and no data is written to the table. It doesn't do
anything. Thanks for the help

Private Sub cmdSubmit_Click()
On Error GoTo Submit_Click_Err
Dim rstEvalForm As Recordset

'Set the variable by opening the Table: tblRMAEval.
Set rstEvalForm = CurrentDb.OpenRecordset("tblRMAEval", dbOpenDynaset)
* * With rstEvalForm
* * * * 'Add a new record to the end of the Recordset Object.
* * * * .AddNew
* * * * ![idsRMA#] = Me.[txtRMA#]
* * * * ![dtmDate] = Me.cboEvalDate
* * * * ![chrTech] = Me.cboTechName
* * * * ![blnLooseHardwareCheck] = Me.chkHardware
* * * * ![blnWiringConnectionsCheck] = Me.chkWiring
* * * * ![blnOpticsCheck] = Me.chkOptical
* * * * ![chrVisualComments] = Me.txtVisualComments
* * * * ![blnShortsCheck] = Me.chkShorts
* * * * ![chrShotsCount] = Me.txtShots
* * * * ![intInputE] = Me.txtInputE
* * * * ![intDoubleE] = Me.txtDoubleE
* * * * ![intPFNE] = Me.txtPFNE
* * * * ![intSCRE] = Me.txtSCRE
* * * * ![chrPowerComments] = Me.txtPowerComments
* * * * ![blnLaserFire] = Me.chkFired
* * * * ![int10ShotAvg] = Me.txt10Shot
* * * * ![intPW] = Me.txtPW
* * * * ![blnATREnergy] = Me.chkATR
* * * * ![blnGUITest] = Me.chkGUI
* * * * ![chrLaserComments] = Me.txtLaserComments
* * * * ![intFirstTargetActual] = Me.txtFirstBIT
* * * * ![intLastTargetActual] = Me.txtLastBIT
* * * * .Update
* * End With
'Close the recordset and set it to nothing.
rstEvalForm.Close
Set rstEvalForm = Nothing

cmdSubmit_Click_Exit:
* * ExitSub
cmdSubmit_Click_Err:
* * MsgBox Err.Description
* * Resume cmdSubmit_Click_Err
End Sub

Thanks in advance.

Troy Lee

I know this code isn't exactly as you are running it because you'd get
a compile error saying "label not defined". Your 'On Error' statement
points to a non-existent line label. There is no "Submit_Click_Err"
line, but there is a "cmdSubmit_Click_Err" line. After that, your
Resume will send you into an infinite loop (you probably meant to say
"resume cmdSubmit_Click_Exit"

Bruce

[troy_lee]

On Jul 30, 1:07 pm, Bruce <[e-mail]:

On Jul 30, 7:13 am, [e-mail] wrote:

I have a linked table (two primary keys: one coming from Me.txtRMA#
and the other is an Autonumber) that I am writing to from an unbound
form. Please review my code and tell me what is wrong with it. I don't
get any errors and no data is written to the table. It doesn't do
anything. Thanks for the help

Private Sub cmdSubmit_Click()
On Error GoTo Submit_Click_Err
Dim rstEvalForm As Recordset

'Set the variable by opening the Table: tblRMAEval.
Set rstEvalForm = CurrentDb.OpenRecordset("tblRMAEval", dbOpenDynaset)
With rstEvalForm
'Add a new record to the end of the Recordset Object.
.AddNew
![idsRMA#] = Me.[txtRMA#]
![dtmDate] = Me.cboEvalDate
![chrTech] = Me.cboTechName
![blnLooseHardwareCheck] = Me.chkHardware
![blnWiringConnectionsCheck] = Me.chkWiring
![blnOpticsCheck] = Me.chkOptical
![chrVisualComments] = Me.txtVisualComments
![blnShortsCheck] = Me.chkShorts
![chrShotsCount] = Me.txtShots
![intInputE] = Me.txtInputE
![intDoubleE] = Me.txtDoubleE
![intPFNE] = Me.txtPFNE
![intSCRE] = Me.txtSCRE
![chrPowerComments] = Me.txtPowerComments
![blnLaserFire] = Me.chkFired
![int10ShotAvg] = Me.txt10Shot
![intPW] = Me.txtPW
![blnATREnergy] = Me.chkATR
![blnGUITest] = Me.chkGUI
![chrLaserComments] = Me.txtLaserComments
![intFirstTargetActual] = Me.txtFirstBIT
![intLastTargetActual] = Me.txtLastBIT
.Update
End With
'Close the recordset and set it to nothing.
rstEvalForm.Close
Set rstEvalForm = Nothing

cmdSubmit_Click_Exit:
ExitSub
cmdSubmit_Click_Err:
MsgBox Err.Description
Resume cmdSubmit_Click_Err
End Sub

Thanks in advance.

Troy Lee

I know this code isn't exactly as you are running it because you'd get
a compile error saying "label not defined". Your 'On Error' statement
points to a non-existent line label. There is no "Submit_Click_Err"
line, but there is a "cmdSubmit_Click_Err" line. After that, your
Resume will send you into an infinite loop (you probably meant to say
"resume cmdSubmit_Click_Exit"

Bruce

Thank you. Good catch. I will give it a try.

Troy