Code to check the datatype property of a form control 2

[chillwa]

what is the one line code to check what data type a textbox control on a form is?

I need to find out if a control is a textbox and if so, if this textbox data type is a long integer.

Any help would be appreciated.

 

[Remou]

Controls do not have data types, only the field contained has a data type.

Me.txtText.ControlType=acTextbox '109

Will return True is the control is a textbox.

You can check the field type from the recordset:

Set fld = Me.Recordset.Fields(Me.txtText.ControlSource)
Debug.Print CurrentDb.TableDefs(fld.SourceTable).Fields(fld.SourceField).Type = dbLong

 

[chillwa]

Thanks for the info. This will work!!!

 

[MajP]

If you pass Remou's field type in this function it will return the string name.

Public Function fncFldTypeToString(intFieldType As Integer) As String
  Select Case intFieldType
    Case 1
      fncFldTypeToString = "dbBoolean"
    Case 2
      fncFldTypeToString = "dbByte"
    Case 3
      fncFldTypeToString = "dbInteger"
    Case 4
      fncFldTypeToString = "dbLong"
    Case 5
       fncFldTypeToString = "dbCurrency"
    Case 6
      fncFldTypeToString = "dbSingle"
    Case 7
      fncFldTypeToString = "dbDouble"
    Case 8
      fncFldTypeToString = "dbDate"
    Case 9
      fncFldTypeToString = "dbBinary"
    Case 10
      fncFldTypeToString = "dbText"
    Case 11
      fncFldTypeToString = "dbLongBinary"
    Case 12
      fncFldTypeToString = "dbMemo"
    Case 13
      fncFldTypeToString = "Text"
    Case 14
      fncFldTypeToString = "Text"
    Case 15
      fncFldTypeToString = "dbGUID"
    Case 16
      fncFldTypeToString = "dbBigInt"
    Case 17
      fncFldTypeToString = "dbVarBinary"
    Case 18
      fncFldTypeToString = "dbChar"
    Case 19
      fncFldTypeToString = "dbNumeric"
    Case 20
      fncFldTypeToString = "dbDecimal"
    Case 21
      fncFldTypeToString = "dbFloat"
    Case 22
      fncFldTypeToString = "dbTime"
    Case 23
      fncFldTypeToString = "dbTimeStamp"
  End Select
End Function

 

[Remou]

The way I have set up the lines above, they will return either True or False, not a number.

 

[MajP]

Sorry. To be a little clearer and still using Remou's suggestion.

dim ft as long
Set fld = Me.Recordset.Fields(Me.txtText.ControlSource)
ft = CurrentDb.TableDefs(fld.SourceTable).Fields(fld.SourceField).Type
debug.print fncFldTypeToString(ft)