Yes No Message box

dbartelt · October 27th, 2005, 01:04 PM

Hello,

I use a command button to post an invoice amount. I would like to prevent accidental overwriting of a current invoice amount. This code overwrites the amount even after clicking âNoâ. I would like the cancel the action when âNoâ is clicked. Please help!

Private Sub PostInvoice_Click()
On Error GoTo Err_PostInvoice_Click

If IsNull(InvoiceBalance) Then
    [InvoiceTotal] = Me.InvoiceTotal1
    [InvoiceBalance] = Me.InvoiceTotal1
    [DueDate] = Me.InvoiceDate + 30

Else
    MsgBox "You are about to overwrite the current invoice balance"

MsgBox "Are you sure you want to overwrite the current invoice amount", vbYesNo
        If vbYes Then
            [InvoiceTotal] = Me.InvoiceTotal1
            [InvoiceBalance] = Me.InvoiceTotal1
            [DueDate] = Me.InvoiceDate + 30
        Else
            Exit Sub

        End If

End If

Exit_PostInvoice_Click:
    Exit Sub

Err_PostInvoice_Click:
    MsgBox Err.Description
    Resume Exit_PostInvoice_Click

End Sub

D. Bartelt

dartcoach · October 27th, 2005, 01:09 PM

Howdy D!
How you doing? Switch your code to this:

myresponse = MsgBox("Are you sure you want to overwrite the current invoice amount", vbYesNo)

If myresponse = vbYes Then

Kevin

dartcoach

echovue · October 27th, 2005, 01:10 PM

Hi,

Try this... What is happening is that you are not capturing the users answer from the Message Box

Original Code

MsgBox "Are you sure you want to overwrite the current invoice amount", vbYesNo
        If vbYes Then
            [InvoiceTotal] = Me.InvoiceTotal1
            [InvoiceBalance] = Me.InvoiceTotal1

New Code

intResponse = MsgBox ("Are you sure you want to overwrite the current invoice amount", vbYesNo+vbQuestion)
'+vbQuestion just adds a Question Mark to the MsgBox
If intResponse = vbYes Then
    [InvoiceTotal] = Me.InvoiceTotal1
    [InvoiceBalance] = Me.InvoiceTotal1
    .......

Hope that helps,

Mike

Mike
EchoVue.com

dbartelt · October 27th, 2005, 01:47 PM

Hi dartcoach,

I'm doing fine, how 'bout yourself? Thank you for the help. The code worked after I added "Dim myreponse As Integer" to the beginning of the code.

I'm almost done with the accounts receivable database. Just have to figure out how to update the invoice balance field in tblInvoices from the payments subform. The payments subforms' recordsource is tblpayments. Also have to create Aged Receivables forms and reports yet. After those, it's ready to go.

Take care!

D. Bartelt

dartcoach · October 27th, 2005, 08:30 PM

D,

Are the tblpayments and tblinvoices related by invoice number?

If they are, then whenever you enter a payment, you would want to recalculate the total payments made, then, update current balance of the invoice where invoice numbers are equal.

Make sense?

Kevin

dartcoach

SerranoG · October 28th, 2005, 07:01 AM

Code:

    Dim intUpdate as Integer

    If IsNull(Me.InvoiceBalance) Then
        intUpdate = vbYes
    Else
        intUpdate = MsgBox("You are about to overwrite the current invoice balance.  Are you sure you want to do this?", vbQuestion + vbYesNo, "Overwrite Balance?")
    End If

    If intUpdate = vbYes Then
        Me.InvoiceTotal = Me.InvoiceTotal1
        Me.InvoiceBalance = Me.InvoiceTotal1
        Me.DueDate = DateAdd("d", 30, Me.InvoiceDate)
    End If

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

dbartelt · October 28th, 2005, 08:05 AM

Kevin,

Yes the tables are related by InvoiceID. InvoiceID is the PK in tblInvoices.

Thanks,

Don

D. Bartelt

dbartelt · October 28th, 2005, 08:16 AM

echovue & SerranoG,

Thanks for your input. I am absorbing all the help I get.

Thanks again!

Don

D. Bartelt