Solved Error 2447 (1 Viewer)

[mike60smart]

Hi Everyone

I am trying to use the following Code in the OnCurrent Event of the Form

40      If Me.txtStatus = "Billed" Then
50      Me.cboRateType.Enabled = False

60      Else

70      Me.cboRateType.Enabled = True

80      End If

When the Form opens I get the following error:-

Any help appreciated.

 

[arnelgp]

try using Nz(Me.txtStatus, "") ="Billed" Then

Me.cboRateType.Enabled = (Nz(Me!txtStatus, "") = "Billed")

 

[Gasman]

Are you sure you have the correct line 40?

 

[mike60smart]

try using Nz(Me.txtStatus, "") ="Billed" Then

Me.cboRateType.Enabled = (Nz(Me!txtStatus, "") = "Billed")

Hi arnelgp

Changed to your suggested Code and now get the following error:-

 

[Gasman]

Perhaps show all of form_current event?
I would have thought you would have got Invalid use of Null if NZ() was able to fix it?

 

[arnelgp]

try to Compile your code and see if it will reveal any errors.

 

[mike60smart]

Perhaps show all of form_current event?
I would have thought you would have got Invalid use of Null if NZ() was able to fix it?

Hi Gasman

I only uploaded what I thought were the lines needed but here with the Full Code for the On Current:-

Private Sub Form_Current()

10        On Error GoTo Form_Current_Error
20    Me.cboCustomer.SetFocus
30    Me.Accy_Amount.Requery

40    If Nz(Me.txtStatus, "") = "Billed" Then
50    Me.cboRateType.Enabled = False
60    Me.cboCustomer.Enabled = False
70    Me.[Pd Miles].Enabled = False
80    Me.RateQty.Enabled = False
90    Me.Rate.Enabled = False
100   Me.BaseRate.Enabled = False
110   Me.StopChg.Enabled = False
120   Me.Weight.Enabled = False
130   Me.[Accy Amount].Enabled = False
140   Me.Gross.Enabled = False
150   Me.NumStops.Enabled = False
160   Me.TotStChg.Enabled = False

170   Else

180   Me.cboRateType.Enabled = True
190   Me.cboCustomer.Enabled = True
200   Me.[Pd Miles].Enabled = True
210   Me.RateQty.Enabled = True
220   Me.Rate.Enabled = True
230   Me.BaseRate.Enabled = True
240   Me.StopChg.Enabled = True
250   Me.Weight.Enabled = True
260   Me.[Accy Amount].Enabled = True
270   Me.Gross.Enabled = True
280   Me.NumStops.Enabled = True
290   Me.TotStChg.Enabled = True

300   End If




         
310       On Error GoTo 0
320       Exit Sub

Form_Current_Error:

330       MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Form_Current, line " & Erl & "."

End Sub

try to Compile your code and see if it will reveal any errors.

Hi arnelgp

Did that and no errors

 

[MajP]

Using @arnelgp trick where you are toggling (true, false). This can reduce some code and thus chances of bugs

Replace the If then with

10        On Error GoTo Form_Current_Error
20     Me.cboCustomer.SetFocus
30     Me.Accy_Amount.Requery

50    dim NotBilled as boolean
      NotBilled = (Nz(Me.txtStatus, "") <> "Billed")

      Me.cboRateType.Enabled = NotBilled
60    Me.cboCustomer.Enabled = NotBilled
70    Me.[Pd Miles].Enabled = NotBilled
80    Me.RateQty.Enabled = NotBilled
90    Me.Rate.Enabled = NotBilled
100   Me.BaseRate.Enabled = NotBilled
110   Me.StopChg.Enabled = NotBilled
120   Me.Weight.Enabled = NotBilled
130   Me.[Accy Amount].Enabled = NotBilled
140   Me.Gross.Enabled = NotBilled
150   Me.NumStops.Enabled = NotBilled
160   Me.TotStChg.Enabled = NotBilled

 

[Gasman]

I see you are not of a believer in indentation?
I wanted to see the whole code, as sometimes Access shows a misleading error, caused by previous code?
I cannot see the cause, but I would certainly use arnel's logic as one liners.

 

[CJ_London]

Have you tried stepping through the code

 

[mike60smart]

Using @arnelgp trick where you are toggling (true, false). This can reduce some code and thus chances of bugs

Replace the If then with

10        On Error GoTo Form_Current_Error
20     Me.cboCustomer.SetFocus
30     Me.Accy_Amount.Requery

50    dim NotBilled as boolean
      NotBilled = (Nz(Me.txtStatus, "") <> "Billed")

      Me.cboRateType.Enabled = NotBilled
60    Me.cboCustomer.Enabled = NotBilled
70    Me.[Pd Miles].Enabled = NotBilled
80    Me.RateQty.Enabled = NotBilled
90    Me.Rate.Enabled = NotBilled
100   Me.BaseRate.Enabled = NotBilled
110   Me.StopChg.Enabled = NotBilled
120   Me.Weight.Enabled = NotBilled
130   Me.[Accy Amount].Enabled = NotBilled
140   Me.Gross.Enabled = NotBilled
150   Me.NumStops.Enabled = NotBilled
160   Me.TotStChg.Enabled = NotBilled

Hi MajP

Using @arnelgp trick where you are toggling (true, false). This can reduce some code and thus chances of bugs

Replace the If then with

10        On Error GoTo Form_Current_Error
20     Me.cboCustomer.SetFocus
30     Me.Accy_Amount.Requery

50    dim NotBilled as boolean
      NotBilled = (Nz(Me.txtStatus, "") <> "Billed")

      Me.cboRateType.Enabled = NotBilled
60    Me.cboCustomer.Enabled = NotBilled
70    Me.[Pd Miles].Enabled = NotBilled
80    Me.RateQty.Enabled = NotBilled
90    Me.Rate.Enabled = NotBilled
100   Me.BaseRate.Enabled = NotBilled
110   Me.StopChg.Enabled = NotBilled
120   Me.Weight.Enabled = NotBilled
130   Me.[Accy Amount].Enabled = NotBilled
140   Me.Gross.Enabled = NotBilled
150   Me.NumStops.Enabled = NotBilled
160   Me.TotStChg.Enabled = NotBilled

Hi MajP
I have tried both yours and arnelgp's solutions with no luck.

 

[MajP]

If that error message is correct (Double check because sometimes I copy and past the error handler and forget to change the module name as an agrument for the error)

The line you have or any example should not cause the error so I would comment out the error handler in the on current event and see where the code breaks.
Do you have a subform with the same error handler? It could be in the sub.

 

[MajP]

If it is truly breaking in that module at line 40 (verified by removing error handler) then sometimes there gets confusion in the compiler. Make sure to do a debug compile. Then paste the code into a text file. Delete the entire module. Then I would re type the code up to line 40. If that works paste the rest back in.

 

[The_Doc_Man]

When I see this kind of problem (particularly if the error changes from a short error code - 2447 - to a long code), I think of corruption.

First, before you do anything else of this that I'm about to suggest, make a copy of your database file as a safety backup. Use the Windows File Explorer to do it. Straight up copy/paste. Don't copy it using any Access features at all.

Second, use a DECOMPILE on this errant file.

Decompile and Compact Your Microsoft Access Database to Improve Performance and Fix Corruption

Decompile and Compact Your Microsoft Access Database to Improve Performance and Fix Corruption

www.fmsinc.com

Third, perform a Compact & Repair.

Fourth, open the file as though you were going to do some design work. Use the VBA window to explicitly compile the code.

Now test it and see what you get.

If this still fails, then there is one other thing to consider. That long error code intrigued me. So I used the old "Programmer's Calculator" in Windows and determined that -2147352567 is 0x80020009 - which has NOTHING TO DO with dots and parentheses and bangs, despite what the error message actually says. That error suggests some kind of internal problem. Check your VBA Window >> Tools >> References to see if any of your references come up "Missing" or "Broken" or something else.

In the worst-case scenario, you might have to create an empty database and then use the "External Data" options to IMPORT everything from your backup copy. Then go in and verify proper references.

 

[mike60smart]

Hi Everyone

June7 suggested the following when I asked this question on Utter Access Forum this thread

Could just set the Locked property of the subform container control. I always name control different from the object it holds, like ctrLoad. So code in main form Current event:

Me.ctrLoad.Locked = Me.textboxname = "Billed"

So I tried the following in the On Current Event

Private Sub Form_Current()

10        On Error GoTo Form_Current_Error
          
20     Me.Accy_Amount.Requery

30     [Forms]![Dispatch]![frmLoadsBillingSubform].[Form].Locked = Me.txtStatus = "Billed"
        
40        On Error GoTo 0
50        Exit Sub

Form_Current_Error:

60        MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Form_Current, line " & Erl & "."

End Sub

This now generates the following 2 errors.

However when the Form Opens the Controls are Locked on the Subform/

Any thoughts?

 

[mike60smart]

When I see this kind of problem (particularly if the error changes from a short error code - 2447 - to a long code), I think of corruption.

First, before you do anything else of this that I'm about to suggest, make a copy of your database file as a safety backup. Use the Windows File Explorer to do it. Straight up copy/paste. Don't copy it using any Access features at all.

Second, use a DECOMPILE on this errant file.

Decompile and Compact Your Microsoft Access Database to Improve Performance and Fix Corruption

Decompile and Compact Your Microsoft Access Database to Improve Performance and Fix Corruption

www.fmsinc.com

Third, perform a Compact & Repair.

Fourth, open the file as though you were going to do some design work. Use the VBA window to explicitly compile the code.

Now test it and see what you get.

If this still fails, then there is one other thing to consider. That long error code intrigued me. So I used the old "Programmer's Calculator" in Windows and determined that -2147352567 is 0x80020009 - which has NOTHING TO DO with dots and parentheses and bangs, despite what the error message actually says. That error suggests some kind of internal problem. Check your VBA Window >> Tools >> References to see if any of your references come up "Missing" or "Broken" or something else.

In the worst-case scenario, you might have to create an empty database and then use the "External Data" options to IMPORT everything from your backup copy. Then go in and verify proper references.

Hi Docman

I have already done a Compile of Access
I have Imported to a New Access File
I have Compact & Repaired

 

[mike60smart]

If that error message is correct (Double check because sometimes I copy and past the error handler and forget to change the module name as an agrument for the error)

The line you have or any example should not cause the error so I would comment out the error handler in the on current event and see where the code breaks.
Do you have a subform with the same error handler? It could be in the sub.

Hi MajP
I commented out the Error Handler and now get the error shown below.

It highlights this line:

30     [Forms]![Dispatch]![frmLoadsBillingSubform].[Form].Locked = Me.txtStatus = "Billed"

 

[Gasman]

Hi Docman

I have already done a Compile of Access
I have Imported to a New Access File
I have Compact & Repaired

Doc said DECOMPILE !!!

 

[cheekybuddha]

Can you lock a form?

I thought you could only lock controls, but don't have Windows open to check

 

[mike60smart]

Doc said DECOMPILE !!!

Hi Gasman & Doc

Sorry I have also done a DECOMPILE