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

작성자:  

 jyk (gskim10)

추천:  11
파일:     조회:  4375
제목:   필드의 값중 해당일의 마지막번호 호출
　 　 　
　 엑셀로 생산실적 등록할때 등록되는 내용을 숫자로 번호 라는필드에 기록하는데 예를들어 엑셀로 2줄을 입력하면 1번줄은 1, 2번줄은 2 로 등록 하고
다시 입력할때는 이해당일의 등록된 내용중 번호 필드의 값중 큰값을 가져오고 싶은데 고수님들 아래내용중 잘못된 부분 확인좀 부탁 드립니다.

Private Sub Worksheet_Change(ByVal Target As Range)
    If (Target.Address = "$B$7" And bGubun <> "2") Or (Range("B7") <> "" And Target.Address = "$D$2" And bGubun <> "2") Then
        Call DBOpen
'
            S_검사일자 = Cells(2, 4) & Format(Cells(2, 4), "yyyymmdd")
            mySql = "SELECT MAX(번호)+1 FROM 생산실적"
            mySql = mySql & " Where  검사일자 = " & S_검사일자 & ""
            
            Call Execute_SQL(mySql)
            If IsNull(rs.Fields(0)) Then
                Cells(1, 1) = 1
            Else
                Cells(1, 1) = rs.Fields(0)
            End If
        Call DBClose
    End If


    
End Sub
 		　
[불량 게시물 신고]  
 　  　  　
  

작성일 : 2016-05-08(16:00)
최종수정일 : 2016-05-08(16:09)