| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 액세스 버전(95,97,2000,xp,2003,2007): 2016
* 아래줄에 질문을 작성하세요 >>
안녕하세요..
작업지시서를 만들고 있는데 문의 사항이 있습니다.
첨부 파일에 주문1 폼에서 하위폼의 DATA를 불러오는 SYSTEM입니다.
EXCEL 파일(WORK1.XLS)에서 데이터를 불러오도록 하였습니다.
데이터 파일을 불러와서 재질/두께/폭/기장 순으로 정렬하여
필드명 NO 부분에 1... 2....3....4....5...6~~~ 이런식으로 일련번호를 입력하고 싶습니다.
도와 주시면 고맙겠습니다.
신희권 : 010-6220-4924입니다.
==============[마당쇠님 글에 대한 답변입니다]==============
==============[마당쇠님 글에 대한 답변입니다]==============
업데이트 버튼 옆에(아무데나) no부여 버튼을 하나 만드시고 아래 코드를 삽입하세요.
Private Sub cmd_setNo_Click()
'하위폼 오름차순 정렬
Me.hawi.Form.OrderBy = "재질,두께,폭,기장"
Me.hawi.Form.OrderByOn = True
'하위폼 DAO 레코드셋
Dim rstS As DAO.Recordset
Dim i As Integer
Set rstS = Me.hawi.Form.Recordset
i = 0
'하위폼에 데이터가 없으면 빠져나감
If rstS.EOF Then Exit Sub
'no 부여 순환문
rstS.MoveFirst
Do Until rstS.EOF
i = i + 1
rstS.Edit
rstS!no = i
rstS.Update
rstS.MoveNext
Loop
Set rstS = Nothing
End Sub |
|
액세스에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
