Update Index Method in Subform

J

Jaybird

I have a form with several subforms on it. Because the table relationships
are required to be a certain way, I have had to code in a method for synching
the records via the form. The code is below:

Private Sub Form_Current()
Dim Response As Variant
On Error Resume Next

If IsNull(Me.INVNUM) Then
Me.INVNUM = Format(DMax("Left([INVNUM],5)", "HDRPLAT") + 1, "00000") & "A"
Response = MsgBox("Is this Invoice Number what you want?", vbOKCancel)
If Response = vbCancel Then
Me.Undo
Exit Sub
End If
Response = acDataErrContinue
Me.Parent.InvoiceNumber = INVNUM
End If

End Sub

It works fine at creating indexes that are in synch with existing records,
but it fails to provide a method for canceling the operation. The Me.Undo
method I'm using now creates empty strings where the indexes should go. So,
if that method doesn't work reliably, does anyone have any suggestions for a
different technique?
 

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

Dynamic Naming of Form Button 3
Debugging... GoToControl, SetValue, ValidationRule error? 4
Subform: record select form other subform 23
Supress delete dialog on another Table? 2
Not in list warning 2
Not in list warning 2
Run code if record does or does not exist for value entered in for 1
MsgBox shown in background in respect to the window application 1

Top