Re: [MS_AccessPros] Update table using a recordset

 

Toukey,

Have you tried any trouble-shooting such as setting break points, debug.print, or others? What were your results?

Is there a reason you didn't simply use an update query in place of a recordset?

Regards,

Duane

---

From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of toukey1 <no_reply@yahoogroups.com>
Sent: Friday, June 21, 2019 7:49 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Update table using a recordset

 

Hi,

The intent of the code below is to update 3 values in the table "tblAllPols" based on the values found in the variable strsql1.  I am getting the correct rows when I run through the code in the "For inti........" statement but it's just not updating the table with the InvoiceNo, Date and Currency.

Set dbs = CurrentDb

strsql1 = "SELECT tblAllPols.SeqNo FROM tblAllPols WHERE [tblAllPols].[Issuedate] = # " & vard & " #" & vno & add2 & add3 & add4 & add8

strSQL = "SELECT * from [tblAllPols]"

Set rst = dbs.OpenRecordset(strSQL)

Set rst1 = dbs.OpenRecordset(strsql1)

rst1.MoveLast

rst1.MoveFirst

noorecords = rst1.RecordCount

For inti = 0 To (noorecords - 1)

        burgarray(0, inti) = rst1!SeqNo

        rst1.MoveNext

    Next

saverec = MsgBox("Do you want to save this record?", vbYesNo)

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

If saverec = vbYes Then

For inti = 0 To (noorecords - 1)

    With rst

        .Edit

        !InvNo = Me!InvoiceNo

        !InvDate = Me!Date

        !Currenc = Me!Currency

        .Update

    End With

Next

 rst.Close

 rst1.Close

    

    

End If

Any assistance would be greatly appreciated

Regards

Toukey

__._,_.___

---

Posted by: Duane Hookom <duanehookom@hotmail.com>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (2)

Visit Your Group

• Privacy • Unsubscribe • Terms of Use

SPONSORED LINKS

.

__,_._,___