Visual Basic Forum for Visual Basic Programmers VB

[Philwn]

I have a drop down box in an access database form.
the drop down box has a bunch of serial numbers in, once a serial number has been entered completely or selected it should fetch the other records in the database and update the text boxes on the form.

How would this be possible?
_________________
Nothing good to put here

[Avis]

Hello Philwn,

You can use the KeyPress event of the drop down box to update the text boxes. For eg:

[vb:1:da7481908a]Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
'update text box
'code comes in here
End If
End Sub[/vb:1:da7481908a]

Now whenever the user presses the ENTER key the update code will be executed. You can also put this code in LostFocus event. I hope you get it.

Thanks!
_________________
Code Snippets, Tutorials, Utilities, Controls

Low cost Web Hosting
Hosting starts at as low as $4 per year!

Always follow posting guidelines
Put your VB code in [vb ] your code [ /vb] tags!

[Philwn]

yes but my problem is that how do i fetch the the records from the table, i havent done much with databases and vba
_________________
Nothing good to put here

[P.T.A.M.]

You can loop through the items and find the serial number matches :

[vb:1:d4390296fa]Rs.MoveFirst
Do While Not Rs.EOF
If Rs.Fields("SerialOrWhatever") = cboSerial.Text Then
sometxtbox.Text = Rs.Fields("SomeOther")
anotherone.Text = Rs.Fields("Another")
Exit Do
Else
Rs.MoveNext
End If
Loop[/vb:1:d4390296fa]

I hope it's right, I haven't tested but I think you can see the logic
_________________
No one is completely useless. They can at least be an example of what to avoid.

[Philwn]

thanks ptam i think im gettin closer,
if used the following code:

[P.T.A.M.]

I don't see anything wrong... Could you post the project with the DB so I can have a look? If you want
_________________
No one is completely useless. They can at least be an example of what to avoid.

[Philwn]

may be a while tho cos ill have to remove some records as its 17mb and its a database for work so some info will not be aloud transfered with it, ill post when redy tho
_________________
Nothing good to put here

[Philwn]

its a database created in access 2003 using VBA within the database, do u have 2003 to use? if not i may be able convert it to older access format
_________________
Nothing good to put here

[P.T.A.M.]

If you could save it as 2000 format it would be nice... :angel:
_________________
No one is completely useless. They can at least be an example of what to avoid.

[Avis]

Hi Philwn,

I got the db. Now can you explain on what base you want to refresh what text boxes ?

Thanks!
_________________
Code Snippets, Tutorials, Utilities, Controls

Low cost Web Hosting
Hosting starts at as low as $4 per year!

Always follow posting guidelines
Put your VB code in [vb ] your code [ /vb] tags!

[Philwn]

using the code p.t.a.m gave me after altering it to correct names

[Avis]

Hello!

I have made a sample program for you. It can be optimized but for that you have to change the fields name in the table. As you're using "Serial Number" whereas the optimized version requires "Serial_Number".

If you remove the space in the field names then the code in the demo can be optimized and will be more faster and efficient.

I am attaching the project. Also Compact your database. It'll reduct to 200-300 KB instead of MB's

Thanks!
_________________
Code Snippets, Tutorials, Utilities, Controls

Low cost Web Hosting
Hosting starts at as low as $4 per year!

Always follow posting guidelines
Put your VB code in [vb ] your code [ /vb] tags!

[Philwn]

ok i opened yours and coding was same apart from serial_number but when using it it wouldnt work cos of the visual basic files included with it not because of problems with code didnt even get to testin if code worked or not.

so i read the code and your post and to me it sounded like i just had to change that one part to serial_number, i do that and now the first line of code turns up an error highlighted in yellow (rs.movefirst)

????????????????
_________________
Nothing good to put here

[Avis]

hello Philwn,

I forgot to mention you need to add a refrence to your VB project. You can do it by going Project > Refrences > Microsoft ActiveX Data Objects 2.5 Library (Check this and Press OK).

Then try executing the project without any changes. I have not implemented the serial_number thing yet so you don't have to change it. Just set the refrence as i mentioned above and run the project.

Hope this helps!

Thanks!
_________________
Code Snippets, Tutorials, Utilities, Controls

Low cost Web Hosting
Hosting starts at as low as $4 per year!

Always follow posting guidelines
Put your VB code in [vb ] your code [ /vb] tags!

[Philwn]

ok, but i am not creating a seperate vb application im doing it in vba on the form within the database will this still work?
_________________
Nothing good to put here