UPdate语句语法错误？

huisiming

请问附件中点击“保存”出现的问题如何解决？

Private Sub CmdSave_Click()
On Error GoTo Err_do
Me.Child2.SetFocus
Me.Child2.Form.Recordset.MoveFirst
For i = 1 To DCount("行次", "Tab_工资_机台")
    If Me.Frame1 = 1 Then               '平时
    Me.Child2.Form.合计工资 = Round(1.5 * Me.Child2.Form.实际产量 * Me.Child2.Form.标准工价, 2)
    Else                                 '周末、假日
    Me.Child2.Form.合计工资 = Round(Me.Frame1 * Me.Child2.Form.实际产量 * Me.Child2.Form.标准工价, 2)
    End If
    Me.Child2.Form.合计工资.Requery
    Me.Child2.Form.Recordset.MoveNext
Next
Me.Child2.Form.Requery
DoCmd.SetWarnings False
DoCmd.RunSQL "Update tab_机台计件 set 分配基数=" & Me.Text30
DoCmd.SetWarnings True
Me.Child1.Form.Requery
Exit_do:
    Exit Sub
Err_do:
    MsgBox Err.Description, vbOKOnly, "提示"
    Resume Exit_do
End Sub