Passing the form reference to an undo function

C

chrisbrookeanna

Registered User.

Local time

Today, 00:35

Joined

Apr 6, 2004

Messages

14

• Apr 7, 2004

• #1

Hi Ive got this code:-

Function Old_values(Object As Form)

Dim ctlTextbox As Control
For Each ctlTextbox In Object.Controls
If ctlTextbox.ControlType = acTextBox Then
ctlTextbox.Value = ctlTextbox.OldValue
End If
Next ctlTextbox
End Function


I want to pass into it different forms but I keep getting type mismatch errors, im calling it by:-

Old_values ("Functional Data Set") - what should this be?

 

R

Rich

Guest

• Apr 7, 2004

• #2

Why not just use Me.Undo ?

 

C

chrisbrookeanna

Registered User.

Local time

Today, 00:35

Joined

Apr 6, 2004

Messages

14

• Apr 7, 2004

• #3

Thanks Rich

Rich said:

Why not just use Me.Undo ?

Click to expand...

Me.Undo wont work for some reason, do you know how to correct my original coding?

 

R

Rich

Guest

• Apr 7, 2004

• #4

Where and when have you tried using Me.Undo?

 

C

chrisbrookeanna

Registered User.

Local time

Today, 00:35

Joined

Apr 6, 2004

Messages

14

• Apr 7, 2004

• #5

Me.Undo

Rich said:

Where and when have you tried using Me.Undo?

Click to expand...

Hi Rich,

When I change data it loads another form to sanction the change with a change number, you can either hit ok or cancel on this new form. Upon hitting cancel I tried Forms![Name of form].undo

I cant use me, because im not currently on the form to change back to original data.

 

ChrisO

Registered User.

Local time

Today, 09:35

Joined

Apr 30, 2003

Messages

3,202

• Apr 11, 2004

• #6

G’day chrisbrookeanna

One method would be something like this…

On Form frmMain: -

Code:

Option Explicit
Option Compare Text

Public blnCancelUpdate As Boolean


Private Sub Form_BeforeUpdate(ByRef intCancel As Integer)

    DoCmd.OpenForm "frmSanctionChange", , , , , acDialog, Me.Name
    
    If (blnCancelUpdate = True) Then
        Me.Undo
        intCancel = True
        blnCancelUpdate = False
    End If

End Sub

And on Form frmSanctionChange: -

Code:

Option Explicit
Option Compare Text


Private Sub cmdCancel_Click()

    If Nz(Me.OpenArgs, "") <> "" Then
        Forms(Me.OpenArgs).blnCancelUpdate = True
        DoCmd.Close acForm, Me.Name
    End If

End Sub

Hope that helps.

Regards,
Chris.