|
- 액세스 버전(95,97,2000,xp,2003,2007): 오피스 365
영어 어휘 학습 관리용 데이터 베이스를 구축하려 하는데요.
첨부 파일처럼 테이블을 구성하려 합니다.
단어1 필드에 단어를 적으면 번호, 단어2 필드가 자동 완성되도록 데이터 매크로를 만들고 싶습니다.
번호 필드에 자동완성 값을 중복값+1을 하면 될 것 같은데, 초보자라서 방법을 찾기가 힘듭니다. 꼭 데이터 매크로가 아니어도 좋으니 도움 부탁드립니다.
==============[FXTL님 글에 대한 답변입니다]==============
테이블의 레코드중 단어1을 조건으로 그중 제일 높은 번호를 찾습니다.
번호가 없으면 1, 있으면 그 번호 +1
테이블 자체에서는 불가능하고 폼에서 사용합니다.
Private Sub 단어1_AfterUpdate()
Me.번호 = Null
Me.단어2 = Null
Dim Dcnt
Dcnt = DMax("번호", "table1", "단어1='" & Me.단어1 & "'")
If IsNull(Dcnt) Then
Me.번호 = 1
Me.단어2 = "[" & 1 & "] " & Me.단어1
ElseIf Dcnt > 0 Then
Me.번호 = Dcnt + 1
Me.단어2 = "[" & Dcnt + 1 & "] " & Me.단어1
End If
End Sub
|
|