紧急求助!!!
麻烦各位帮我看看,下面的代码错误在哪里?Private Sub 裁剪日_BeforeUpdate(Cancel As Integer)
If Me.公司纳期 - Me.到达日 < 3 Then
Me.完成.Visible = False
Else
Me.完成.Visible = True
End If
If Me.裁剪日 = 0 Then
Me.裁剪日 = ""
ElseIf Weekday(Me.裁剪日) = vbSunday Then
Me.裁剪日 = Me.裁剪日 - vbSunday + 1
Me.ID.BackColor = RGB(255, 0, 0)
Me.合同号.BackColor = RGB(255, 0, 0)
Me.版型.BackColor = RGB(255, 0, 0)
Me.品番.BackColor = RGB(255, 0, 0)
Me.数量.BackColor = RGB(255, 0, 0)
Me.纳期.BackColor = RGB(255, 0, 0)
Me.公司纳期.BackColor = RGB(255, 0, 0)
Me.裁剪日.BackColor = RGB(255, 0, 0)
Me.到达日.BackColor = RGB(255, 0, 0)
Me.面料到日.BackColor = RGB(255, 0, 0)
Me.辅料到日.BackColor = RGB(255, 0, 0)
Me.加工指示书.BackColor = RGB(255, 0, 0)
Me.版型_仕样书.BackColor = RGB(255, 0, 0)
Me.CAD完成.BackColor = RGB(255, 0, 0)
Me.实际纳期.BackColor = RGB(255, 0, 0)
Me.纳品书号.BackColor = RGB(255, 0, 0)
Me.运单号.BackColor = RGB(255, 0, 0)
Me.收件人.BackColor = RGB(255, 0, 0)
Me.单价.BackColor = RGB(255, 0, 0)
Me.请求日.BackColor = RGB(255, 0, 0)
Me.运费.BackColor = RGB(255, 0, 0)
Me.请求.BorderColor = RGB(255, 0, 0)
Me.完成.BorderColor = RGB(255, 0, 0)
End If
End Sub
显示红色部分我不会用表达式表达,所以只好用笨办法做了,麻烦各位!!!
