Field names

No problem, see my next post on some code that will help you check if a field exists or not.  So what I did is created an array to hold the field names.  I think tried to open each field with a for next loop.  I also used an on error resume next as IDEA will throw an error if the field does not exist, if it does exist I put it in the array, if it doesn't I reset the error number and try the next one.  So hopefully this will help you out.

If the field is a numeric, date or time you can use the field stats to see if the field is empty, unfortunately we don't have that info for fields that are character.  Glad the Identify Blank / Repeat fields is helping you out.

Option Explicit

Sub Main
	Dim db As database
	Dim table As table
	Dim field As field
	Dim i As Integer
	Dim sFields() As String
	Dim bFirstEntry As Boolean
	
	ReDim sFields(0)
	
	Set db = client.openDatabase("test.IMD")
		Set table = db.TableDef
			For i = 1 To 5
				On Error Resume Next
				Set field = table.GetField("SEGMENT" & i)
				If err.number = 0 Then
					If bFirstEntry Then
						ReDim preserve sFields(UBound(sFields) + 1)
						sFields(UBound(sFields)) = "SEGMENT" & i
					Else
						bFirstEntry = True
						sFields(0) = "SEGMENT" & i
					End If
				Else
					'reset the error number
					err.number = 0
				End If
			Next i
			Set field = Nothing
		Set table = Nothing
	Set db = Nothing
	
	For i = 0 To UBound(sFields)
		MsgBox sFields(i)
	Next i
End Sub

Here is some code For you. It first gets the fields from the Open database (If no database is Open it will throw an Error), it stores the field names In an Array called sFields And Then it populates a varaible sMsg that is used To display the list. Hope this helps you out.

Option Explicit

Sub Main
	Dim CRLF As String
	Dim sFilename As String
	Dim sFields() As String
	Dim db As database
	Dim table As table
	Dim field As field
	Dim i As Integer
	Dim count As Integer
	Dim sMsg As String
	CRLF = Chr(10) & Chr(13)
	
	Set db = client.CurrentDatabase
		Set table = db.TableDef
		
			count = table.count
			ReDim sFields(count)
			For i = 1 To count
				Set field = table.GetFieldAt(i)
				sFields(i) = field.name
			Next i
			Set field = Nothing
		Set table = Nothing
	Set db = Nothing
	
	For i = 1 To count
		sMsg = sMsg & sFields(i) & CRLF
	Next i
	
	MsgBox sMsg
End Sub