Jonno-Blood

Okay, I really didn't want to start a thread for this here but I can't find the answer anywhere on the internet (and I know some smart a*se will find it on google in minutes but I couldn't) and I know a few people on here are knowledgable.

Right, for my A-level Computing course I've got to do a project for one of my modules, and one particular part of this project that I've chosen is finding a name on a list and adding it to the team for a selected event. So on that form, when it loads, I have loaded in the people names into a list box from a .csv file, and I then have 3 boxes; one for first name, one for surname, and one for yeargroup. What I want it to do is as you type in any of the 3 boxes, it filters out those names in the list box that don't contain that entry, such as typing "Ry" in the first name box will only show those with "Ry" in their first name.

The way I've tried is to use a "Found" flag but that doesn't work at all so hopefully someone can point me in the right direction. And I would ask my teacher but we've gotta do it as independently from them as possible, so doing our own research.

Hope it's clear what I'm after and someone can help :thup: cheers.

Jonno-Blood

At least I think it's very simple and it's VB6 btw.

foxmad

I'm guessing you'd have to do a find for each letter going, not quite sure how you'd do it as I'm pretty pathetic on it.

But unless there is a command which does exactly what you say I reckon the best option would be to do a loop (maybe) of finds in that text box.

Jonny "Kid" Pilko

Just a guess Jonno, but have you tried going:

Insert > Formulae > Search

And tried setting it up so you can search for the text?
I am unfamiliar with this particular function due to the fact the ones I need are IF, COUNTIF, FIND, REPLACE and SUM.

Jonno-Blood

<pre class="ip-ubbcode-code-pre">Private Sub FirstNameTxtBox1_Change()Open "Names.csv" For Input As #1Input #1, PupilFirstName1, PupilSurname1, PupilYear1, Junk, Junk, Junk, Junk, JunkDoInput #1, PupilFirstName1, PupilSurname1, PupilYear1, Junk, Junk, Junk, Junk, JunkFound = TrueFor Counter = 0 To PupilList1.ListCount - 1If PupilFirstName1 = "FirstNameTextBox1" Then Found = FalseNextIf Found = False Then PupilList1.AddItem Left(PupilYear1 + " ", 3) + Left(PupilSurname1 + " ", 21) + Left(PupilFirstName1 + " ", 14)Loop Until EOF(1)Close #1End Sub</pre>

The way I've tried already, probably sounds a stupid way of doing it tbh, but I've just started with this, having never done VB before.

Please work code *fingers crossed*

sean_oc16

This is the second year of your course, right? Strange you haven't met VB yet, I remember doing it in AS ICT and that isn't based on the programming side of computers either.

Jonno-Blood

Yeah it's A2 now. We did a bit of it last year I guess but it was really really simple problems like making a calculator that adds, subtracts, multiplies and divides. By saying I've never done VB before, I meant I had never met something like this.

tim1000000

unless i'm misunderstanding the change event or the problem itself, you'll make life easier for yourself by just loading the csv file once and storing it in memory. at the moment aren't you reloading everything every time you change the text box?

i don't really understand your problem though, why do you need three different combo boxes?

vb6 seems like such a strange language to teach new learners.

foxmad

We've got to do a petrol pump program for our AS Level, really not liking any of the computer course at the minute.

Downloaded a vb6 compatible Rodents Revenge game and that seems to see me through the boredom of our teacher.

Reckon I'm going to drop it for A2.

Jonno-Blood

Well reloading it every time is the only way I know and its not 3 different combo boxes, I got a list box to show the list of names, and then 3 text boxes to enter what first name, surname or year group you want to show.