条件代码问题

pq318

请教一下，这段代码怎么修改才是对的啊，关键是加上Select就有问题，如何解决，谢谢了！
Public Sub Form_BeforeUpdate(Cancel As Integer)
If Month(Now()) < 10 Then mon = "0" & Month(Now()) Else mon = Month(Now())
If Day(Now()) < 10 Then da = "0" & Day(Now()) Else da = Day(Now())
Me.Label2 = Mid(Year(Now()), 1, 4) & "-" & mon & "-" & da
rq = Mid(Year(Now()), 3, 2) & mon & da
TempidD = Me.Label49
TempidH = Me.Label20
If Mid(Me.Label37, 1, 2) = "SD" Then
Select Case Label20
Case Mid(Me.Label20, 3, 6) <> rq
Me.Label20.value = "CD" & Mid(TempidH, 3, 6) & TempidD & Mid(TempidH, 10, 2) & "2-001" 'sd成品
Case Mid(Me.Label20, 3, 6) = rq
Me.Label20.value = "CD" & Mid(TempidH, 3, 6) & TempidD & Mid(TempidH, 10, 2) & Format(Val(Right(TempidH, 3)) + 1, "000") 'sd成品
ElseIf Mid(Me.Label37, 1, 2) = "SW" Then
Case Mid(Me.Label20, 3, 6) <> rq
Me.Label20.value = "CW" & Mid(TempidH, 3, 6) & TempidD & Mid(TempidH, 10, 2) & "2-001" 'sd成品
Case Mid(Me.Label20, 3, 6) = rq
Me.Label20.value = "CW" & Mid(TempidH, 3, 6) & TempidD & Mid(TempidH, 10, 2) & Format(Val(Right(TempidH, 3)) + 1, "000") 'sd成品
End If
End Sub

aslxt

你提问的方式有问题：
1、应该具体指出那一行有问题，不要让别人研究你的代码；
2、类似的描述不清的、代码较长的，应该上传实例，并明确问题在那个事件的代码中；
3、还要描述你想干什么？

pq318

在其中，箱号的问题，它是自动生成，并且每天12点的时候就会后三位编号重置为0，还有就是箱数的数字相同的时候，不用自动增长

pq318

关键是这样的如何解决这个重复条件，谢谢了

aslxt

遗憾
我只能打开.mdb文件

pq318

大侠等等啊

pq318

还是谢谢了

pq318

能个我个思路和技术技巧吗

pq318

谢谢大家了，花了两天时间搞定了，呵呵