J
Joanne
Hello,
I'm flummoxed about what's happening with this code. What I have is a tree
structure, and if the user picks a particular node, another form (a search
form) is supposed to open. The form does open, but it is behind the
existing form so the user can't tell that the second form is open. It
flashes for a second and then sometimes it minimizes. At other times it
flashes and just stays open behind the first form. Does anyone have an idea
as to why it's doing that?
Thanks very much for your help
Case "Root0"
vText = "Parties Appellant"
DoCmd.OpenForm "FrmTextSearch"
Form_frmTextSearch.SetFocus
Forms("FrmTextSearch").Move Left:=0, Top:=0, Width:=400, Height:=300
Form_frmTextSearch.txtLabel.SetFocus
Form_frmTextSearch.txtLabel.Text = "Enter information for " & vText
Form_frmTextSearch.List6.SetFocus
vstrSearch = Form_frmTextSearch.List6.Text
Form_frmTextSearch.RecordSource = "tblPatentCaseInformation"
vstrResult = InStr(1, vstrSearch, ",")
If Len(Trim(vstrSearch)) > 0 Then
If vstrResult > 0 Then
straryElement = Split(vstrSearch, ",")
intFinalNumber = UBound(straryElement)
End If
End If
End Select
I'm flummoxed about what's happening with this code. What I have is a tree
structure, and if the user picks a particular node, another form (a search
form) is supposed to open. The form does open, but it is behind the
existing form so the user can't tell that the second form is open. It
flashes for a second and then sometimes it minimizes. At other times it
flashes and just stays open behind the first form. Does anyone have an idea
as to why it's doing that?
Thanks very much for your help
Case "Root0"
vText = "Parties Appellant"
DoCmd.OpenForm "FrmTextSearch"
Form_frmTextSearch.SetFocus
Forms("FrmTextSearch").Move Left:=0, Top:=0, Width:=400, Height:=300
Form_frmTextSearch.txtLabel.SetFocus
Form_frmTextSearch.txtLabel.Text = "Enter information for " & vText
Form_frmTextSearch.List6.SetFocus
vstrSearch = Form_frmTextSearch.List6.Text
Form_frmTextSearch.RecordSource = "tblPatentCaseInformation"
vstrResult = InStr(1, vstrSearch, ",")
If Len(Trim(vstrSearch)) > 0 Then
If vstrResult > 0 Then
straryElement = Split(vstrSearch, ",")
intFinalNumber = UBound(straryElement)
End If
End If
End Select