| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 액세스 버전(2000):
2. 윈도우즈의 버전(win98):
3. CPU (PentiumIII):
4. RAM (256):
* 아래줄에 질문을 작성하세요 >>
음.. 몇일동안 머리를 돌려보았지만.. 해답이 나오지 않아여...
산수랑..access 랑 실력이 너무 없어서...
질문은 자동으로 숫자가 증가되는 값을 만들려구 하거든요...
근뎅.. 그 자동으로 증가되는 숫자가 7진수라야 하거든요..
예를 들어..
0 1 2 3 4 5 6 10 11 12 13 14 15 16 20....
이런식으로 증가되어야 하는데.. 어떻게 잡을지.. 고수님들의 도움 부탁드립니다.
==============[조현님 글에 대한 답변입니다]==============
폼에서 작업을 하시는 것이죠?
다음 연산자만 알면 간단히 계산이 될겁니다.
두 연산자에 대해서는 도움말을 참고하십시오.
mod = 나머지를 구함
\ = 몫을 구함
' 사용법: AddOne(숫자, 기수법)
' 7진수로 하나씩 더해간다면
' AddOne(126,7)
' 결과 = 130
Function AddOne(num As Long, notation As Integer) As Long
Dim strNewNum As String
Dim intAddOne As Integer
Dim temp As Integer
Dim k As Integer
num = num + 1
For k = Len(CStr(num)) To 1 Step -1
temp = Mid(num, k, 1) + intAddOne
strNewNum = (temp Mod notation) & strNewNum
' 올림이 있는가 구한다.
intAddOne = temp \ notation
Next
AddOne = CLng(intAddOne & strNewNum)
End Function
그리고 나서 폼의 BeforeInsert에서
Sub Form_BeforeInsert()
DIm 마지막번호 as long
Dim 신규번호 as long
마지막번호=DMax('일련번호넣을필드이름','테이블이름')
신규번호=AddOne(마지막번호,7)
[일련번호바운드컨트롤] = 신규번호
End Sub
와 같이 사용하면 될겁니다.
제 홈페이지의 서버를 교체 중이라 접근이 안되지만
시간 나시면 자료실에 들려서 일련번호 증가시키는 예제를....
http://moise.co.kr/k2kim
|
|
액세스에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
