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

작성자:  

 update (gskim10)

추천:  0
파일:     조회:  208
제목:   년/월 등록방법
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

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

* 아래줄에 질문을 작성하세요 >> 
엑셀 입고등록시 입고일자 를 기준으로 년/월 을 자동으로 등록 하고 싶은데요..
어떻게 추가를 해야할지 잘 모르겠어서 올립니다.
아니면 액세스 의 쿼리디자인 에서 입고일자로 함수를 써서 생성방법이 있는지요 ?  
s_입고일자 = Cells(2, 4)
    
    Row_Cnt = Range("C300").End(xlUp).Row

    For i = 6 To Row_Cnt
        j = 2
        s_순번 = Cells(i, j)
        s_입고구분 = Cells(i, j + 1)
        S_업체명 = Cells(i, j + 2)
        S_입고장소 = Cells(i, j + 3)
        S_고객사 = Cells(i, j + 4)
        s_Pjt_Name = Cells(i, j + 5)
        s_Pjt_No = Cells(i, j + 6)
        s_Type = Cells(i, j + 7)
        S_품명 = Cells(i, j + 8)
        s_규격 = Cells(i, j + 9)
        s_재질 = Cells(i, j + 10)
        
        S_수량 = Cells(i, j + 11)
         If S_수량 = "" Then S_수량 = 0
         
        S_단가 = Cells(i, j + 12)
         If S_단가 = "" Then S_단가 = 0
        
        S_금액 = Cells(i, j + 13)
         If S_금액 = "" Then S_금액 = 0
         
        s_비고 = Cells(i, j + 14)
        s_수주번호 = Cells(i, j + 15)
       

        s_등록일자 = Format(Now(), "YYYY-MM-DD HH:MM:SS")
        
        Call DBOpen
    
        mySql = "INSERT INTO 입고등록("
        mySql = mySql & " 입고일자, 순번, "
        mySql = mySql & " 입고구분, 업체명, 입고장소, 고객사, Pjt_Name, Pjt_No, Type, 품명, 규격, 재질,  "
        mySql = mySql & " 수량, 단가, 금액, 비고, 수주번호, "
        mySql = mySql & " 등록일자)"
        mySql = mySql & " VALUES( "
        
        mySql = mySql & " '" & s_입고일자 & "'," & s_순번 & ","
        mySql = mySql & " '" & s_입고구분 & "',' " & S_업체명 & "','" & S_입고장소 & "', '" & S_고객사 & "', '" & s_Pjt_Name & "',' " & s_Pjt_No & "',' " & s_Type & "',' " & S_품명 & "',' " & s_규격 & "', '" & s_재질 & "',"
        mySql = mySql & " '" & S_수량 & "','" & S_단가 & "','" & S_금액 & "', '" & s_비고 & "',' " & s_수주번호 & "',"
        mySql = mySql & " '" & s_등록일자 & "')"
 
[불량 게시물 신고]  
황동준설명만으로는 년/월을 어디에 어떻게 하시겠다는지 이해가 가지 않습니다.

s_년월 = year(Cells(2, 4))&"/"&month(Cells(2, 4))
이걸 원하는건 아니실테고,,,
05-17 (12:11)
삭제 ■신고
        
  

작성일 : 2024-05-16(12:01)
최종수정일 : 2024-05-16(12:01)