Reset a Combo Box VBA Help!

[derek7467]

Morning all!



I have a combo box and a date field that when both have information produce a report:

Private Sub SupervisorDailyHuddle_AfterUpdate()
If Len(Me.SupSelectorDate & vbNullString) = 0 Then
MsgBox ("Please Select a Date First!"), vbOKOnly, "Enter a Date!"
Else
DoCmd.OpenReport "rptSupervisorDailyHuddle", acViewReport
DoCmd.Close acForm, "frmSupervisorDailyHuddle"
End If
End Sub

Once they hit OK on the msgbox, i would like my combo box to clear.

Can someone help me please!

[orange]

Try this right before the Else (*****untested**********) assumes combo is SupervisorDailyHuddle

Me.SupervisorDailyHuddle=""
SupervisorDailyHuddle.Requery

[derek7467]

That worked! Thanks!!! I also added a textfield.SetFocus to my date field.