Office中国论坛/Access中国论坛

标题: 条件代码问题 [打印本页]

作者: pq318 时间: 2011-6-13 16:56
标题: 条件代码问题
请教一下，这段代码怎么修改才是对的啊，关键是加上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 时间: 2011-6-13 17:29
本帖最后由 aslxt 于 2011-6-13 17:31 编辑

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

作者: pq318 时间: 2011-6-13 17:55
[attach]45850[/attach] 在其中，箱号的问题，它是自动生成，并且每天12点的时候就会后三位编号重置为0，还有就是箱数的数字相同的时候，不用自动增长

作者: pq318 时间: 2011-6-13 17:56
关键是这样的如何解决这个重复条件，谢谢了

作者: aslxt 时间: 2011-6-13 18:14
本帖最后由 aslxt 于 2011-6-13 18:14 编辑

遗憾
我只能打开.mdb文件

作者: pq318 时间: 2011-6-13 18:19
大侠等等啊

作者: pq318 时间: 2011-6-13 18:21
还是谢谢了

作者: pq318 时间: 2011-6-13 18:22
能个我个思路和技术技巧吗

作者: pq318 时间: 2011-6-14 17:08
谢谢大家了，花了两天时间搞定了，呵呵

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)