我正在为一所学校创建一个简单的数据库。我目前有两个表单,即frmStudents和frmGrades。我用分数来指一年级、二年级、三年级、.、十二年级,而不是考试成绩。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我希望我的问题很清楚。提前谢谢。
发布于 2012-09-29 13:31:31
首先,你真的想这么做吗?学费在年级里已经有了,所以你在学生中需要它吗?如果你这么做了,是因为费用改变了吗?另外,学生不是每年都有不同的费用和等级吗?所以你想要第三张桌子:
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)https://stackoverflow.com/questions/12652805
复制相似问题