good old arrays

Hi there,

I have attached my program which adds student names and their marks to 2 seperate list boxes once inputted using text boxes

Problem is every student name and student mark is added twice - please help me figure out why?

Second problem: I have added a find command button, so when user enters a student mark it will highlight their name and mark, but I keep getting a compile error "argument not optional" because I think one of the properties is incorrectly assigned to a listbox in a sub procedure I call...

Please help me figure out why?

Thanks in advance

Appreciate your guidance and support as always

Cheers

Why would you have the AddItem in a For Next Loop?!

Code:

---

    For Index = 1 To frmStudentMarks.Number
        lstNames.AddItem Students(Index).StudentName
        lstMarks.AddItem Students(Index).StudentMark
    Next Index

---

And what do you use the Number variable for? I see you increment it every time you add an item, but you can just use List1.ListCount to get the item count.

Also, it would be wise to use a two columned ListView instead of two separate List boxes.

You also have no error handling. (Try running the project and clicking the cmdAddRecord button without entering any data)

EDIT: And, why are you at the same time adding student/mark records to an array and to lists?

Take a look at the revised project attached.

baja yv thank you for your help but:

i have put additem in a loop so that a record is added to each list box

i have two seperate list boxes as one it to show the name inputted and the other shows the mark

all in all i have to do the task this way thats why i did do so...

i appreciate your solution but i was hoping you could find the error in my program and resolve why:

- everytime a name and mark is added it adds twice to each list box instead of once?
- when the user enters the student mark the student name and mark in the list box is not highlighted..

i know in VB there are loads of ways to do things, however I really need to do it this way...

please can you help me with my code?

Quote:

---

Originally Posted by xirokx

baja yv thank you for your help but:

i have put additem in a loop so that a record is added to each list box

...

- when the user enters the student mark the student name and mark in the list box is not highlighted..

---

That's not what Loops are for. A For loop will execute a command the number of times it iterates. So if you the For goes 5 rounds, an item will be added five times. To add to both lists simply use two lines of code, one to add to the first list and the other to add to the second list.

To highlight an item in the listbox use the ListIndex property. For example, to highlight the last item do

List1.ListIndex = List1.ListCount - 1

could you amend my code without the loop please but keep the module? i believe this will resolve the first problem i.e. not add 1 student name and mark twice...

also could you change it to show me where the code for highlighting the name and mark code should be placed?

thanks...

p.s. im just learning arrays so have to do it this way...i know your code is much cleaner..

thank you so much

Simply remove the For Next loop and leave just the .AddItem lines. And I already gave you the highlighting code: List1.ListIndex = List1.ListCount - 1
Just apply it to the Listboxes you have.

I attached an updated version of my program.

I removed the loop, and left the two additem lines so now it only adds 1 student name and 1 student mark as required..

I also used your code to find a student mark and highlight their name - BUT - the program automatically highlights the last student name and mark added which is wrong as it should highlight the student name and mark the user wants to find....please can you show me the error in my ways?

Please also take a look at my module, it only allows 20 students to be added which is wrong, what do I need to change to add as many students are required?

Finally, in the search box, there is a label below the textbox, which should display:

- student mark has been found (if it exists in the listboxes) and highlight student name and student mark in lstboxes
- student mark does not exist (if it is not in the listboxes)

Please can you show me how this is done??

Finally thank you for your guidance, help and support..

That code does select the last item in the list. It is just an example of how to do it. You have to adapt it to your needs. To select the right item you first need to find it in the list. You have to have a For Loop go through all the items in the list comparing them to what you are looking for. When you find it, use the index of the find item with the ListIndex property to have it highlighted/selected.

any chance you can show me how to do it please?

im learning and im lost

thanks

Code:

---

For I = 0 to List1.ListCount - 1
  If List1.List(I) = Text1.Text Then 'what you are looking for
      List1.ListIndex = I
      Exit For
  End If
Next I

---

Apply that general idea to your controls and code.

I have two list boxes though, doesnt the above code only take care of one listbox?

Please also take a look at my module, it only allows 20 students to be added which is wrong, what do I need to change to add as many students are required?

Finally, in the search box, there is a label below the textbox, which should display:

- student mark has been found (if it exists in the listboxes) and highlight student name and student mark in lstboxes
- student mark does not exist (if it is not in the listboxes)

Please can you show me how this is done??

Finally thank you for your guidance, help and support..

What you are asking is trivial (especially the label part). Please try to do some work yourself and not just ask to get everything done for you.

sorry its just that as I dont know sometimes you learn from seeing, i really dont intend for you to do any work for me, seeing it though helps you understand

Code:

---

Private Sub cmdFind_Click()

    Dim lngIndex As Long
   
    For lngIndex = 0 To lstMarks.ListCount - 1
        If lstMarks.List(lngIndex) = Val(txtFind.Text) Then
            lstNames.Selected(lngIndex) = True
            lstMarks.Selected(lngIndex) = True
            Exit For
        End If
    Next
   
End Sub

---

You also have at least one other problem. When an invalid grade is entered you display a message but the value is still added.

And that can be corrected as follows.

Code:

---

Private Sub cmdAddRecord_Click()
    Element = Element + 1
    Number = Number + 1
    Students(Element).StudentName = txtStudentName.Text
    Students(Element).StudentMark = txtStudentMark.Text
    If txtStudentMark.Text <= 0 Then
        MsgBox "student mark cannot be less than zero"
        Exit Sub
    ElseIf txtStudentMark.Text > 100 Then
        MsgBox "student mark cannot be greater than 100"
        Exit Sub
    End If
     
        lstNames.AddItem txtStudentName.Text
        lstMarks.AddItem txtStudentMark.Text
 
End Sub

---

You also have this in your code.

Code:

---

Public Sub DisplayStudent(Index As Integer)
    With Students(Index)
        lstNames.Selected = True
        lstMarks.Selected = True
    End With
End Sub

---

You can probably see from the code that I've already posted that your use of Selected is not correct, but why are you using the With structure?
With is meant to be used as a shortcut to coding and as a speed improvement when the program runs and it is used like this

Code:

---

Public Sub DisplayStudent(Index As Integer)
    With Students(Index)
'        lstNames.Selected = True
'        lstMarks.Selected = True
        MsgBox .StudentMark
    End With
End Sub

---

Where (if the Index were, say, 2) the MsgBox .StudentMark would be the same as MsgBox Students(2).StudentMark but faster.

thanks martin appreciate the guidance...

any chance you can show me how to resolve these issues please:

Please also take a look at my module, it only allows 20 students to be added which is wrong, what do I need to change to add as many students are required?

Finally, in the search box, there is a label below the textbox, which should display:

- student mark has been found (if it exists in the listboxes) and highlight student name and student mark in lstboxes
- student mark does not exist (if it is not in the listboxes)


thanks for your support

Quote:

---

Originally Posted by xirokx

Please also take a look at my module, it only allows 20 students to be added which is wrong, what do I need to change to add as many students are required?

---

You can't make an unlimited array. You can put a larger number for start, then check (every time you add a new item) if that number has been reached and if has use ReDim Preserve to increase it further.

thanks baja i see, so i will just make 1 to 20 a very large number like 1 to 1000 instead...

Re: this question, will my amended version of Martin's below code work? Please advise

Finally, in the search box, there is a label below the textbox, which should display:

- student mark has been found (if it exists in the listboxes) and highlight student name and student mark in lstboxes
- student mark does not exist (if it is not in the listboxes)



Private Sub cmdFind_Click()

Dim lngIndex As Long

For lngIndex = 0 To lstMarks.ListCount - 1
If lstMarks.List(lngIndex) = Val(txtFind.Text) Then
lstNames.Selected(lngIndex) = True
lstMarks.Selected(lngIndex) = True
lblresult = "your query has been found"
ElseIf lstNames.Selected(lngIndex) = false AND lstMarks.Selected (lngIndex) = false Then
lblresult = "your query does not exist please try again"
Exit For
End If
Next

End Sub


please let me know

cheers guys

After some changes ;)

In form:

Code:

---

Option Explicit

Dim Element As Integer

Private Sub cmdAddRecord_Click()
    '~~~ Checking. This should be done first !
    If Val(txtStudentMark.Text) <= 0 Then
        MsgBox "student mark cannot be less than zero. Please re-enter it"
        Exit Sub
    ElseIf Val(txtStudentMark.Text) > 100 Then
        MsgBox "student mark cannot be greater than 100. Please re-enter it"
        Exit Sub
    End If
   
    Element = Element + 1
    ReDim Preserve Students(1 To Element) '~~~> We are dynamically allocating size for the array

    Students(Element).StudentName = txtStudentName.Text
    Students(Element).StudentMark = txtStudentMark.Text

     
    lstNames.AddItem txtStudentName.Text
    lstMarks.AddItem txtStudentMark.Text
End Sub
Private Sub cmdClearRecord_Click()
    txtStudentName.Text = ""
    txtStudentMark.Text = ""
    txtStudentName.SetFocus
End Sub

Private Sub cmdFind_Click()
    '~~~~ MartinLiss's code in your thread.
    Dim lngIndex As Long
   
    For lngIndex = 0 To lstMarks.ListCount - 1
        If Val(lstMarks.List(lngIndex)) = Val(txtFind.Text) Then
            lstNames.Selected(lngIndex) = True
            lstMarks.Selected(lngIndex) = True
            Exit For
        End If
    Next
End Sub

Private Sub Form_Load()
  Element = 0
End Sub

Public Sub DisplayStudent(Index As Integer)
    With Students(Index)
        .Selected = True
        .Selected = True
    End With
End Sub

---

In module:

Code:

---

Public Type StudentType
    StudentName As String
    StudentMark As Integer
End Type
Public Students() As StudentType

---

....:wave:

thanks akhilesh..appreciate your guidance...

but can you please show me where i can implement the below into the code?

Finally, in the search box, there is a label called "message" below the textbox, which should display:

- student mark has been found (if it exists in the listboxes) and highlight student name and student mark in lstboxes
- student mark does not exist (if it is not in the listboxes)

I believe it should go inside the cmdFindRecord code? But where?

Please help, i attached the program

cheers :)

Code:

---

Private Sub cmdFind_Click()
    '~~~~ MartinLiss's code in your thread.
    Dim lngIndex As Long
   
    For lngIndex = 0 To lstMarks.ListCount - 1
        If Val(lstMarks.List(lngIndex)) = Val(txtFind.Text) Then
            lstNames.Selected(lngIndex) = True
            lstMarks.Selected(lngIndex) = True
            Label1.Caption = "Record Found !"
            Exit Sub
        End If
    Next
    Label1.Caption = "Record Not found !"
End Sub

---

(I didn't tested it)
..:wave:

Code:

---

Private Sub cmdFind_Click()
Dim lngIndex As Long
   
    For lngIndex = 0 To lstMarks.ListCount - 1
        If Val(lstMarks.List(lngIndex)) = Val(txtFind.Text) Then
            lstNames.Selected(lngIndex) = True
            lstMarks.Selected(lngIndex) = True
            lblMessage.Caption = "record not found"
        ElseIf lstNames.Selected(lngIndex) = False And lstMarks.Selected(lngIndex) = False Then
            lblMessage.Caption = "record found"
            Exit Sub
        End If
    Next
End Sub

---

that doesnt quite work as intended, when it finds the first record it says found, when it finds the second record message displays "record not found"

if the record doesnt exist it still says "record found"

whats going wrong?

please advise

Try this:

Code:

---

Private Sub cmdFind_Click()
  '~~~ Deselecting any previously selected item
  If lstMarks.ListIndex <> -1 Then
    lstMarks.Selected(lstMarks.ListIndex) = False
  End If
  If lstNames.ListIndex <> -1 Then
    lstNames.Selected(lstNames.ListIndex) = False
  End If

    '~~~~ MartinLiss's code in your thread.
    Dim lngIndex As Long
   
    For lngIndex = 0 To lstMarks.ListCount - 1
        If Val(lstMarks.List(lngIndex)) = Val(txtFind.Text) Then
            lstNames.Selected(lngIndex) = True
            lstMarks.Selected(lngIndex) = True
            LblMessage.Caption = "Record Found !"
            Exit Sub
        End If
    Next
    LblMessage.Caption = "Record Not Found !"
End Sub

---

I had tested it..:wave:

thank you so much....

how can i amend the cmdfind text box to search using the marks or by the name?

i know i can use the ISNUMERIC function (I THINK) but how?

please let me know

cheers

Quote:

---

Originally Posted by xirokx

thank you so much....

how can i amend the cmdfind text box to search using the marks or by the name?

i know i can use the ISNUMERIC function (I THINK) but how?

please let me know

cheers

---

So, you want to make it available to use marks or name in the same textbox for searching?

I think ISNUMERIC will fail in certain cases. If you search this forum, you will find some posts of anhn, which he had described it in a very neat manner ..:wave:

ok will do..

should i search for any syntax in particular by ANHN?? i.e. ISNUMERIC or a particular keyterm that will enable me to acheive this task? to avoid me reading through numerous posts...

Quote:

---

Originally Posted by xirokx

ok will do..

should i search for any syntax in particular by ANHN?? i.e. ISNUMERIC or a particular keyterm that will enable me to acheive this task? to avoid me reading through numerous posts...

---

In the Advance Search page of this forum, write isnumeric in Keywords box. And for the User Name box, write anhn

Advanced Search option is available in the dropdown list of Search at the top of this page :wave:

what code am I looking for? i can find how to validate numbers but not text and numbers using your ISNUMERIC..

please help me understand the function I need...

thank you

Quote:

---

Originally Posted by xirokx

what code am I looking for? i can find how to validate numbers but not text and numbers using your ISNUMERIC..

please help me understand the function I need...

thank you

---

So what's the question?:confused:

ok well, i studied the 6 links that appeared under anhn username with regards to ISNUMERIC function...

I could not see figure out how the ISNUMERIC function can validate both text and numbers, so needed someone to guide me to the section where it shows this? or alternatively explain how a textbox can search my listbox using numbers and text?

thanks

Code:

---

Private Sub cmdFind_Click()
  '~~~ Deselecting any previously selected item
  If lstMarks.ListIndex <> -1 Then
    lstMarks.Selected(lstMarks.ListIndex) = False
  End If
  If lstNames.ListIndex <> -1 Then
    lstNames.Selected(lstNames.ListIndex) = False
  End If

    '~~~~ MartinLiss's code in your thread.
    Dim lngIndex As Long
   
    If IsNumeric(txtfind.Text) Then
        For lngIndex = 0 To lstMarks.ListCount - 1
            If Val(lstMarks.List(lngIndex)) = Val(txtfind.Text) Then
                lstNames.Selected(lngIndex) = True
                lstMarks.Selected(lngIndex) = True
                LblMessage.Caption = "Record Found !"
                Exit Sub
            End If
        Next
    Else
        For lngIndex = 0 To lstNames.ListCount - 1
            If lstNames.List(lngIndex) = txtfind.Text Then
                lstNames.Selected(lngIndex) = True
                lstMarks.Selected(lngIndex) = True
                LblMessage.Caption = "Record Found !"
                Exit Sub
            End If
        Next
    End If

    LblMessage.Caption = "Record Not Found !"
End Sub

---

thank you so much for your help and guidance i see the method of my madness and the error in my ways...

cheers :)

hey guys,

I have changed the program so that:

all names and marks entered can be sorted in descending order into two seperate listboxes...

I am trying to use "bubblesorting methods" to acheive this but just do not understand how it can be done, can someone take a look at the program and tell me how the entered names and marks can be sorted in descending order by number in the below listboxes if the user presses the sort command button?? and possibly "comment" the code so i can understand whats happening...

If you take a look at my program you will see what I mean...i have attached a copy

please help

thanks for your time and support

Quote:

---

Originally Posted by xirokx

hey guys,

I have changed the program so that:

all names and marks entered can be sorted in descending order into two seperate listboxes...

I am trying to use "bubblesorting methods" to acheive this but just do not understand how it can be done, can someone take a look at the program and tell me how the entered names and marks can be sorted in descending order by number in the below listboxes if the user presses the sort command button?? and possibly "comment" the code so i can understand whats happening...

If you take a look at my program you will see what I mean...i have attached a copy

please help

thanks for your time and support

---

Where's the code for sorting ? I didn't see any code for sorting other than 2 other listboxes and a button for SORT !
You have to do some effort !

Some links from the CodeBank:
* [VB6] Sort List/ComboBox with Options
* VB6: Sorting algorithms (sort array, sorting arrays)
...:wave:

I assume you want to keep the data together but do you want to sort on the names or do you want to sort on the marks? Also why do you have the Enabled property of lstNames and lstMarks set to False?

akhileshbc is right about showing your work but here is a sort based on the name.

Code:

---

Private Sub cmdSort_Click()

    Dim lngIndex As Long
    Dim bSwapped As Boolean
    Dim strName As String
    Dim intMark As Integer
   
    ' Since we are going to loop until bSwapped = False we need to set it to
    ' True at the start
    bSwapped = True
    Do Until Not bSwapped
        ' Set it to false so if there are no values to be swapped, the
        ' process will end
        bSwapped = False
        ' Loop through the data. we start at 1 rather than zero because we
        ' have to look at the previous value
        For lngIndex = 1 To lstNames.ListCount - 1
            ' If the current value is greater than the previous one then we
            ' need to swap the values
            If lstNames.List(lngIndex) > lstNames.List(lngIndex - 1) Then
                ' Store the high values
                strName = lstNames.List(lngIndex)
                intMark = lstMarks.List(lngIndex)
                ' Replace the high values with the low values
                lstNames.List(lngIndex) = lstNames.List(lngIndex - 1)
                lstMarks.List(lngIndex) = lstMarks.List(lngIndex - 1)
                ' Replace the low values with the stored high values
                lstNames.List(lngIndex - 1) = strName
                lstMarks.List(lngIndex - 1) = intMark
                ' Indicate that we have swapped some data
                bSwapped = True
                ' Get out of the For/Next loop
                Exit For
            End If
        Next
    Loop
   
End Sub

---

thanks for your help

unfortunately the sort is not working properly, as can be seen from the below screen shot

sort not working screenie

the numbers are not sorted in descending order in the screenshot, the number 5 should be last...please help me understand why?? im learning this and dont understand explanations found so your explanation would be most appreciated

please help to me resolve this?

thanks in advance..

The sort I provided keeps the mark with the name of the person it is associated with. So since Paul is second in the sorted list the mark of 5 he got is also second. It wouldn't make sense IMO for the two lists to be sorted separately, but you can I'm sure make that modification if you want to by duplicating the sort code and making one refer only to the lstNames and the other only to lstMarks. (Don't forget to reset bSwapped to True between the two sorts)

BTW I just realized that you wanted the output to be in the sorted lists so here is the change to do that. If you want separate sorts you should be able to modify this code.

Code:

---

Private Sub cmdSort_Click()

    Dim lngIndex As Long
    Dim bSwapped As Boolean
    Dim strName As String
    Dim intMark As Integer
   
    'Transfer the unsorted data to the sorted lists
    For lngIndex = 0 To lstNames.ListCount - 1
        lstSortedNames.AddItem lstNames.List(lngIndex)
        lstSortedMarks.AddItem lstMarks.List(lngIndex)
    Next
   
    ' Since we are going to loop until bSwapped = False we need to set it to
    ' True at the start
    bSwapped = True
    Do Until Not bSwapped
        ' Set it to false so if there are no values to be swapped, the
        ' process will end
        bSwapped = False
        ' Loop through the data. we start at 1 rather than zero because we
        ' have to look at the previous value
        For lngIndex = 1 To lstSortedNames.ListCount - 1
            ' If the current value is greater than the previous one then we
            ' need to swap the values
            If lstSortedNames.List(lngIndex) > lstSortedNames.List(lngIndex - 1) Then
                ' Store the high values
                strName = lstSortedNames.List(lngIndex)
                intMark = lstSortedMarks.List(lngIndex)
                ' Replace the high values with the low values
                lstSortedNames.List(lngIndex) = lstSortedNames.List(lngIndex - 1)
                lstSortedMarks.List(lngIndex) = lstSortedMarks.List(lngIndex - 1)
                ' Replace the low values with the stored high values
                lstSortedNames.List(lngIndex - 1) = strName
                lstSortedMarks.List(lngIndex - 1) = intMark
                ' Indicate that we have swapped some data
                bSwapped = True
                ' Get out of the For/Next loop
                Exit For
            End If
        Next
    Loop
   
End Sub

---

Here is a hint if you want to sort the two lists separately. When you are sorting the marks you will have to make sure you are sorting numbers rather than the raw list values which are strings.

yeh i sorted them into the list boxes meself :) i know a bit well a tiny amount compared to you kind sir :)

Done!!! and I feel like I learned a heck of alot because of initially seeing the code...martin did the first bit and then I did the latter part only because I had something to work on :)

Finished Version

is there a way of cleaning up the sorting code so that only one sort occurs i.e. marks by descending order whilst keeping the name?

currently the names and numbers are stored in an array but can you show me how the code would change if you stored the names and marks in a record instead of an array (without the sorting and finding)?

Thank you so much martin for your guidance, teaching and support...

Attach your project again. I'm also not sure what you mean when youb say "stored the names and marks in a record instead of an array".

I have attached the program...

as you see currently the names and marks are stored in an array called "student"...

but i want to improve the program and store the names and marks in 1 record per student instead and not use the array "student" at all....this has nothing to do with the finding or sorting of the names...

so to recap currently the student array, consists of "x" records, which have 2 fields i.e. name and marks...

but i want to rewrite the program so when i press the "add button", the name and mark is added to one single record for student 1, then another for student 2 etc, and not use the "student" array at all

please help...

thanks

Okay I have several questions.

1) Why do you have lstMarks and lstNames disabled?
2) Why are you adding the entered data to lstSortedMarks and lstSorted Names at data entry time?
3) You say "i want to improve the program and store the names and marks in 1 record per student". Are you talking about saving the data in a database so that you can use the same data next time or are you talking about just keeping the data together in your program? I ask because your Students array is getting filled with one record for each name which contains a "record" for each name and its associated mark but you aren't doing anything with it except to fill it.
4) You asked "is there a way of cleaning up the sorting code so that only one sort occurs i.e. marks by descending order whilst keeping the name?" and the answer is yes but to be sure I understand you, if the unsorted data looks like this
Andy - 44
Sandra - 55
Joe - 66

do you want the output to look like this?
Joe - 66
Sandra - 55
Andy - 44

see below

here are the answers:

Quote:

---

1) Why do you have lstMarks and lstNames disabled?

so users cannot click on them and type anything inside them, just to lock them really...is that not the correct way?

2) Why are you adding the entered data to lstSortedMarks and lstSorted Names at data entry time?

what is the alternative - to only sort and output when cmdFind is clicked?? is it deemed bad practice to enter them during data entry time? if yes i will change that, just could do with some expert guidance to determine if its good or bad..here i just need your advise, if its bad i will change it :)

3) You say "i want to improve the program and store the names and marks in 1 record per student". Are you talking about saving the data in a database so that you can use the same data next time or are you talking about just keeping the data together in your program? I ask because your Students array is getting filled with one record for each name which contains a "record" for each name and its associated mark but you aren't doing anything with it except to fill it.

I am talking about just keeping the data together in my program..

Answer: Im a bit confused at this stage aswell, work with me and I am sure we will crack it....I had to first " Create a program for users to enter student’s name and exam mark. When the Add button was clicked, the entered data are added to the arrays and list boxes (one array and list box for names, the other array and list box for marks).

is this done correctly? because I declared the array i.e. "students" in my module, a record is "an element in the array - i.e. studentname or studentmarks - so there are two records in one array" and finally "student(element).studentname is one field in the record of which i have a total of two fields"

BUT I think there maybe an error I have 1 array only, but I need 2, one for names the other for marks....how can I split the current code into two arrays, perhaps I dont need a seperate module at all? im not sure what the "right" way is of doing it..

then I have to:

Improve the program, where the students’ names and marks are stored in a record, rather than arrays - so i think I need to get rid of the "students" array altogether, keep the studentname AND studentmarks elements which are seperate records and possibly can get rid of field i.e. student(element).studentname because I will not be using the array anymore...

IMO I think you just omit "students" plus the "new added" array's of which was "students array" is declared in my module - what do you think? but I am unsure of how you would write the program just using the two records i.e. studentname and studentmarks so that when you click on the cmdadd button it places the student name and mark in 1 record instead of into an array...

The key is to differeniating between arrays and records...so you make 1 version of the program using arrays and another version using records only - which im trying to learn so if apologise if my terminalogy is incorrect...

4) You asked "is there a way of cleaning up the sorting code so that only one sort occurs i.e. marks by descending order whilst keeping the name?" and the answer is yes but to be sure I understand you, if the unsorted data looks like this

I figured it out by duplicating your code and tweaking it but to answer your question, yes - if you were to clean up the code I would want it to look like in your example as it does now after I used your code but its just that I have two versions of your code in my program when I wondered if I could have one copy of it but get it to work as you did below....look at the last project I uploaded this will clarify what I mean by using your code twice...

---

thanks for your continued help and support your guidance is really helping me...

1) You're confusing listboxes with certain styles of comboboxes. You can't type data directly into a listbox so they don't need to be disabled. BTW if you had more than about 10 names scrollbars would appear but you couldn't use them if the list was disabled.

2) I would not add the data to the sorted lists until the data is actually sorted since, for one, they are in a frame that says "Sorted Output" which it isn't until it's sorted. You have several alternatives here.
--a) Don't add the data to the sorted lists until the Sort button is clicked
--b) Remove the sorted listboxes and sort the data in lstNames and lstMarks when the Sort button is clicked
--c) Remove the Sort button and sort the data in the sorted lists dynamically every time a new record is added to the unsorted lists
--d) Remove the Sort button and the sorted lists and sort the data in the unsorted lists dynamically every time a new record is added

3) In my estimation you haven't done exactly what your instructor asked for which apparently was "When the Add button was clicked, the entered data are added to the arrays and list boxes (one array and list box for names, the other array and list box for marks)", but you're close. While you have two listboxes you don't have to arrays; you only have one and that is Students and it contains both the names and marks. As I mentioned previously you aren't actually using the Students array. Are you supposed to? If you want two arrays it would be pretty simple to do.

We can talk about 3 some more if you want to but I'd like to suggest another improvement and that is to get rid of your Clear button and instead clear txtStudentName and txtStudentMark at the end of cmdAddRecord_Click()

1. yes thats correct, i will enable them...i forgot that rule - thank you :)

2. Here I already removed the code that adds the data to the sorted boxes when the add button is clicked and made the data appear only when the sort button is pressed - thank you :)

3. yes i agree, i made a bad error there :( ...... i do need two arrays, one for marks and one for student names - i dont even think i need a BAS module as thats is required only when there is more then 1 form (yes i am supposed to use the arrays, i thought i was when the data was going into the listbox but logically thinking about it, data is going inside the listboxes but not the arrays)...

im unsure how to create two arrays to add data to them and the listboxes..would you help me to understand as im close you say? i have uploaded the latest version of my project...

i think your improvement sounds great and removing the clear button altogether

moving forward, if two arrays are created and data is stored in them as well as the listboxes, then would it be hard to create the final updated version of the program which is storing the data in one record instead of using two arrays? does that make sense now???

thanks martin really appreciate your guidance

When you say you want to store the name and mark in one record, unless you are talking about a database then you are already doing that when you add them to the Students array so you may not want to get rid of that array.

To create two separate arrays just do this in frmStudentMarks

Code:

---

Option Explicit
Dim Element As Integer
Private NameArray() As String
Private MarkArray() As Integer

---

and fill them in cmdAddRecord_Click just like you the Students array.

do i still need need the module?

do i still need the "students" array?

can you provide me with an example of how it should look if i dont need use the module?

thank you

Do you still need the module, no but if you want to keep the Students array you'll need to make it Private in the form.

I just showed you how to use the new arrays. Give it a try and I'll help if you need it.

i removed the module as its not required.... here goes

Code:

---

Option Explicit
Dim Element As Integer
Private NameArray() As String
Private MarkArray() As Integer

Private Sub cmdAddRecord_Click()
    '~~~ Checking. This should be done first !
    If Val(txtStudentMark.Text) <= 0 Then
        MsgBox "student mark cannot be less than zero. Please re-enter it"
        Exit Sub
    ElseIf Val(txtStudentMark.Text) > 100 Then
        MsgBox "student mark cannot be greater than 100. Please re-enter it"
        Exit Sub
    End If
   
 
    NameArray().StudentName = txtStudentName.Text
    MarkArray().StudentMark = txtStudentMark.Text

     
    lstNames.AddItem txtStudentName.Text
    lstMarks.AddItem txtStudentMark.Text


End Sub

---

that doesnt work, i receive an "invalid qualifer" error message...

im confused with how to get assign the array to "txtstudent and txtmark.text" any ideas?? is that my error??

Notice this code that used to be in cmdAddRecord_Click

Code:

---

    Element = Element + 1
    ReDim Preserve Students(1 To Element) '~~~> We are dynamically allocating size for the array

    Students(Element).StudentName = txtStudentName.Text
    Students(Element).StudentMark = txtStudentMark.Text

---

Do you see the difference from what you are doing?

ahhh haaa, i wasnt increasing the element by 1 each time a record was added, i wasnt assigning the data entered into the arrays...and as I am using a dynamic array, I wasnt allocating the size to the array...

is that right? perhaps im not explaining it correctly..but i changed the code to this and it works :)

Code:

---

Option Explicit
Dim Element As Integer
Private NameArray() As String
Private MarkArray() As Integer

Private Sub cmdAddRecord_Click()


    '~~~ Checking. This should be done first !
    If Val(txtStudentMark.Text) <= 0 Then
        MsgBox "student mark cannot be less than zero. Please re-enter it"
        Exit Sub
    ElseIf Val(txtStudentMark.Text) > 100 Then
        MsgBox "student mark cannot be greater than 100. Please re-enter it"
        Exit Sub
    End If
   
    Element = Element + 1
    ReDim Preserve NameArray(1 To Element)
    ReDim Preserve MarkArray(1 To Element)
 
    NameArray(Element) = txtStudentName.Text
    MarkArray(Element) = txtStudentMark.Text

     
    lstNames.AddItem txtStudentName.Text
    lstMarks.AddItem txtStudentMark.Text

End Sub

---

please comment

p..s do i still need this in my program, im not sure what it does tbh...i removed it and my program works, as im not using the "student" array anymore i dont think its needed, what do you think?

Code:

---

Public Sub DisplayStudent(Index As Integer)
    With Students(Index)
        lstNames.Selected = True
        lstMarks.Selected = True
    End With
End Sub

---

now my program consists of 2 arrays right? markarray and namearray ???

going back to my other issue which was:

"Improve the program, where the students’ names and marks are stored in a record, rather than arrays "

do you understand what i need to do because im still a tad bit lost on that? please clarify

thank you so much

Do a Find in your program for DisplayStudent. Do you find any place where it is called? Your answer to that question should tell you all you need to know.

thanks once again, i didnt think so,

how about the following can you help me resolve these issues please:

now my program consists of 2 arrays right? markarray and namearray ???

going back to my other issue which was:

"Improve the program, where the students’ names and marks are stored in a record, rather than arrays "

do you understand what i need to do because im still a tad bit lost on that? please clarify.....

do I now create a module and replace the arrays (name and mark) with what I used previously? i.e.

Students(Element).StudentName = txtStudentName.Text
Students(Element).StudentMark = txtStudentMark.Text

this is what i think as "students" could be classed as 1 record - i kinda of think but am not 100% sure...

whats your thoughts??

thank you so much

First of all I'll play Dad (or Granddad since I'm 69) here but you should get some sleep:)

Quote:

---

Originally Posted by xirokx

thanks once again, i didnt think so,

how about the following can you help me resolve these issues please:

now my program consists of 2 arrays right? markarray and namearray ???
Yes

going back to my other issue which was:

"Improve the program, where the students’ names and marks are stored in a record, rather than arrays "


do you understand what i need to do because im still a tad bit lost on that? please clarify.....

do I now create a module and replace the arrays (name and mark) with what I used previously? i.e.

Students(Element).StudentName = txtStudentName.Text
Students(Element).StudentMark = txtStudentMark.Text

this is what i think...

whats your thoughts??
First you need to tell me what you mean by a record. If you mean something like an entry in the former Students array then yes you need the Students array but that doesn't have to be in a module. You now know how to create an array in the form, right?
thank you so much

---

I will sleep once this is nearly finished, trust me i will sleep alot better :)

to be totally honest and upfront with you, i dont know what it means....

if i had to take a guess i would say it was the way I had it before i.e. "students" but I would have called that an array wouldnt you?

what do you make of it? "Improve the program, where the students’ names and marks are stored in a record, rather than arrays"

because one of my latter questions is to explain the characteristics of records and arrays, to which I would say, records allow the user to store mixed variables and arrays do not like in my program, student is string and mark is integer...

then a further question is: why in this program is it better to use a record instead of an array, to which I would answer because this program consists of mixed variables :)

so a record here is not something we are storing in a database, instead the two entities i.e. studentname and mark are being stored inside it, which IMO was the way I had it before...

but kind sir, what do you think as you are "the VB guru" and im a sleep deprived guy who cannot think straight and has until the other half comes in and drags me to bed not in a nice way....

so please do kindly advise the way you intrepret that especially knowing the latter questions...

the point of this is apparently to teach me arrays and records (without actually teaching me, if that makes any sense)

thank you so much, wish my grandad was like you