Disabling Buttons not working properly

[MHamid]

Hello,

I have a bound data entry form with 4 buttons (add record, clear form, update record and delete record).

I have the below code to disable the update and delete records button if the record is a new record. However, it is disabling the update and delete record buttons on records that are not new as well as new records.
What am I missing here?

Private Sub Form_Current()
  If Me.NewRecord = True Then
    Me.AddRecord.Enabled = True
    Me.ClearForm.Enabled = True
  Else
    Me.UpdateRecord.Enabled = False
    Me.DeleteRecord.Enabled = False
  End If
End Sub

Thank you

 

[Micron]

Not sure you can do it that way. You could try integrating the following in your current event, but it might be better to use it as a function in either the form module, or a standard module. The latter would allow you to use it on any form, so that's how I'll present it:

<code>Public Function NewRec(frm As Form) As Boolean
Dim bolNewRec As Boolean

NewRec = False
<code>bolNewRec </code>= frm.NewRecord
If </code><code><code>bolNewRec </code>= True Then NewRec = True
End Function</code>

and call it thus

If NewRec(Me) Then 
  Me.AddRecord.Enabled = True
  Me.ClearForm.Enabled = True
Else
   Me.UpdateRecord.Enabled = False
   Me.DeleteRecord.Enabled = False
End If

This is untested and I may have erred by using boolean instead of integer. Try it and see.

 

[MHamid]

Hello,

I tested your code and it is still disabling the update and delete records for existing and new records.

 

[Fluff]

Wrong forum

 

[xenou]

Your original code should work I think.
You might need to say more about this form, as probably it has to do with the way you have designed it - possibly what you think is a new record is not really new, or vice versa.

 

[MHamid]

Xenou,

That's what I thought too.
Well it is a bound form to allow the user to scroll through records within the Data Entry Form.
There is RefID text box that is auto-generated that I have included on the form for referencing.
There are a variety of combo boxes, text boxes, check boxes, list boxes, and 1 hyperlink text box.

The First three rows in the full form code are:

Option Compare Database
Option Explicit

Private blnGood As Boolean

I'm using the Private blnGood As Boolean in order to stop bound forms from updating automatically.

Is there anything else you need to know about the design of the form?

 

[MHamid]

Hello,

I see what I did wrong. I have 4 buttons and each of them had to be one way in the first if statement portion and then opposite in the second if statement portion.
The original code I had was incorrect.

Private Sub Form_Current()
If Me.NewRecord = True Then
    Me.AddRecord.Enabled = True
    Me.ClearForm.Enabled = True
    Me.UpdateRecord.Enabled = False
    Me.DeleteRecord.Enabled = False
Else
    Me.AddRecord.Enabled = False
    Me.ClearForm.Enabled = False
    Me.UpdateRecord.Enabled = True
    Me.DeleteRecord.Enabled = True
End If
End Sub

Thank you

 

[xenou]

Good. Yes, that seems obvious now - should have seen that too.

 

[Micron]

Believe it or not, I considered that but didn't translate

it is disabling the update and delete record buttons on records that are not new as well as new records

to mean that it wasn't un-disabling buttons that were already disabled. I guess sometimes I'm just too literal.

 

[MHamid]

It was a "Duh!" moment for me, LOL. Thanks for the help though. You both have helped me out so much throughout my project.