Horizontal continuous form

latex88

Registered User.
Local time
Today, 13:55
Joined
Jul 10, 2003
Messages
198
Everywhere I've searched, I am informed that you cannot make a continuous form to go from left to right. As my users are using touchscreen monitors to select from a long list (just long enough to go to two to three screen sizes) of items from a table/query, scrolling is not desirable.

I could make command buttons for each possible selection, but that would take tremendous amount of time, especially that I need to make numerous of these forms with different lists.

Is there a way to create the command buttons systematically? I couldn't figure how, so I thought using the text box with events might be my best option, but due to the aforementioned reasons, it's not too viable.

If above options are not possible, how about using Tab Control? Is there a way I can auto populate the tabs? I don't think this option is too ideal either, unless there's a way to make two or more rows of tabs, as the touch areas are too small for an average size finger.
 
After further research, I have decided to go with this route. I'm sure it's not the most efficient way, but it's a way...I guess. I basically will create a template with a bunch of command buttons with each name Command0, Command1...Command2...I will then loop through a table to obtain the record and replace the caption based on records in tables/queries. I will then make extra buttons invisible. However, I'm stuck. My code is below. There may be more issue with the codes, but I believe the problem is with the code inside the [[[ ]]]. Try not to laugh. My coding ability is limited. Oh, I I have not included the line to set the extra buttons invisible yet.

Private Sub Form_Load()

Dim i As Integer
Dim FieldName As String

Dim db As Database
Dim rs As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("MyTable")

For i = 0 To rs.RecordCount - 1
FieldName = rs.Fields("myFieldNameFromMyTable")
[[[Me.Command(i).Caption = FieldName]]]
rs.MoveNext
Next i

rs.Close
Set rs = Nothing
db.Close

End Sub
 
Sorry, but after reading your explanation many times I still can not imagine what you want to do and what your problem is, can you show it with a sketch or picture?
 

Users who are viewing this thread

Back
Top Bottom