MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer) Dim sTemp As String With MSFlexGrid1 sTemp = .TextMatrix(.Row, .Col) Select Case KeyAscii Case 8 ' backspace If Len(sTemp) > 0 Then sTemp = Left$(sTemp, Len(sTemp) - 1) End If Case 27 ' escape sTemp = "" Case 0 To 31 KeyAscii = 0 Case Else sTemp = sTemp & Chr$(KeyAscii) End Select .TextMatrix(.Row, .Col) = sTemp End With End Sub
|VBA Word macro - how to get characters after the searched for string||5||96|
|MS Acccess - Update Field in Table when report is printed||6||47|
|VB6 Compile Compatibility Issue||4||115|
|how to loop through and process two columns in excel||8||25|