| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 액세스 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
수고하십니다.
기존 일련번호로 새로운 일련번호를 만들려고하는데요..
고유문자+년+월+번호
번호는 월이 바뀌면 처음1부터 시작하는식으로요..
많은 도움부탁드립니다.
==============[웃기셔님 글에 대한 답변입니다]==============
일단 변수를 선언하시고
다음 코팅를 은용하시면 될것 같네요.
Select Case Dtt
Case "년"
dd = Format(Date, "yy")
Case "년월"
dd = Format(Date, "yy") & Format(Date, "mm")
Case "년월일"
dd = Format(Date, "yy") & Format(Date, "mm") & Format(Date, "dd")
End Select
Dcd = Len(dd)
Dc = rsSource!SaleSpace
Select Case Dc
Case 2
Dctt = "01"
Case 3
Dctt = "001"
Case 4
Dctt = "0001"
End Select
Dq = rsSource!SaleIt
If IsNull(Dq) Then
Dtl = Dcd
Else
Dtl = Len(Dq) + Dcd
End If
Select Case Dtl
Case 2
Dm = Nz(DMax("SaleID", "Sale", "Left([SaleID],2)='" & Dq & dd & "'"), 0)
Case 3
Dm = Nz(DMax("SaleID", "Sale", "Left([SaleID],3)='" & Dq & dd & "'"), 0)
Case 4
Dm = Nz(DMax("SaleID", "Sale", "Left([SaleID],4)='" & Dq & dd & "'"), 0)
Case 5
Dm = Nz(DMax("SaleID", "Sale", "Left([SaleID],5)='" & Dq & dd & "'"), 0)
Case 6
Dm = Nz(DMax("SaleID", "Sale", "Left([SaleID],6)='" & Dq & dd & "'"), 0)
Case 7
Dm = Nz(DMax("SaleID", "Sale", "Left([SaleID],7)='" & Dq & dd & "'"), 0)
Case 8
Dm = Nz(DMax("SaleID", "Sale", "Left([SaleID],8)='" & Dq & dd & "'"), 0)
Case 9
Dm = Nz(DMax("SaleID", "Sale", "Left([SaleID],9)='" & Dq & dd & "'"), 0)
Case 10
Dm = Nz(DMax("SaleID", "Sale", "Left([SaleID],10)='" & Dq & dd & "'"), 0)
Case 11
Dm = Nz(DMax("SaleID", "Sale", "Left([SaleID],11)='" & Dq & dd & "'"), 0)
End Select
If Dm = "0" Then
NoMS = Dq & dd & "-" & Dctt
Else
Select Case Dc
Case 2
NoMS = Dq & dd & "-" & Right("00" & (Val(Right(Dm, 2)) + 1), 2)
Case 3
NoMS = Dq & dd & "-" & Right("000" & (Val(Right(Dm, 3)) + 1), 3)
Case 4
NoMS = Dq & dd & "-" & Right("0000" & (Val(Right(Dm, 4)) + 1), 4)
End Select
End If
Me!Text397 = NoMS
|
|
액세스에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
