Solved

AfterUpdate Issue

Posted on 2011-02-16
9
328 Views
Last Modified: 2013-11-05
I have a form which contains a combo box.  When the user selects a record from the combobox, an afterupdate event takes place to autopopulate 29 fields on the form.  But it seems to NOT populate fields if a field value is empty.  Or at least I think that is the problem.  Up to the point of the empty field all is ok, but after that point, not fields seem to populate.  Here is the code for the after update event.  Can someone tell me what I'm doing wrong?

    Me.txtCustomer_1 = Me.txtPart_No.Column(1)
    Me.txtPatterns_On = Me.txtPart_No.Column(2)
    Me.txtPattern_Type = Me.txtPart_No.Column(3)
    Me.txtFlask_Size = Me.txtPart_No.Column(4)
    Me.txtPatt_Loc = Me.txtPart_No.Column(5)
    Me.txtCBs = Me.txtPart_No.Column(8)
    Me.txtCPC = Me.txtPart_No.Column(9)
    Me.txtMetal = Me.txtPart_No.Column(10)
    Me.txtHeatTreat = Me.txtPart_No.Column(11)
    Me.txtPaint = Me.txtPart_No.Column(12)
    Me.txtWeight_Cstg = Me.txtPart_No.Column(13)
    Me.WghtEst = Me.txtPart_No.Column(14)
    Me.txtWeight_Mold = Me.txtPart_No.Column(15)
    Me.txtSI = Me.txtPart_No.Column(16)
    Me.txtRemarks = Me.txtPart_No.Column(17)
    Me.txtRemarks_2 = Me.txtPart_No.Column(18)
    Me.txtBrinell = Me.txtPart_No.Column(19)
    Me.txtCert = Me.txtPart_No.Column(20)
    Me.txtPriceRem = Me.txtPart_No.Column(21)
    Me.txtQualityRem = Me.txtPart_No.Column(22)
    Me.chkbxBlanketOrd = Me.txtPart_No.Column(23)
    Me.txtMachining = Me.txtPart_No.Column(24)
    Me.txtChillNcombined = Me.txtPart_No.Column(25)
    Me.txtRev = Me.txtPart_No.Column(26)
    Me.chkbxInclSC = Me.txtPart_No.Column(27)
    Me.chkbxSerialize = Me.txtPart_No.Column(28)
    Me.txtOPother = Me.txtPart_No.Column(29)
   
    Me.txtCores_Type = getLevels(Me.txtPart_No.Value)
    Me.txtCB_Loc = getLocations(Me.txtPart_No.Value)

--Steve
0
Comment
Question by:SteveL13
  • 3
  • 3
  • 3
9 Comments
 
LVL 44

Expert Comment

by:GRayL
Comment Utility
why are you calling a combo box txtPart_no?
0
 

Author Comment

by:SteveL13
Comment Utility
I had mis-named it way back when it was developed.  I should have named it cboPart_No.  But does the name matter?
0
 
LVL 44

Expert Comment

by:GRayL
Comment Utility
No, but it sure throws troubleshooting for a loop.
0
 
LVL 44

Expert Comment

by:GRayL
Comment Utility
BTW, you are aware that the column index is 0 based? ie.  the first value of the column array is column(0)?
0
Top 6 Sources for Identifying Threat Actor TTPs

Understanding your enemy is essential. These six sources will help you identify the most popular threat actor tactics, techniques, and procedures (TTPs).

 

Author Comment

by:SteveL13
Comment Utility
Yes.  But column (0) is actually the Part no which does not need to be populated to any field because that is the key being selected from the combobox.
0
 
LVL 3

Expert Comment

by:DockieBoy
Comment Utility
What is the record source for the combo?
0
 

Author Comment

by:SteveL13
Comment Utility
It is tblPartsMasters
0
 
LVL 3

Expert Comment

by:DockieBoy
Comment Utility
Sorry, should have asked before if you can upload the db.
0
 
LVL 3

Accepted Solution

by:
DockieBoy earned 500 total points
Comment Utility
Also, something to consider, if the controls that are effected by the combo box are not to be edited by the user, you could try setting their control source to the appropriate column of the combo box.

eg:

Go to the properties sheet for the text box "txtCustomer_1" and in the control source, put the follolwing

=[txtPart_No].Column(1)

Alternatively, you could try using the "On Change" event for the combo box.  The After Update event is occurring when you exit the combo box to another control or when you save the record.  Their are other events in between that could be causing the problem, however, without seeing the db, this is just speculation.
0

Featured Post

Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

Join & Write a Comment

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…
A simple tool to export all objects of two Access files as text and compare it with Meld, a free diff tool.
Familiarize people with the process of utilizing SQL Server functions from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Ac…
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship. Add the tables: Create the relationship: Decide if you’re going to set referential integrity: Decide if you want cascade upda…

762 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