나눔터  
  HOME > 나눔터 > 묻고답하기 > 액세스
액세스
액세스에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 강오리 (igangho)

추천:  0
파일:     조회:  1329
제목:   중복없는 레코드 발췌하는 방법?
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 액세스 버전(95,97,2000,xp,2003,2007):2019

* 아래줄에 질문을 작성하세요 >>
id   품명    단가      비고     
1    사과     120
2    배        150
2    배        170
3    사과     123
4    대추      20
5    감        165
5    감       140
선택쿼리 결과가 위와 같을 때
id가 중복되지 않는 1, 3, 4의 단가는 비고 필드에 업데이트 하고,
id가 중복되는 2, 5는 수작업으로 하나를 선택하려 합니다.

질문 - 1, 3, 4를 골라 내서 업데이트하는 방법을 모르겠습니다.  
 
 		　
[불량 게시물 신고]  
황동준
    Dim rs As DAO.Recordset
    
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM 테이블1")
    
    rs.MoveFirst
        
        Do
        
            If DCount("id", "테이블1", "ID=" & rs!id) = 1 Then
                '현재 레코드셋 아이디 개수가 한개일때 비고 업데이트
                rs.Edit
                rs!비고 = rs!단가
                rs.Update
            Else
                '아닐 경우
            End If
            
            rs.MoveNext
        
        Loop Until rs.EOF
02-23 (18:04)
ⓧ삭제 ■신고
강오리고맙습니다.
공부하고 응용해서 잘 사용하겠습니다.		02-24 (09:34)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2021-02-23(16:46)
최종수정일 : 2021-02-23(16:46)