AfterUpdate Event for auto fill

[MNNovice]

I have a table called tblFunds with these fields: FundID (PK / Auto), FundNo (Text), FundDescr(Text), GrantNo (Text).

In a form I have several fields that came from different tables. Two of the fields came from the tblFunds: FundID (Name: cboFund) and GrantNo (txtGrant). I have this After Update Event for FundID:

Private Sub cboFund_AfterUpdate()
Me.txtGrant = Me.cboFund.Column(3)
End Sub

But it’s not populating the Grant Number upon entering the fund number and leaving it blank. What am I doing wrong?

Thanks.

[ChipR]

I would guess that it is because the combo box columns are zero indexed. Should it be .Column(2)?

[MNNovice]

I have:
Bound Column: 1
Column Counts: 3
Column Heads: No
Column Width: 0”;1”;1”;

[ChipR]

So you have .Column(0), .Column(1), and .Column(2)

[MNNovice]

Are you suggesting I have wrong column widths? Since the table has four columns and I want the 4th column to pull the data from (which the GrantNo) the column widths should be 0";1";1";1";

I don't think I am understanding. Forgive me but I am new at this things.

Thanks.

[ChipR]

The table may have four columns, but the combo box does not. You may need to change or redo the combo box.

[MNNovice]

My combo box on the form is called: cboFund. Post #3 refers to what is shown on Format Tab of cboFund.

Do I read you correct? Thanks.

[ChipR]

Right, your combo box has 3 columns. If you want to get the number in the third comlumn, you want cboFund.Column(2).

[MNNovice]

I changed it to read:

Private Sub cboFund_AfterUpdate()
Me.txtGrant = Me.cboFund.Column(2)
End Sub

End result was the same. No data in txtGrant

[ChipR]

What's the data source for cboFund?

[MNNovice]

I have a table called tblFunds with these fields: FundID (PK / Auto), FundNo (Text), FundDescr(Text), GrantNo (Text).

cboFund is pulling data from FundID

[ChipR]

What's in the other columns then?

[MNNovice]

Are you asking the data in tblFunds?

FundID: PK (Auto)
FundNo: Text (Let's say Fund number is 872)
FundDescr: Text (in this example: 872 is UPA)
GrantNo: Text (in this example: MN040012)

[NeoPa]

M,

Your GrantNo field is not included in your ComboBox control, so it is in none of the columns.

[MNNovice]

NeoPa:

I thought that's what I did. Please see post #5. And thanks for keeping an eye for this novice.

[NeoPa]

@ChipR
If you answer this question (the property we're looking for is Row Source), then we can illustrate why it's failing, and what to do to fix it.

[NeoPa]

@MNNovice
This (Column widths) won't effect what data is returned. Merely what is shown on screen when the control is dropped down.

Please see earlier post for how to make progress.
@MNNovice
Always a pleasure.

[MNNovice]

NeoPa;

I knew I was doing something really "goofeey". Thank you. It's working now. But tell me how did you figure that this was the problem? Man!! you're too good. No wonder you're the ADMINISTRATOR...LOL

Thanks.

M

[NeoPa]

Always happy to help M, but to be fair, I suspect Chip was trying to lead you in the same direction too.

Glad you got it resolved anyway :)