Private Sub iGrid1_RequestEdit( _
        ByVal lRow As Long, _
        ByVal lCol As Long, _
        ByVal lCharCode As Long, _
        ByRef bCancel As Boolean, _
        ByRef sText As String, _
        ByRef lMaxLength As Long, _
        ByRef eTextEditOpt As ETextEditFlags)

        eTextEditOpt = igTextEditUpperCase

End Sub

Option Compare Database
Option Explicit


Private Sub Form_Load()
    
    With iGrid2
        Call .AddCol(sKey:="Number", sHeader:="Number")
        Call .AddCol(sKey:="Upper", sHeader:="Upper")
        Call .AddCol(sKey:="Lower", sHeader:="Lower")
    
        .RowCount = 10
    End With
    
    
End Sub

Private Sub iGrid2_RequestEdit( _
        ByVal lRow As Long, _
        ByVal lCol As Long, _
        ByVal lCharCode As Long, _
        ByRef bCancel As Boolean, _
        ByRef sText As String, _
        ByRef lMaxLength As Long, _
        ByRef eTextEditOpt As ETextEditFlags)

        With iGrid2
            Select Case .ColKey(lCol)
                Case "Number"
                    eTextEditOpt = igTextEditNumberOnly
                Case "Upper"
                    eTextEditOpt = igTextEditUpperCase
                Case "Lower"
                    eTextEditOpt = igTextEditNumberOnly
            End Select
        End With
        
End Sub