Changed Form

[tiggrr]

I'm trying to capture changes to a form. It works except when the 'Del' key is used.

Private Sub txtAddress_KeyPress(KeyAscii As Integer)
    Call FormChange
End Sub

Public Sub FormChange(ByRef bFormChange As Boolean)
    Dim obj As Object
    For Each obj In frmSStab
        If TypeOf obj Is TextBox Then
            If obj.DataChanged Then
                bFormChange = True
            End If
        End If
    Next obj
End Sub

Any ideas would be helpful.

Thank you.

 

[Freemo]

Hello, What about using txtaddress_keydown

 

[tiggrr]

Key down will respond to keys; esc, ctl, alt, windows thingy, caps lock. Can't use it. thanx anyway.

 

[thendrickson]

Private Sub txtAddress_KeyPress(KeyAscii As Integer)
if not KeyAscii = {Look up the ascii values you want to eliminate}
Call FormChange
End Sub

Or

Private Sub txtAddress_KeyPress(KeyAscii As Integer)
if KeyAscii = {Look up the ascii values you want to trap} or keyAsci = {ascii value} or etc etc
Call FormChange
End Sub

I would use

Select case Keyascii

Case {ascii value}, {asciivaue2} etc
Call FormChange

Or not.

I do not have MSDN on this laptop so cannot give you the Ascii values. Just look them up.

There are many other options as well. Just depends on what you want to do.

But tis is how you can capture the keystroke

 

[Andrzejek]

You have:

Public Sub FormChange

that accepts one parameter: bFormChange As Boolean

But when you call this Sub, you do not provide anything that this Sub needs, which is a Boolean. This does not work.

Also, your bFormChang is very local to your Sub, and you do assign the value to it. So what? You can not use it anywhere else since its scope is just local.

Am I missing something here?
Or is that just a short version of what you try to do?

--- Andy

 

[tiggrr]

The sub should have read:

Private Sub txtAddress_KeyPress(KeyAscii As Integer)
    Call FormChange(bFormChange)    
End Sub

It works only not the way it was first presented here.