it's a pretty powerful database program called alpha version 10 from alpha
software. they call it codeless ajax because a lot of it can be written just
by making selections. it can read and write sql, too.

check it out here. http://www.alphasoftware.com/
there are a lot of videos of the features here,
http://www.alphasoftware.com/product...0WebAppVideos/
and yes, you would have needed to click, grid searches, basic search to get
where i wanted you to go. thought the link would do it, but i guess not.

i will check your solution, thanks a lot.

--


Gary Keramidas
Excel 2003


"Peter T" <peter_t@discussions wrote in message
...
Your link does not give a page with any fields to fill out. However I went
to Web-security/Login, entered my name in the User-ID field, copied all to
Excel. The following returned the name I had entered in IE

Sub test()
Dim sUserID As String
Dim ole As OLEObject
For Each ole In ActiveSheet.OLEObjects
If ole.progID = "Forms.HTML:Text.1" Then
If ole.Object.HTMLName = "Userid" Then
sUserID = ole.Object.Value
Debug.Print sUserID
End If
End If
Next

End Sub

BTW, some web form there stuff I'd be interested to learn more about,
could you point me in the right direction, thanks.

Regards,
Peter T

"Gary Keramidas" wrote in message
...
thanks joel, but that won't work. it's not a drawing object. it's and
embedded field that shows embed("forms.html:text.1","") when it's
selected.

i did forget to put the select line when i posted, so the box is
selected. like i mentioned, it does work, i am just looking for another
way to get the data from the field.
if you want to simulate what i have, you can go to this site and fill in
your name. copy the 2 fields and paste them into sheet 1. delete column
A. to get rid of the labels and run the code below. it's not exactly what
i do, but close enough. it should put your name in a1 & b1.


http://65.75.250.238/webApplicationD...ault/grids.a5w

Sub ReNumber_Boxes()
Dim ws As Worksheet
Dim ws3 As Worksheet
Dim shp As Shape
Dim k As Long
Dim i As Long
Dim z As Long
k = 1
Set ws = Worksheets("Sheet1")
Set ws3 = Worksheets("Sheet3")

For Each shp In ActiveSheet.Shapes
Debug.Print shp.Name
shp.Name = "Box " & k
k = k + 1
Next

Application.CutCopyMode = False
z = 1
ws.Activate

For i = 1 To ws.Shapes.Count
ws.Shapes("Box " & i).Select
Selection.Verb Verb:=xlPrimary
SendKeys "^A", True
SendKeys "^C", True
ws3.Cells(1, z).PasteSpecial xlPasteAll
Application.CutCopyMode = False
z = z + 1
Next
End Sub






Gary Keramidas
Excel 2003


"joel" wrote in message
...

It is hard to determine the root cause of the problem from the the code
you provided. I do have an issue with the code you posted

With ws.Shapes("Box " & i)
Selection.Verb Verb:=xlPrimary
SendKeys "^A", True
SendKeys "^C", True
end with


The shape may not be selected using the With statement since nothing in
the with has a period in front of it. I don't know what a box is but
try this change. I took a rectangle and added text to the shape. Not
sure if that is what you are doing. It is only a guess.

From
Selection.Verb Verb:=xlPrimary
To
DrawingObject.Caption


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=183255

Microsoft Office Help