Using FindNum after Undo

[rgrantz]

I have code set in BeforeUpdate to check for the existence of an existing
record, tell the user the record exists, and then go to that record. The
code follows:

Dim PSNumFind As String
PSNumFind = Me.PSNum
If (DCount("*", "KitOrders", "[PSNum]=""" & Me.PSNum & """") > 0) Then
MsgBox "That Packing Slip already Entered!"
Me.Undo
DoCmd.FindRecord PSNumFind
End If

I was getting a bunch of errors about setting focus and not being able to
reference field properties/data for the findrecord function when the control
is disabled, and also not being able to leave the record because that
field's required property i set to true. I thought that setting a variable
to the control's contents would do the trick (using the variable as the
criteria string rather than the control's contents), but I now get error #
2137 ("You can't use Find/Replace Now") at the FindRecord line.

I've made msgboxes that shw the value of PSNumFind at the END of this
procedure, and it IS correct and holding the value in PSNum. What can I do
to get this thing to go to the record that exists based on the value in
PSNum?

Possibly a clue as to problem: It smetimes works, but then if the form is
closed and then reopened, I start getting the errors again when entering new
(existing) record, and I notice that in the Filter property of the form, it
is set to [PSNum] = ". When I clear this, it works again until the form
closed and opened again, and an exiusting PSNum is entered in a new record.

Thanks for reading, and Please Help!

 

[rgrantz]

I haven't slept in a while working on this thing, folks.

An addendum: I notice that when this form is entered by coming from the
previous menu (just a button that opens the form at new record), if a record
exists for the data put into PSNum as the first entry, THAT's when this
thing doesn't work. If I end the sub, go back to the form, and use the
button on the form itelse to go to a new record (rather than having come
from the previous form), then this Warning and finding the existing record
thing works fine.


-- Cose from PREVIOUS menu form:

On Error GoTo Err_Command0_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmKitOrders"
DoCmd.Close
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd

Exit_Command0_Click:
Exit Sub

Err_Command0_Click:
MsgBox Err.Description & Err.Number
Resume Exit_Command0_Click


-- Code on THIS form's "Add New" button:

On Error GoTo Err_Command10_Click


DoCmd.GoToRecord , , acNewRec
Me.PSNum.SetFocus

Exit_Command10_Click:
Exit Sub

Err_Command10_Click:
MsgBox Err.Description
Resume Exit_Command10_Click


-- Code on the PSNum BeforeUpdate event (which checks for existing record):

Dim PSNumFind As String
PSNumFind = Me.PSNum
If (DCount("*", "KitOrders", "[PSNum]=""" & Me.PSNum & """") > 0) Then
MsgBox "That Packing Slip already Entered!"
Cancel = True
'Me.Undo
Cancel = True
MsgBox PSNumFind & " - " & Me.FilterOn & " Focus: " &
Screen.ActiveControl
Me.Undo
DoCmd.FindRecord PSNumFind
End If

....Obviously, I added the 2nd msgbox just to see that the values were being
saved, what the filter was set to, etc. when the error occurs


ANY help is greatly appreciated, folks...I'm almost done with this
thrice-accursed thing!!

I have code set in BeforeUpdate to check for the existence of an existing
record, tell the user the record exists, and then go to that record. The
code follows:

Dim PSNumFind As String
PSNumFind = Me.PSNum
If (DCount("*", "KitOrders", "[PSNum]=""" & Me.PSNum & """") > 0) Then
MsgBox "That Packing Slip already Entered!"
Me.Undo
DoCmd.FindRecord PSNumFind
End If

I was getting a bunch of errors about setting focus and not being able to
reference field properties/data for the findrecord function when the control
is disabled, and also not being able to leave the record because that
field's required property i set to true. I thought that setting a variable
to the control's contents would do the trick (using the variable as the
criteria string rather than the control's contents), but I now get error #
2137 ("You can't use Find/Replace Now") at the FindRecord line.

I've made msgboxes that shw the value of PSNumFind at the END of this
procedure, and it IS correct and holding the value in PSNum. What can I do
to get this thing to go to the record that exists based on the value in
PSNum?

Possibly a clue as to problem: It smetimes works, but then if the form is
closed and then reopened, I start getting the errors again when entering new
(existing) record, and I notice that in the Filter property of the form, it
is set to [PSNum] = ". When I clear this, it works again until the form
closed and opened again, and an exiusting PSNum is entered in a new record.

Thanks for reading, and Please Help!