If user inputs any information, then save and close, otherwise just close (1 Viewer)

theDBguy said:

Hi. Without seeing your form, this is just a guess, but try checking the Dirty property first before checking IsNewRecord.

Click to expand...

cmray58 said:

Thanks, I think this is what I'm looking for. I'm just not sure how to write that in a command button.

Click to expand...

If Me.Dirty Then
    If IsNewRecord="Yes" Then
...
    End If

End If

jdraw said:

I agree with dbGuy, here is a link to info re form dirty

Click to expand...

cmray58 said:

Thanks, I checked out the link, but I'm still not clear how to use the Dirty property within a command button. The link you provided looks like it's using the Form dirty event. I want to assess the form's dirty property when the button is clicked and if it's dirty then X and if not, Y.

Click to expand...

theDBguy said:

Hmm, did you try what I suggested and it didn't work? Just curious...

Click to expand...

If Me.Dirty Then
    DoCmd.RunCommand acCmdSaveRecord
    If IsNewRecord = "Yes" Then
    AssessmentEndTime.Value = Time
    IsNewRecord = "No"
    DoCmd.RunCommand acCmdSaveRecord
Else
DoCmd.Close
DoCmd.OpenForm "Navigation"
End If
If MsgBox("Would you like to save and close the current assessment?", vbYesNo + vbQuestion) = vbYes Then
DoCmd.Close
DoCmd.OpenForm "Navigation"
Else
DoCmd.Close
DoCmd.OpenForm "Navigation"
End If
End If

cmray58 said:

Here's my current code. I'm getting tripped up in the amount of IF and ELSE clauses. I'm not clear on the order of operations.
...
My desired outcome (in words) is:

If the nothing on the form changed:

1) Close the form and open Navigation form.

If anything changed:

1a) If IsNewRecord = Yes, change it to No and timestamp the end time
2a) Save record
3a) Close form and open Navigation

1b) If IsNewRecord = No, leave as is
2b) Save record
3b) Close form and open Navigation

Click to expand...

If IsNewRecord = Yes Then
    ... 'do all the stuff in 2a and 3a above
Else
    ... 'do all the stuff in 2b and 3b above
End If

If Me.Dirty Then
    If IsNewRecord = Yes Then
        ... 'do all the stuff in 2a and 3a above 
    Else
        ... 'do all the stuff in 2b and 3b above
    End If
End If

theDBguy said:

Hi. Let's backup a bit. Didn't you say you already have a working code where all (or most) of what you need already works? If so, all I was saying is wrap all that in one outer check where you either execute your code or not. For example, let's say you have the following already:

Code:Copy to clipboard

If IsNewRecord = Yes Then
    ... 'do all the stuff in 2a and 3a above
Else
    ... 'do all the stuff in 2b and 3b above
End If

Then, you said, with this code, you were getting empty records because the user didn't make any edits/changes to the form. So, all I'm saying is check first if the user made any changes. If they did, execute your code. If they didn't, then no need to do anything else, correct? So, in other words:

Code:Copy to clipboard

If Me.Dirty Then
    If IsNewRecord = Yes Then
        ... 'do all the stuff in 2a and 3a above 
    Else
        ... 'do all the stuff in 2b and 3b above
    End If
End If

Hope it makes sense...

Click to expand...

If Me.Dirty Then
    If MsgBox("Would you like to save and close the current assessment?", vbYesNo + vbQuestion) = vbYes Then
        If IsNewRecord = "Yes" Then
            AssessmentEndTime.Value = Time
            IsNewRecord = "No"
            DoCmd.RunCommand acCmdSaveRecord
            DoCmd.Close
            DoCmd.OpenForm "Navigation"
        Else
            DoCmd.RunCommand acCmdSaveRecord
            DoCmd.Close
            DoCmd.OpenForm "Navigation"
        End If
    Else
    End If
Else
DoCmd.Close
DoCmd.OpenForm "Navigation"
End If
End Sub

cmray58 said:

Okay, backed up and took your advise. One step at a time, I arrived here:
...
However, Me.Dirty is not working properly. Even if I enter data into the form, it skips from Me.Dirty all the way down to the last else where it just closes the form and opens navigation. It's not recognizing the data input. Database is attached. We're talking about form CALS v2. From reading elsewhere, it sounds like Me.Dirty is if anything has changed since the record was last saved. But, the record is automatically saved with every keystroke. So wouldn't it always NOT be dirty?

Click to expand...

theDBguy said:

Hi. I downloaded your file and wasn't getting the same behavior as you described. When I open the file, I see the main form. If I click on "CALS Assessment" button, the form in question opens to a new record. If don't do anything and simply click on the "Close Assessment" button, then this form closes and the main form opens again. However, when I selected "Chris Ray" from the "Assesssor's Name" dropdown and then click on the "Close Assessment" button, I get the "Would you like to save and close..." prompt, which tells me the Dirty part is working as it should.

Click to expand...

cmray58 said:

Thanks...that is strange. It seems to be working now. Thank you for the help and patience.

Click to expand...