根据以前的字段填充另一个表单的值

Question

我正在为学校创建一个简单的数据库。我目前有两种形式，即frmStudents和frmGrades。我使用等级来表示等级1,2,3，...，12而不是考试成绩。 frmGrades包含等级（主键）和费用。该frmStudents包含ID（主键），名，级，费等ID是一个自动生成的编号，名称是文本，并且级链接到frmGrades字段级。

我打算首先使用frmGrades输入所有等级和相应的费用。然后，我会将学生信息输入frmStudents，并从成绩列表中选择一个成绩。我的问题是如何根据所选等级自动填充费用价值？

我需要在VBA中实现这一点，但我对该语言根本不熟悉。在psuedocode这是我想要实现的：

Private Sub frmStudents_Grade_AfterUpdate() 

    frmStudents.Fees.text = "Select Fees from frmGrades where frmGrades.Grade = frmStudents.Grade" 

End Sub 

我希望我的问题很清楚。提前致谢。

Answer 1

首先，你真的想这样做吗？该费用已在年级中提供，那么您是否需要学生？如果你这样做，是否因为费用的变化？此外，不会对学生有不同的收费和等级每年，所以你会想要第三个表：

StudentID 
Date 
Grade 
Fee 

但是，如果你的设计真的这么简单，包括费作为组合列分级并更新绑定到组合栏的学生费用的文本框。学生表格上

级组合

Row Source: SELECT Grade, Fee FROM Grades ORDER BY Grade 
Bound Column : 1 
Column Count : 2 
Column Widthes: 2,0 

后更新

Me.txtFee = Me.cboGrade.Column(1)