Hi
I have my on-screen keyboard which works fine on main form but when i put subform on it it doesn't work it said it lost the focus or object doesn't support this property or method. Here is the code:
Private Function TypeAlphaNum(strKey As String) As String
Screen.PreviousControl.SetFocus
Me.Controls(Screen.ActiveControl.Name).SelStart = Nz(Len(Me.Controls(Screen.ActiveControl.Name)), 0)
Me.Controls(Screen.ActiveControl.Name).SelLength = 0
Me.Controls(Screen.ActiveControl.Name).Value = Me.Controls(Screen.ActiveControl.Name).Value & strKey
End Function
I have added the example too.
Thanks very much in advance.
I have my on-screen keyboard which works fine on main form but when i put subform on it it doesn't work it said it lost the focus or object doesn't support this property or method. Here is the code:
Private Function TypeAlphaNum(strKey As String) As String
Screen.PreviousControl.SetFocus
Me.Controls(Screen.ActiveControl.Name).SelStart = Nz(Len(Me.Controls(Screen.ActiveControl.Name)), 0)
Me.Controls(Screen.ActiveControl.Name).SelLength = 0
Me.Controls(Screen.ActiveControl.Name).Value = Me.Controls(Screen.ActiveControl.Name).Value & strKey
End Function
I have added the example too.
Thanks very much in advance.