Automatic Insert....Works, but have to cancel to change fields.

[BigC666]

This is the code I am using for the form.

Private Sub Thumb_Click()

'Automatic insert
On Error GoTo Err_Thumb_Click

RunCommand acCmdInsertObject

Exit_Thumb_Click:
Exit Sub

Err_Thumb_Click:

Const conErrDoCmdCancelled = 2501

If (Err = conErrDoCmdCancelled) Then
Resume Exit_Thumb_Click
Else
MsgBox Err.Description
Resume Exit_Thumb_Click
End If

End Sub

The problem is that after you insert an object and try to move onto anything else, the insert object dialog pops up again. Then after you cancel the second instance everything's happy! What am I missing here?

 

[hermanlaksko]

me!Thumb.requery ?
Not sure but could be it.

Herman

 

[BigC666]

Allright this may sound like a stupid question....But where do I put it? Grin. I am a novice at this, pretty much feeling my way blindly along. Thanks for the tip though.

 

[hermanlaksko]

RunCommand acCmdInsertObject 'Your code
me!Thumb.requery 'My code
Exit_Thumb_Click: 'Your code
Exit Sub
Herman

 

[BigC666]

Now it gives me an error message. Says I must save the field before I requery. Thoughts?

 

[mrf1xa]

You could try:

RunCommand acCmdInsertObject 'Your code
RunCommand acCmdSave
me!Thumb.requery 'My code
Exit_Thumb_Click: 'Your code
Exit Sub

HTH
Nigel
Didn't someone say work is supposed to be fun? They didn't have computers then I guess....

 

[BigC666]

That didn't do it either. Even putting the acCmdSave in there you still get the same error. I have tried it in several different places with the same or worse errors. Any more thoughts? Grin. I am still digging.