|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 액세스 버전(95,97,2000,xp,2003,2007): 2019
* 아래줄에 질문을 작성하세요 >>
이곳에서 많은 도움을 받고있는 초보입니다.
회원록에 없는 성명을 입력시
회원추가폼이 열리도록 했습니다만,
어디서 잘못되었는지 반응하지 않네요.....
고수님들의 조언 부탁드립니다~
Private Sub 점수입력폼_AfterUpdate()
If DCount("*", "회원록", "성명=" & 회원록.성명 & "'") > 0 Then
회원록.성명 = DLookup("성명", "회원록", "성명=" & 회원록.성명)
회원록.닉네임 = DLookup("닉네임", "회원록", "닉네임=" & 회원록.닉네임)
Else
If MsgBox("등록된 회원이 없습니다." & vbLf & "신규 등록하시겠습니까?", vbYesNo) = vbYes Then
DoCmd.OpenForm "회원추가폼", , , , acFormAdd
End If
Me.ID = Null
End If
End Sub
|
|