[5分]利用组合框取值，IF语句判断大小

很感谢煮江品茶老师的回复！

但是我测试了，效果还是不行，下附代码

Private Sub qc_weight_AfterUpdate()

Me.weight_difference.Enabled = True

'If Me.qc_weight >= Me.weight_id.Column(4) Then      '如果测量值大于或等于标准值上限，则误差值为两者正差。
  
 '  Me.weight_difference = Me.qc_weight - Me.weight_id.Column(4)      ' 标准值上限取重量标准组合框值
  
  ' Else
  ' If (Me.qc_weight < Me.weight_id.Column(4)) And (Me.qc_weight > Me.weight_id.Column(5)) Then
 
  ' Me.weight_difference = 0                                          '如果测量值在标准值上下限内，则误差值为零。
  
 '  Else
  '   Me.weight_difference = Me.qc_weight - Me.weight_id.Column(5)       '如果测量值小于标准值下限，则误差值为两者负差。
     
  ' End If
  
    
'End If
  
  '差异值=测量值-iif(测量值<最小值,最小值,iif(测量值>最大值,最大值,测量值))
  
   Me.weight_difference = Me.qc_weight - IIf(Me.qc_weight < Me.weight_id.Column(5), Me.weight_id.Column(5), IIf(Me.qc_weight >= Me.weight_id.Column(4), Me.weight_id.Column(4), Me.qc_weight))
  

Me.weight_difference.Enabled = False

End Sub