What is not working? Have you stepped through the code or included any debug.print?
Is there are reason for two separate Select Case rather just one?
Private Sub ItemCode_AfterUpdate()
Select Case Me.ItemCode
Case "253010417"
Me.Item = "Plastic Bag"
Me.ItemType = "Sandwich"
Me.ItemBrand = "Up&Up"
Me.PackUp = "Bag"
Case "288072410"
Me.Item = "Dairy"
Me.ItemType = "Ice Cream"
Me.ItemBrand = "Market Pantry"
Me.PackUp = "Can"
End Select
End Sub
Duane Hookom
Sent: Tuesday, November 13, 2018 1:44 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Please help, VBA code
Access 2010, Windows 7.
What is wrong? It is not working. ItemCode is TEXT in underlying table although entered data are numbers.
Private Sub ItemCode_AfterUpdate()
Select Case Me.ItemCode
Case "253010417"
Me.Item = "Plastic Bag"
Me.ItemType = "Sandwich"
Me.ItemBrand = "Up&Up"
Me.PackUp = "Bag"
End Select
Select Case Me.ItemCode
Case "288072410"
Me.Item = "Dairy"
Me.ItemType = "Ice Cream"
Me.ItemBrand = "Market Pantry"
Me.PackUp = "Can"
End Select
End Sub
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) |
Tidak ada komentar:
Posting Komentar