在我的Microsoft Access数据库名称是DBMS.accdb，我有一个employee表，该表的一列是薪水。我已经创建了一个表单，并且在表单加载时，我想获取表的最高薪水并进行一些计算，然后在表单的文本框（total_salary）中设置值。我想要这样的东西
Private Sub Form_Load()
Dim salary As Number
salary = "SELECT MAX([EMP (staff) Salary]) FROM Employee"
salary = salary + (1000 / 23)
total_salary.Value = salary
End Sub
我使用互联网的帮助尝试了几种方法，但无法正常工作。我每次都会遇到一些错误。
我怎样才能做到这一点？
如果您只想获得最大值，则可以使用该DLookup函数来代替编写实际的SQL语句：
Private Sub Form_Load()
Dim salary As Double
salary = DLookup("MAX(Salary)", "Employee")
salary = salary + (1000 / 23)
total_salary.Value = salary
End Sub
或通过standrad sql
Private Sub Form_Load()
Dim salary As Double
salary = CurrentDb.OpenRecordset("SELECT MAX(Salary) FROM Employee")(0)
salary = salary + (1000 / 23)
total_salary.Value = salary
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句