Dropdown command causes Error 3021 No current record

[crazytrain]

Novice struggling to troubleshoot some code and looking for help. I have a form "Remake Form" and in the BeforeUpdate Event I have code to validate if a combo box is empty. It worked until I tried to add code to dropdown the combo box.

Private Sub Form_BeforeUpdate(Cancel As Integer)

If Len(Me.PlantLocationBox & vbNullString) = 0 Then
        MsgBox "Please enter the missing info"
        Cancel = True
            Me.CustomerNameButton.SetFocus
            Me.PlantLocationBox.SetFocus
            Me.PlantLocationBox.Dropdown
        Exit Sub
    End If
End Sub

So if the PlantLocationBox is blank when I try to close the form, the message box pops up. I click OK and the command moves the focus to a field above the combo box (is this the correct way to get to the top of the form?). I then set the focus to the PlantLocationBox combo box. That works great, but if I add code to dropdown I get error 3021: No current record.

What am I doing wrong? What's interesting to me is if I OK the error, and just try to save again, the message box validation pops up again. If I click OK a second time, the command works correctly, and the dropdown opens.

[Welshgasman]

Do not know the reason, but no need to set focus to another control first.

[crazytrain]

Do not know the reason, but no need to set focus to another control first.

If I don't set it to a control at the top of the page first, then then the screen just goes to the combo box. I wanted the form scroll all the way to the top. This was the only way I could figure out to get it close to the top so the user sees the whole top of the form and not just the top of the combo box.

[Micron]

Hard to troubleshoot interactions with out seeing them. I suggest that you copy db, compact it, zip it and post here. You can remove objects if they're not relevant (just make sure you can replicate the problem in the copy db first). Let us know what user actions to take to replicate the problem.

[crazytrain]

Hard to troubleshoot interactions with out seeing them. I suggest that you copy db, compact it, zip it and post here. You can remove objects if they're not relevant (just make sure you can replicate the problem in the copy db first). Let us know what user actions to take to replicate the problem.

AFtestCopy.zip

Open the Remake Form and change or type something into any field EXCEPT Plant Location. Go to the bottom of the form and click the Save & Close Button. Answer Yes to save the changes. The message box will pop up. Click OK. Then the error will pop up.

[Micron]

If I change a field value, you should not allow the form to be closed rather than deleting my changes because of one missing field:
Cancel = True
Because you have that, the record being edited is no longer current, and no record takes its place - nor would you want it to. Comment out that line as shown and the error should not be raised.
MsgBox "Location cannot be empty. Please enter before exit."
'Cancel = True

You will need to either
- cancel all the editing (so don't use Me.Dirty = False) and close the form without saving changes, or
- don't allow user to close the form until required fields are filled in (or if they insist, dump the record or its changes)

Also, your combo gotfocus event will undo the dropdown.