Transfering data from record to record via command button 1

[WallT]

I am having a tough time with my limited knowledge of VB on transferring data to the next record. Here goes...

I have a subform that is set to "Single Form". I have a command button on that subform that is a basic DoCmd.GoToRecord , , acNewRec.

The subform is Locations for an Order. The subform will always have multiple locations, however, a lot of the times some of the data is the same in certain fields. I just want to transfer the data from fields 1 and 2 in location number 1, to fields 1 and 2 in location number 2.

I hope this makes sense. I figured out how to do it from one form to another, but not from one record to another...help...

 

[PHV]

In the Click event procedure of your button, before the GoToRecord call, set the DefaultValue property of the controls to their actual value.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[WallT]

ARe you saying to use the "Transfer Text" command?

 

[PHV]

No. Something like this:
Me![textbox1].DefaultValue = Me![textbox1].Value

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[WallT]

I tried the following and I am getting the old #Name? error

Me![cmbServiceAddress].DefaultValue = Me[cmbServiceAddress].Value
DoCmd.GoToRecord , , acNewRec
Me.cboServerID.SetFocus

 

[PHV]

Use the expression builder to avoid spelling issue.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[WallT]

Still getting the error appearing in the text box... #Name?

Here the whole thing in case I am missing something somewhere else...spelling is good.

Private Sub cmd_NewEntitySameLoc_Click()
On Error GoTo Err_cmd_NewEntitySameLoc_Click
Me.[cmbServiceAddress].DefaultValue = Me.[cmbServiceAddress].Value
DoCmd.GoToRecord , , acNewRec
Me.cboServerID.SetFocus
Exit_cmd_NewEntitySameLoc_Click:
Exit Sub
Err_cmd_NewEntitySameLoc_Click:
If Err.Number = 2105 Then
Exit Sub
Else
MsgBox Err.Description
Resume Exit_cmd_NewEntitySameLoc_Click
End If
End Sub

 

[PHV]

You may try this:

"'" & Me.[cmbServiceAddress].DefaultValue = Me.[cmbServiceAddress].Value & "'"

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[WallT]

I get a compile error on that one

 

[PHV]

Sorry for the typo :~/

Me.[cmbServiceAddress].DefaultValue = "'" & Me.[cmbServiceAddress].Value & "'"

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[WallT]

Bam!...awesome...thank you.

I am assuming that is for a text value...what if the text box was a numeric value?

 

[PHV]

Don't use quotes at all.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[WallT]

Ok, I am having to revisit here. I am having trouble with Nulls on this. If one of the fields I am transffering data from has no text, then the record wont save. I get the following error:

Field 'tblEntities.ServiceCity' cannot be a zero-length string.

tblEntities is obviously the table, but the ServiceCity is the field in the table. The text box on the form is txt_ServiceCity.

How can I handle the nulls on this? Am I going to have to do something like If Not(Is Null(Me.blah blah))Then transfer?