' GetCurrentControlValue
' http://www.utteraccess.com/wiki/index.php/GetCurrentControlValue
' Code courtesy of UtterAccess Wiki
' Licensed under Creative Commons License
' http://creativecommons.org/licenses/by-sa/3.0/
'
' You are free to use this code in any application,
' provided this notice is left unchanged.
'
' rev  date                          brief descripton
' 1.0  2011-09-02
'
' Dependancies:
'   IsActiveControl: http://www.utteraccess.com/wiki/index.php/IsActiveControl
'
Public Function GetCurrentControlValue(ctl As Control) As Variant
 'retrieves the current commited or uncommited value of a control
 'If the control is active and of the right controltype, the
 'Text property will attempt to be read, otherwise the Value
 'property of the control will be returned. Intended for use
 'with the shortcutmenu callback in the instance where the
 'user may edit a control and rightclick/runshortcut before
 'the value is commited to the control.
 Dim ret As Variant
   
 'determine if the active control is the control we're working with
 'if so, we'll catch check to see if the Text property is available
 
 If Not IsActiveControl(ctl) Then
   'not active just get the value
   ret = ctl.Value
   
 Else
   'active, check the type and text if applicable
   If (ctl.ControlType = acTextBox) Or (ctl.ControlType = acComboBox) Then
     ret = ctl.text
   Else
     ret = ctl.Value
   End If
 End If
 
 GetCurrentControlValue = ret
 
End Function