Inputbox hidden behind my form

[disneygoof via AccessMonster.com]

I have on imput box that fires when a user clicks a button. Up until today,
it's been working just ducky...NOW, for some reason the inputbox is firing,
but it's behind all the open forms and you can not see it...however, if you
type the criteria it needs, it works....has any see this before? is there
something to prevent this? All my code is good, been using it for months
with no changes...
thanks,
David

 

[disneygoof via AccessMonster.com]

Here's another related issue...I know how to prevent the input box issue, but
I can not prevent it.
allow me to set the stage....
1. main menu opens when access opens (choose a department)
1a. Press button called 'Detailing'
2. opens a form (frmBulletinAllProjects) that displays all active projects in
continues form, with three buttons in the detail section (Bulletin, Time,
Project Info) and three in the form header (Show All, Goto, Close). This
form is filtered on the person who was assigned the project. That way the
detailer does not need to see all "x" projects, when he/she only has 4 or 5
projects.
2a. If I pick the BULLETIN button, a form opens showing the details of that
project
2b. If I pick the TIME button, a form opens that allows me to track time on
the project
2c. if I pick PROJECT INFO, a form opend displaying Arch, Eng'r, Contr'r,
Address, Contact, etc
3d. if I pick GOTO, an input box opens to type a project number to goto.
----these all works fine and dandy...until...
3. I pick the SHOW ALL, (shows all the projects...turns of the filter...see
code below) then the BULLETIN, TIME, PROJECT INFO and GOTO...work...I think,
but in the background where we can not see anything...at least until I close
the frmBulletinAllProjects.

Now...This whole process has been working for months, until last week...what
would cause a bizzar problem like this...thoughts?????

Private Sub AllProjects_Click()

If Me.FilterOn = True Then
Me.AllProjects.Caption = "Show My Projects"
Me.AllProjects.ForeColor = vbBlue
Me.FilterOn = False
Me.Refresh
Else
Me.AllProjects.Caption = "Show All Projects"
Me.AllProjects.ForeColor = vbBlack
Me.Filter = "[LoginUsername] = '" & GetUserName() & "'"
Me.FilterOn = True
Me.Refresh
End If

End Sub