Translation

[dgrosen]

How do I translate this code into access?
The code will display X number of text boxes on the X axis and Y number of textboxes on the Y axis.

Dim i%, x%, l%, j%, y%
l = 40
x = Range("A1").Value
y = Range("A2").Value
For j = 1 To y
m = m + 20
l = 40
For i = 1 To x
l = l + 60
ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, DisplayAsIcon:=False, Left:=l, Top:=m, Width:=50, Height:=15).Select
Next i
Next j

 

[Norie]

You don't.

I could give you code that creates X number of textboxes on Y number of rows on a form but I still don't understand why you want to do that.

 

[dgrosen]

Hi Norie: Thanks for you reply.
I am a stone and sea shell collector.
I have created a database using access where I input the name of the box, the ID of the sample and its location in the box (A1, B2..). I would like to have it in a more visual display.
I am trying to have this database for my own personal use to keep track of them.
I put the samples in boxes. The boxes have a grid and each spot contains one stone or sea shell with a unique ID#. Each boxes are named different and have different number of spaces.
Hope this helps
Thanks a lot
Dan