Re: [MS_AccessPros] Need help with VBA code

 

Brilliant minds think alike?  :-) 

John Viescas, author

Effective SQL

SQL Queries for Mere Mortals

Microsoft Office Access 2010 Inside Out

Microsoft Office Access 2007 Inside Out

Building Access Applications

http://www.viescas.com/

On Apr 15, 2017, at 20:58, 'Bill Mosca' wrmosca@comcast.net [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:

Use the CheckNo's AfterUpdate event to set the Payment Type. This is air code so you might have to adjust the control names to match yours.

 

Private Sub Check_No_AfterUpdate()

            If Len(Me. Check_No & "") > 0 Then

Me.Payment_Type = "Check"

            Else Me.Payment_Type = "Cash"

            End If

End Sub

 

Regards,
Bill Mosca,
Founder, MS_Access_Professionals

MS Access MVP 2006-2016
That'll do IT http://thatlldoit.com

My Nothing-to-do-with-Access blog

http://wrmosca.wordpress.com

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com]
Sent: Saturday, April 15, 2017 11:06 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Need help with VBA code

 

 

Access 2010,

On a form there are 2 text boxes, "Check No" (it is number field) and then" Payment type" (it is text field). I need code for on got focus event of the" Payment type" to be = to Check if there is a value in "Check No" otherwise to be = to Cash

Thank you

 

__._,_.___

---

Posted by: John Viescas <johnv@msn.com>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (5)

---

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

.

__,_._,___