Re: [MS_AccessPros] Help with table update

 

The fields are different to what I sent initially but this below is an extract of what is being used now.  Some very old code I might add.

xx = Me!ClientNoCombo.Column(0)

varx = Me!Date

vard = Me!IssueDate

vary = Me!PolicyNo

varz = Me!Premium

varp = Me!Tax

add2 = " And [tblAllPols].[PolicyNo] = '" & vary & " ' "

add3 = " And [tblAllPols].[Premium] = " & varz

add4 = " And [tblAllPols].[ClientNo] = " & xx

vno = " And [tblAllPols].[InvNo] = 0"

add8 = " And [tblAllPols].[Tax] = " & varp

sno = DLookup("[SeqNo]", "tblAllPols", "[tblAllPols].[Issuedate] = # " & vard & " #" & vno & add2 & add3 & add4 & add8)

uquery = "update tblAllPols set InvDate = # " & varx & " # where [tblAllPols].[SeqNo] = " & sno

__._,_.___

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (3)

---

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

---

Visit Your Group

• New Members 1

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___