populate combo with field-caption-names of a table

[Filips Benoit]

Dear all,

How can i populate a combo with the field-caption-names of 1 table?

Thanks

Filip

[Bas Cost Budde]

Filips Benoit wrote:

Dear all,

How can i populate a combo with the field-caption-names of 1 table?

Set the RowSourceType of the combo to "Field List"

--
Bas Cost Budde, Holland
http://www.heuveltop.nl/BasCB/msac_index.html
I prefer human mail above automated so in my address
replace the queue with a tea

[Filips Benoit]

Field-caption not fieldnames.

Filip

"Bas Cost Budde" <b.*********@he uvelqop.nl> wrote in message
news:cq******** **@news2.solcon .nl...

Filips Benoit wrote:

Dear all,

How can i populate a combo with the field-caption-names of 1 table?

Set the RowSourceType of the combo to "Field List"

--
Bas Cost Budde, Holland
http://www.heuveltop.nl/BasCB/msac_index.html
I prefer human mail above automated so in my address
replace the queue with a tea

[Bas Cost Budde]

Filips Benoit wrote:

Field-caption not fieldnames.

Oh! Sometimes I read sloppy.

Can you live with a function that reads the captions (from the table
definition I presume) and returns a semicolon separated string?

Function getFieldCaption s(cTable As String) As String
Dim cRes As String
Dim db As DAO.Database
Dim td As DAO.TableDef
Dim fd As DAO.Field
On Error Resume Next
Set db = CurrentDb
Set td = db.TableDefs(cT able)
For Each fd In td.Fields
cRes = cRes & fd.Properties(" Caption") & ";"
If Err = 3270 Then
Err = 0
cRes = cRes & fd.Name & ";"
End If
Next
Set td = Nothing
getFieldCaption s = Left(cRes, Len(cRes) - 1)
Set db = Nothing
End Function

--
Bas Cost Budde, Holland
http://www.heuveltop.nl/BasCB/msac_index.html
I prefer human mail above automated so in my address
replace the queue with a tea

[Filips Benoit]

thanks²

"Chuck Grimsby" <c.*******@worl dnet.att.net.in valid> wrote in message
news:u7******** *************** *********@4ax.c om...

On Sat, 18 Dec 2004 15:08:58 GMT, "Filips Benoit"
<be***********@ pandora.be> wrote:

How can i populate a combo with the field-caption-names of 1 table?

In the form's code module, put the code below, adjusting the name of
the table and the combo box's name to be whatever the heck you need it
to be:

Private Sub Form_Load()
Dim strTemp As String
strTemp = FieldCaptionsOf ATable("MyTable ")
Me.myCombo.RowS ource = strTemp
End Sub

Private Function FieldCaptionsOf ATable( _
strTableName As String) _
As String
Dim myDB As DAO.Database
Dim TDF As DAO.TableDef
Dim FLD As DAO.Field
Dim strCaptions As String

Set myDB = CurrentDb
Set TDF = myDB.TableDefs( strTableName)
On Error Resume Next

For Each FLD In TDF.Fields
strCaptions = strCaptions & ";" & _
Chr$(34) & FLD.Properties( "Caption") & Chr$(34)
Select Case Err.Number
Case 0
' do nothing, no error occured.
Case 3270
' No caption, so use the field name:
strCaptions = strCaptions & ";" & _
Chr$(34) & FLD.Properties( "Name") & Chr$(34)
End Select
Err.Clear
Next
On Error GoTo 0
FieldCaptionsOf ATable = Mid$(strCaption s, 2)
End Function
--
Shell To Dos... Come In Dos... Do You Copy?

[Bas Cost Budde]

Chuck Grimsby wrote:

Hope you didn't mind my post to the thread, Bas.
Not at all, not at all!
It was, for me anyways, interesting to see how similar our code was!
And for me. I like your Mid(st,2) because that at least looks less
cluttered than left(st,len(st)-1)--and I figure it executes smoother.
Other languages have constructs to leave out the last n characters, alas
VB hasn't.
For what it's worth, you're also going to need to put double quotes
(Chr$(34) around the captions to get them to show up in the list.
Unless you know something I don't?

I probably confused this with something else. They must be literals of
course.

--
Bas Cost Budde, Holland
http://www.heuveltop.nl/BasCB/msac_index.html
I prefer human mail above automated so in my address
replace the queue with a tea