| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 액세스 버전(95,97,2000,2002):2000
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
에러메시지
"이 개체형식에서는 지원되지 않는 형식입니다."
탭형식의 폼에서 마지막레코드를 삭제후 커서가 빈레코드(마지막줄)에 가있는상태에서 컬럼형식의 폼을 열고 탭형식에서 삭제한 것이 적용되었나 확인해보면 그 레코드에 #deleted라고 나타나서 저의 좁은 소견으로는 삭제후 커서의 위치가 빈곳에 있어서 boomark(Forms![상담카드_관리].Bookmark = Me.Bookmark)기능이 제대로 작동하지 않은 것이 아닌가 생각되서 클릭이벤트에 다음과 같이 코드를 삽입했습니다.
Private Sub 상담카드1_Click()
On Error GoTo Err_상담카드1_Click
Dim dbs As Database '새로 삽입
Dim rst As DAO.Recordset '새로 삽입
Dim stDocName As String
Dim stlinkcriteria As String
Set dbs = CurrentDb() '새로 삽입
Set rst = dbs.OpenRecordset("상담카드", dbOpenTable) '새로 삽입
stDocName = "상담카드_관리"
DoCmd.OpenForm stDocName, , , stlinkcriteria
If rst.AbsolutePosition = rst.EOF Then '새로 삽입
rst.MoveFirst '새로 삽입
rst.MoveLast '새로 삽입
End If '새로 삽입
DoEvents
Forms![상담카드_관리].Bookmark = Me.Bookmark
DoCmd.Close acForm, "상담카드"
dbs.Close
rst.Close
Exit_상담카드1_Click:
Exit Sub
Err_상담카드1_Click:
MsgBox Err.Description
Resume Exit_상담카드1_Click
End Sub
그리고 마지막 빈레코드에서 컬럼형식의 폼을 열었더니 위의 에러메시지가 뜨네요
에러메시지도 뜨지 않고 #deleted도 나타나지 않게 하려면 어떻게 해야 되나요?
파일은 앞전에 올린 저의 애칭 드리뭉으로 올려놓은 것과 같습니다.(여기의 파일은 클릭이벤트에 코드를 삽입하기 전의 것입니다. 질문에 있는 코드에 삽입내용이 있습니다.)
고수님들 부탁드려요
|
|
액세스에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
