Last record problem, is it really the last record?

G

Guest

I have this code on a button that when pressed copies the data from the field
'run_waypoint' (based on a combo box) from each record on the source form to
a set of sequential fields [GetRound_#] on the target form. All works ok,
except that the code always goes one extra step and copies the "," comma from
the last field string. It's as if the last source record isn't really what it
seems...


I have tried using these two code snippets to register either the end of
records or the last empty field, but neither method seems to stop this
happening?, can someone help me solve this problem? What am I doing wrong?

If Me.Recordset.EOF = True Then
MsgBox "cannot go to next record"
Else
DoCmd.GoToRecord , , acNext
End If



If Me.CurrentRecord < Me.Recordset.RecordCount Then DoCmd.GoToRecord , ,
acNext


End If




MY CODE



Forms.frm_Runs.[frm_Getround_MapMaker].Form.[GetRound_1] = Me.Run_waypoint
& ", " & Me.Postcode

If Me.Recordset.EOF = True Then
MsgBox "cannot go to next record"
Else
DoCmd.GoToRecord , , acNext
End If



Forms.frm_Runs.[frm_Getround_MapMaker].Form.[GetRound_2] = Me.Run_waypoint
& ", " & Me.Postcode

If Me.Recordset.EOF = True Then
MsgBox "cannot go to next record"
Else
DoCmd.GoToRecord , , acNext
End If

Forms.frm_Runs.[frm_Getround_MapMaker].Form.[GetRound_3] = Me.Run_waypoint
& ", " & Me.Postcode

If Me.Recordset.EOF = True Then
MsgBox "cannot go to next record"
Else
DoCmd.GoToRecord , , acNext
End If



Forms.frm_Runs.[frm_Getround_MapMaker].Form.[GetRound_4] =
Me.Run_waypoint & ", " & Me.Postcode

If Me.Recordset.EOF = True Then
MsgBox "cannot go to next record"
Else
DoCmd.GoToRecord , , acNext
End If



Forms.frm_Runs.[frm_Getround_MapMaker].Form.[GetRound_5] = Me.Run_waypoint
& ", " & Me.Postcode

If Me.Recordset.EOF = True Then
MsgBox "cannot go to next record"
Else
DoCmd.GoToRecord , , acNext
End If
 
G

Guest

I HAVE NOW SOLVED THIS PROBLEM...

The answer was to keep it simple and rewrite the code:

If IsNull(Me.[Run_waypoint]) Then
End
Else
Forms.frm_Runs.[frm_Getround_MapMaker].Form.[GetRound_1] = Me.Run_waypoint &
", " & Me.Postcode
DoCmd.GoToRecord , , acNext
End If


If IsNull(Me.[Run_waypoint]) Then
'MsgBox "TEST cannot go to next record"
End
Else
Forms.frm_Runs.[frm_Getround_MapMaker].Form.[GetRound_2] = Me.Run_waypoint &
", " & Me.Postcode
DoCmd.GoToRecord , , acNext
End If


If IsNull(Me.[Run_waypoint]) Then
'MsgBox "TEST cannot go to next record"
End
Else
Forms.frm_Runs.[frm_Getround_MapMaker].Form.[GetRound_3] = Me.Run_waypoint &
", " & Me.Postcode
DoCmd.GoToRecord , , acNext
End If

If IsNull(Me.[Run_waypoint]) Then
'MsgBox "TEST cannot go to next record"
End
Else
Forms.frm_Runs.[frm_Getround_MapMaker].Form.[GetRound_4] = Me.Run_waypoint &
", " & Me.Postcode
DoCmd.GoToRecord , , acNext
End If

efandango said:
I have this code on a button that when pressed copies the data from the field
'run_waypoint' (based on a combo box) from each record on the source form to
a set of sequential fields [GetRound_#] on the target form. All works ok,
except that the code always goes one extra step and copies the "," comma from
the last field string. It's as if the last source record isn't really what it
seems...


I have tried using these two code snippets to register either the end of
records or the last empty field, but neither method seems to stop this
happening?, can someone help me solve this problem? What am I doing wrong?

If Me.Recordset.EOF = True Then
MsgBox "cannot go to next record"
Else
DoCmd.GoToRecord , , acNext
End If



If Me.CurrentRecord < Me.Recordset.RecordCount Then DoCmd.GoToRecord , ,
acNext


End If




MY CODE



Forms.frm_Runs.[frm_Getround_MapMaker].Form.[GetRound_1] = Me.Run_waypoint
& ", " & Me.Postcode

If Me.Recordset.EOF = True Then
MsgBox "cannot go to next record"
Else
DoCmd.GoToRecord , , acNext
End If



Forms.frm_Runs.[frm_Getround_MapMaker].Form.[GetRound_2] = Me.Run_waypoint
& ", " & Me.Postcode

If Me.Recordset.EOF = True Then
MsgBox "cannot go to next record"
Else
DoCmd.GoToRecord , , acNext
End If

Forms.frm_Runs.[frm_Getround_MapMaker].Form.[GetRound_3] = Me.Run_waypoint
& ", " & Me.Postcode

If Me.Recordset.EOF = True Then
MsgBox "cannot go to next record"
Else
DoCmd.GoToRecord , , acNext
End If



Forms.frm_Runs.[frm_Getround_MapMaker].Form.[GetRound_4] =
Me.Run_waypoint & ", " & Me.Postcode

If Me.Recordset.EOF = True Then
MsgBox "cannot go to next record"
Else
DoCmd.GoToRecord , , acNext
End If



Forms.frm_Runs.[frm_Getround_MapMaker].Form.[GetRound_5] = Me.Run_waypoint
& ", " & Me.Postcode

If Me.Recordset.EOF = True Then
MsgBox "cannot go to next record"
Else
DoCmd.GoToRecord , , acNext
End If
Click to expand...
 

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

how do I add a do until loop to this code? 2
Copying a sequence of records with a loop - Help 5
You can't go to the specified record error 1
how do I put Dev Ashish's timer into my loop? 1
Trick If, then, Else Help needed... 7
"You can't go to the specified record." Error Code 2105 3
Repair code for acNext if there is no next record 6
Subform Navigation 2

Top