| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 액세스 버전(95,97,2000,xp,2003,2007):2016
* 아래줄에 질문을 작성하세요 >>
수고가 많으십니다.
언바운드 폼에서 자료를 입력시 자동으로 일련번호가 생성이 되고 일련번호 필드에 보여지며 모든 자료를 입력후에 저장 버튼에 이벤트로 테이블로 저장이 되며 다음 자료 입력시 자동으로 만들어 지는 이전 일련번호에서 1 씩 증가되는 번호여야 합니다.. 어찌 해야 할까요?
폼에서 일련번호 필드는 일부러 입력하지 않고 날짜를 입력하면 자동으로 생성되어 필드에 보여지는 일련번호 입니다.
감사합니다.
==============[박현진님 글에 대한 답변입니다]==============
Private Sub cmdSave_Click()
If IsNull(날짜) Or IsNull(이름) Then Exit Sub
If MsgBox("저장하시겠습니까?", vbYesNo, "확인") = vbYes Then
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * from 테이블1")
rs.AddNew
rs!ID = Me.ID
rs!날짜 = Me.날짜
rs!이름 = Me.이름
rs.Update
rs.Close
MsgBox "저장하였습니다."
Me.날짜 = Null
Me.이름 = Null
If IsNull(DMax("ID", "테이블1")) Or DMax("ID", "테이블1") = "" Then
Me.ID = 1
Else
Me.ID = DMax("ID", "테이블1") + 1
End If
End If
End Sub |
|
액세스에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
