| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 액세스 버전(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_등록일자 & "')"
|
|
액세스에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
