Unbound Text Box 1

[Rseven]

Hi All, Was wondering if you can help. Trying to create an Access97 form where I can type a value into an unbound text box. I need some code in the AfterUpdate Event so that the other fields will populate with the record's related data. Any ideas?? I saw something similar on the sight a week or so ago, but can't find it for the life of me. Thanks in advance!!

 

[fneily]

I don't like the idea of a user typing - they make spelling errors. I'd change that to a combobox where they can just click on a selection. Then to find the appropriate record, on the AfterUpdate of the combo you'd put:

Private Sub comboboxname_AfterUpdate()
Dim R As DAO.Recordset
Set R = Me.RecordsetClone
R.FindFirst "[PrimaryKey] = " & Chr(34) & Me![ComboBoxName] & Chr(34)
Me.Bookmark = R.Bookmark
Me![ComboBoxName] = Null
End Sub

If you're primary key in numeric use:
R.FindFirst "[PrimaryKey] = " & Me![ComboBoxName]

 

[ssatech]

Why not use the Control Wizard, Select Combo Box from the Toolbox and select:

"Find a record on my form based on the value I selected in my combobox

 

[Rseven]

Thanks, This worked just fine. The only drawback is that there is over 70,000 records, so to create a combo box and have them click on a selection may not work because they would have to scroll through 70,000 records. I will use the code you provided and test it in a couple of different ways.

Thanks again!!

 

[PHV]

they would have to scroll through 70,000 records
you may consider the AutoExpand property of the ComboBox object.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886