Showing query results in a form

[igor221189]

Hello everyone.

I have Access 2000 database which holds student records in the school.It stores subject grades for each student.In the 'Student Grade Form', I would like to search student surname using a query rather than scrolling down through 100s of names.Also, I would like the results of the query search to show in the form automatically in fields of 'Student name' and 'Student surname' based on the results.Is there any way I can do this?Should I create a subform?

So far, I have created a query to find student name in a another form called 'Student Form', where query results show in a new form called: 'Query for form'.On this form,I have a button to go back to the 'Student Form'.

Thanks guys for your time and help.

Below, VBA code for three forms:

Form_Student grade

Option Compare Database
 
Private Sub Command14_Click()
On Error GoTo Err_Command14_Click
 
 
    DoCmd.GoToRecord , , acPrevious
 
Exit_Command14_Click:
    Exit Sub
 
Err_Command14_Click:
    MsgBox Err.Description
    Resume Exit_Command14_Click
 
End Sub
Private Sub Command15_Click()
On Error GoTo Err_Command15_Click
 
 
    DoCmd.GoToRecord , , acNext
 
Exit_Command15_Click:
    Exit Sub
 
Err_Command15_Click:
    MsgBox Err.Description
    Resume Exit_Command15_Click
 
End Sub
Private Sub Command16_Click()
On Error GoTo Err_Command16_Click
 
 
    DoCmd.GoToRecord , , acNewRec
 
Exit_Command16_Click:
    Exit Sub
 
Err_Command16_Click:
    MsgBox Err.Description
    Resume Exit_Command16_Click
 
End Sub
Private Sub Command17_Click()
On Error GoTo Err_Command17_Click
 
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
Exit_Command17_Click:
    Exit Sub
 
Err_Command17_Click:
    MsgBox Err.Description
    Resume Exit_Command17_Click
 
End Sub
Private Sub Command18_Click()
On Error GoTo Err_Command18_Click
 
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
Exit_Command18_Click:
    Exit Sub
 
Err_Command18_Click:
    MsgBox Err.Description
    Resume Exit_Command18_Click
 
End Sub
 

Form_Student

Option Compare Database
 
Private Sub Command18_Click()
On Error GoTo Err_Command18_Click
 
 
    DoCmd.GoToRecord , , acNext
 
Exit_Command18_Click:
    Exit Sub
 
Err_Command18_Click:
    MsgBox Err.Description
    Resume Exit_Command18_Click
 
End Sub
Private Sub Command19_Click()
On Error GoTo Err_Command19_Click
 
 
    DoCmd.GoToRecord , , acPrevious
 
Exit_Command19_Click:
    Exit Sub
 
Err_Command19_Click:
    MsgBox Err.Description
    Resume Exit_Command19_Click
 
End Sub
Private Sub Command20_Click()
On Error GoTo Err_Command20_Click
 
 
    DoCmd.GoToRecord , , acNewRec
 
Exit_Command20_Click:
    Exit Sub
 
Err_Command20_Click:
    MsgBox Err.Description
    Resume Exit_Command20_Click
 
End Sub
Private Sub Command21_Click()
On Error GoTo Err_Command21_Click
 
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
Exit_Command21_Click:
    Exit Sub
 
Err_Command21_Click:
    MsgBox Err.Description
    Resume Exit_Command21_Click
 
End Sub
Private Sub Command31_Click()
On Error GoTo Err_Command31_Click
 
    Dim stDocName As String
 
    stDocName = "Search by student surname"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
 
Exit_Command31_Click:
    Exit Sub
 
Err_Command31_Click:
    MsgBox Err.Description
    Resume Exit_Command31_Click
 
End Sub
Private Sub Command33_Click()
On Error GoTo Err_Command33_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Query for form"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Command33_Click:
    Exit Sub
 
Err_Command33_Click:
    MsgBox Err.Description
    Resume Exit_Command33_Click
 
End Sub
Private Sub Command34_Click()
On Error GoTo Err_Command34_Click
 
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 2, , acMenuVer70
 
Exit_Command34_Click:
    Exit Sub
 
Err_Command34_Click:
    MsgBox Err.Description
    Resume Exit_Command34_Click
 
End Sub
 

Form_Query for form

Option Compare Database
 
Private Sub Command19_Click()
On Error GoTo Err_Command19_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Student"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Command19_Click:
    Exit Sub
 
Err_Command19_Click:
    MsgBox Err.Description
    Resume Exit_Command19_Click
 
End Sub

[NeoPa]

Check out Example Filtering on a Form for help with this concept.