切换按钮以交替乘数(访问)

时间:2015-07-08 23:07:00

标签: vba ms-access access-vba

My Access DB可帮助用户处理时间卡并准备工资单和发票。该过程的一部分涉及花费工人产生的时间并将费率附加到小时以进行计费。根据目前的员工人数,可能有两种不同的账单费率需要应用于工作时间。

我正在使用切换按钮(名为tglHCFlag)供用户指定他们希望使用的计费率。这样做是因为可计费的人数必须由用户在处理时指定,并且无法从数据中计算出来。

有一个表(tblRates),其中包含切换按钮的每个状态的速率。我还想保存用户为切换按钮选择的值,以便Access可以记住'用户在此表中使用的最后一个速率(DefaultMarkup字段)。此值将用于设置表单加载时按钮的状态,因为它不会经常更改并且更方便用户。

Private Sub Form_Load()

Me.tglHCFlag.Value = DLookup("DefaultMarkup", "tblRates")

End Sub

Private Sub tglHCFlag_Click()
DoCmd.SetWarnings False

If Me.tglHCFlag.Caption = "Using 50+ Markup" Then
  Me.tglHCFlag.Caption = "Using < 50 Markup"
  DoCmd.RunSQL "Update tblRates SET DefaultMarkup = ""True"""

Else
  Me.tglHCFlag.Caption = "Using 50+ Markup"
  DoCmd.RunSQL "Update tblRates SET DefaultMarkup = ""False"""

End If

DoCmd.SetWarnings True

End Sub

问题是每次切换按钮的第一次或第二次点击(有时是第一次,有时是第二次)后,Access会对我大喊:&#34;数据已被更改。另一位用户在您尝试保存更改之前编辑了此记录并保存了更改。重新编辑记录。&#34;

我做错了什么?

0 个答案:

没有答案