Cant See Form

[DS]

I have a form I open as hidden. After I pass through some scenarios the
form is suppose to show up but it doesn't. The form it is behind is
Modal and popup. Whenever I open the form straight away everything
works fine. my guess is that its the form that its behind the pop up
modal one, Is there anyway to get this for to show up?
I'm using a listcount on the form as well. Heres the code.

Private Sub Command57_Click()
If IsNull(Me.Text100) Then
DoCmd.OpenForm "MustSelectItem"
Else
DoCmd.OpenForm "SalesMods", acNormal,,,,acHidden
Forms!SalesMods!Text18 = Forms!SalesMods!ListModCat.ListCount
If Forms!SalesMods!Text18 = 0 Then
DoCmd.Close acForm, "SalesMods"
DoCmd.OpenForm "NoMods"
ElseIf Forms!SalesMods!Text18 > 1 Then
Forms!Buttons!List213.Visible = False
Forms!Buttons!List215.Visible = False
Forms!SalesMods.Visible = True
End If
End If

End Sub

Thanks
DS

 

[DS]

I have a form I open as hidden. After I pass through some scenarios the
form is suppose to show up but it doesn't. The form it is behind is
Modal and popup. Whenever I open the form straight away everything
works fine. my guess is that its the form that its behind the pop up
modal one, Is there anyway to get this for to show up?
I'm using a listcount on the form as well. Heres the code.

Private Sub Command57_Click()
If IsNull(Me.Text100) Then
DoCmd.OpenForm "MustSelectItem"
Else
DoCmd.OpenForm "SalesMods", acNormal,,,,acHidden
Forms!SalesMods!Text18 = Forms!SalesMods!ListModCat.ListCount
If Forms!SalesMods!Text18 = 0 Then
DoCmd.Close acForm, "SalesMods"
DoCmd.OpenForm "NoMods"
ElseIf Forms!SalesMods!Text18 > 1 Then
Forms!Buttons!List213.Visible = False
Forms!Buttons!List215.Visible = False
Forms!SalesMods.Visible = True
End If
End If

End Sub

Thanks
DS

More....
Basically I want the form to not open if the ListModCat = 0
and if its not then it opens.
Thanks
DS

 

[DS]

More....
Basically I want the form to not open if the ListModCat = 0
and if its not then it opens.
Thanks
DS

Its fixed, I don't know why... I built another button and did this.

Private Sub Command57_Click()
If IsNull(Me.Text100) Then
DoCmd.OpenForm "MustSelectItem"
Else:
DoCmd.OpenForm "SalesMods", , , , , acHidden
If Forms!SalesMods!ListModCat.ListCount > 0 Then
Forms!SalesMods.Visible = True
Forms!Buttons!List213.Visible = False
Forms!Buttons!List215.Visible = False
Else
DoCmd.Close acForm, "SalesMods"
DoCmd.OpenForm "NoMods"
End If
End If
End Sub

Thanks
DS