Window is invisible and thus cannot be activated

Hi Jared



Sorry for slow response.  Automated testing is just one of my many jobs!



I have attached a snapshot taken at the point at which the text was about be entered, as below

Sub Test4

Dim wndPrestigeSystemAdmin

Dim toolbarWindow32

Dim edit

Set wndPrestigeSystemAdmin = Aliases.Pradmin.wndPrestigeSystemAdmin

Set toolbarWindow32 = wndPrestigeSystemAdmin.ReBarWindow32.ToolbarWindow32Call toolbarWindow32.ClickItem("Add", False)

Set edit = wndPrestigeSystemAdmin.page327702.Item.Edit

Call edit.SetText("Test 1"Call edit.Keys("[Tab]")

Call edit.SetText("Test Element 1")

Call edit.Keys("[Tab]")

FileName = "C:\temp\GMeakinInfo.txt"

SaveRecursive = true

SaveFields = true

SaveMethods = true

' Saves the snapshot

Call SaveObjectSnapshotToFile(edit, FileName, SaveRecursive, SaveAllProperties, AdditionalProperties, SaveFields, SaveMethods)

Call edit.SetText("T1")

Call toolbarWindow32.ClickItem("Save", False)

End Sub



Look forward to your response



Gary

Test4 wndPrestigeSystemAdmin toolbarWindow32 edit wndPrestigeSystemAdmin = .Pradmin.wndPrestigeSystemAdmin toolbarWindow32 = wndPrestigeSystemAdmin.ReBarWindow32.ToolbarWindow32 toolbarWindow32.ClickItem("Add", ) edit = wndPrestigeSystemAdmin.page327702.Item.Edit edit.SetText("Test 1" edit.Keys("[Tab]") edit.SetText("Test Element 1") edit.Keys("[Tab]")FileName = "C:\temp\GMeakinInfo.txt" SaveRecursive = SaveFields = SaveMethods = SaveObjectSnapshotToFile(edit, FileName, SaveRecursive, SaveAllProperties, AdditionalProperties, SaveFields, SaveMethods) edit.SetText("T1") toolbarWindow32.ClickItem("Save", ) Look forward to your responseGary