POS form set up

[tristandoo]

Could anyone tell me why it will not close the form when clicking yes/ I have moved the DoCmd.Close around in all kinds of places and have also used

DoCmd.Close acForm, "frmRecieveOrd", acSaveYes

and still couldn't get it to close

Private Sub cmdSubmit_Click()DoCmd.Beep
Dim intResponse As Integer
intResponse = MsgBox("Do you want to update the quantities and exit?", vbQuestion + vbYesNo, "Save and Exit")


If intResponse = vbYes Then
Dim rsUpdate As DAO.Recordset
Set rsUpdate = CurrentDb.OpenRecordset("Inventory", dbOpenDynaset)
With rsUpdate
.FindFirst "[Cookie] = 'Samoas'"
.Edit 'Samoas
![InStock] = ![InStock] + intSamoas
.Update


    .FindFirst "[Cookie] = 'Tagalongs' "
    .Edit 'Tagalongs
    ![InStock] = ![InStock] + intTagalongs
    .Update
    
        .FindFirst "[Cookie] = 'Thinmints'"
        .Edit 'Thinmints
        ![InStock] = ![InStock] + intThinmints
        .Update
        
            .FindFirst "[Cookie] = 'Do_Si_Dos'"
            .Edit 'DoSiDos
            ![InStock] = ![InStock] + intDoSiDos
            .Update
            
                .FindFirst "[Cookie] = 'Trefoils'"
                .Edit 'Trefoils
                ![InStock] = ![InStock] + intTrefoils
                .Update
                
                    .FindFirst "[Cookie] = 'Cookie = 'SavannahSmiles'"
                    .Edit 'savannahSmiles
                    ![InStock] = ![InStock] + intSavannahSmiles
                    .Update
                    End With
                    DoCmd.Close
    Set rsUpdate = Nothing
End If  'User answered yes












End Sub

[ItsMe]

Why are you trying to save the design of the form?

I use Docmd.Close

in RunTime

[tristandoo]

Where should the DoCmd.Close go? Everywhere I tried would either close the form and not update values or update values and not close

[June7]

Code looks good to me.

Step debug. Refer to link at bottom of my post for debugging guidelines.

[ItsMe]

This would be problematic. Is this how it is in the database?

                    .FindFirst "[Cookie] = 'Cookie = 'SavannahSmiles'"
                    .Edit 'savannahSmiles
                    ![InStock] = ![InStock] + intSavannahSmiles
                    .Update

Also, I should have not phrased my previous post that way. Rather...

This will not do anything for your recordset
DoCmd.Close acForm, "frmRecieveOrd", acSaveYes


If you want to save a record, close the form or navigate to a new record.
Here is an example of closing a form and saving the current record
DoCmd.Close acForm, "frmRecieveOrd"

Or you can save a record via code like this
if me.dirty then me.dirty = false

[tristandoo]

What I posted above is what is exactly in the db.

I tried that

DoCmd.Close acForm, "frmRecieveOrd"

and didn't do anything. I put it at the ed of the "End With" and the "End If" with no luck.

Also I tried the debug all I get is *Ding* and it doesn't step into anything.

[June7]

Did you run Debug > Compile?

Is the procedure declaration really like:

Private Sub cmdSubmit_Click()DoCmd.Beep

That should be two lines, not one.

[tristandoo]

I have done compile before yes. And no it should be two lines. I will double check and make sure but it should be two.

[tristandoo]

yupp two lines

[June7]

One last thing to check before providing your latest version.

Does the button Click event property say [Event Procedure]?

[tristandoo]

I just decided to download the last copy that I uploaded here and change some stuff in it.

Also got the VBA wizard working again, thank God that I no longer have to deal with 5 windows popping up and telling me the same thing for the billionth time.

After rearranging and shrinking the cookies I have a good sized area of nothingness that I am trying to figure out what to do with. (I am thinking of leaving it empty and see how well it works with my tablet (using Teamviewer))

[tristandoo]

Aight I get a Runtime error 2407. It refers to this set of coding, Line 1 to start.

 Me.Image0.Visible = Not Me.InvenSamoas = 0Me.Image14.Visible = Not Me.InvenThinmints = 0
Me.Image16.Visible = Not Me.InvenTrefoils = 0
Me.Image19.Visible = Not Me.InvenTagalongs = 0
Me.Image21.Visible = Not Me.InvenDoSiDos = 0
Me.Image24.Visible = Not Me.InvenSavannahSmiles = 0

[June7]

That should be two lines.

[tristandoo]

Ignore the code it didn't past right and I figured it out