Solved

Adding records

Posted on 2011-09-18
3
247 Views
Last Modified: 2012-05-12
Hi there,
I have a button on an unbound form with the following code attached

Private Sub btnEmailCC_Click()
On Error GoTo Err_btnEmailCC_Click
Dim strWhereCriteria As String
strWhereCriteria = "shipnote = Forms!frmXLNote!txtNoteNum"
Dim Aresponse As Integer
    Aresponse = MsgBox("Was the pallet count correct?", vbQuestion + vbYesNo, "Pallets Correct ?")
    If Aresponse = vbYes Then
        DoCmd.SendObject acSendReport, "rptSpecNote2", acFormatPDF, _
        "someone@somewhere.com;someoneelse@somewhereelse.com", , , "Despatch Note", _
        "Please see attached PDF re latest Despatch Note."
        btnUpDate.Visible = True
        btnUpDate.SetFocus
        btnEmailCC.Visible = False
        MsgBox "You must now Update the Call-Off!", vbCritical, "Update!"
    End If
    If Aresponse = vbNo Then
        DoCmd.OpenForm "frmEditCCnote", , , strWhereCriteria
    End If
Exit_btnEmailCC_Click:
    Exit Sub
Err_btnEmailCC_Click:
    MsgBox Err.Description, vbOKOnly, "An Error has occured, please inform S.Byrom"
    Resume Exit_btnEmailCC_Click
End Sub

When the user clicks "No" to edit the items shipped it opens a split form which is bound to a table (tblStordProds) and has a button on it to add a record if needed. The code attached to the button is;

Private Sub btnAdd_Click()
On Error GoTo Err_btnClose_Click
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.GoToRecord , , acNewRec
    DoCmd.RunCommand acCmdPasteAppend
    DoCmd.RunCommand acCmdSaveRecord
    MsgBox "You must now change the added Product" & vbCrLf & _
    "to the product you missed originally." & vbCrLf & _
    "Use the drop-down arrow to change it." & vbCrLf & vbCrLf & _
    "DO NOT FORGET TO ADJUST THE QUANTITY!", vbCritical, "IMPORTANT"
Exit_btnClose_Click:
    Exit Sub
Err_btnClose_Click:
    MsgBox Err.Description, vbOKOnly, "An Error has occured, Please inform S.Byrom"
    Resume Exit_btnClose_Click
End Sub

However, when I add a record using the button on the second form and then close it. It does not save the record just added.
Is it because the records are filtered in the open argument from the previous form?
If so, how can I get around this? If not, why will it not add a record to the table?

Thanks as always for your time.
0
Comment
Question by:Stephen Byrom
  • 2
3 Comments
 
LVL 42

Accepted Solution

by:
dqmq earned 500 total points
ID: 36556753
Try changing this line:

strWhereCriteria = "shipnote = Forms!frmXLNote!txtNoteNum"

to:

strWhereCriteria = "shipnote = " & Forms!frmXLNote!txtNoteNum


also, the line:    docmd.runcommand accmdgotorecord,, acnewrec
      is superfluous
0
 
LVL 1

Author Comment

by:Stephen Byrom
ID: 36558583
Thanks for your comment dq.
I did as you suggested and also removed the redundant line.
It still doesn't save the record though.
0
 
LVL 1

Author Closing Comment

by:Stephen Byrom
ID: 36564909
Thanks dq, I found out what was the problem. The ShipNote number was not copying, so when I re-opened the form using the where condition then naturally the newly added record would not show.
I managed to sort it out.
Thanks for pointing me in the right direction with the where criteria.
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Access Date/Time to SQL Datetime2(7) 9 22
Passing variables to a function 6 33
Turn off MS Access Default=0 for Numerics 6 23
aggregate query? 3 27
Introduction The Visual Basic for Applications (VBA) language is at the heart of every application that you write. It is your key to taking Access beyond the world of wizards into a world where anything is possible. This article introduces you to…
Overview: This article:       (a) explains one principle method to cross-reference invoice items in Quickbooks®       (b) explores the reasons one might need to cross-reference invoice items       (c) provides a sample process for creating a M…
Using Microsoft Access, learn some simple rules for how to construct tables in a relational database. Split up all multi-value fields into single values: Split up fields that belong to other things into separate tables: Make sure that all record…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

816 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now