하나도 몰라도 되는 - #11 (폼) - 내가 원하는 내용 구현하기 9

 

그림을 보면, 리스트상의 저 필드들이 다 필요할 수도 있겠지만, 생각해보면 꼭 그렇지 않을 수도 있습니다.

저 필드들을 보이는게 다 필요하다면 사이즈를 늘리면 해결될 문제고, 그게 아니라면 보일 것만 보이는 것도 좋은 해결책입니다.

 

우선 보일 것과 보일 필요가 없는 것으로 필드를 나눠보겠습니다.

 

-보일 것:

상호, 대표자,사업자등록번호,부가세이메일

 

- 보일 필요가 없는 것:

나머지

 

제 기준은 전자 세금계산서를 발행하는데 필요한 항목과 대상 식별에만 기준을 뒀습니다.

(절대적 기준은 없습니다. 업체명만 넣어도 무방하나 대충 저정도 보이면 사용할 때 좋을것 같네요.)

 

자 우선 카운트 먼저 해줍시다.

내가 보이려는 필드가 좌측부터 몇번째인지, 그리고 총 몇개의 필드인지 확인해 줍니다. 

0(ID), 1(상호), 1(대표자), 1(등록번호), 0(업태), 0(업종), 1(부가세이메일)  

 

0: 숨기려고 하는것

1: 보이려고 하는것 

 

총 7개의 필드입니다.

상호는 약: 3cm

대표자는 약 2cm

등록번호는 약 3cm

부가세이메일은 약 3cm 정도 생각하면

총 11cm가 필요하네요.

 

리스트를 클릭하고 속성시트를 아래 그림과 같이 변경해줍니다.

아래와 같이 변경됩니다.

이것도 레이아웃에 넣겠습니다.

 

 

이제 상호를 기준으로 정렬 버튼을 만들어 보겠습니다.

그전에 셀분할은 마우스 우클릭으로 하시면 됩니다. (그림에서 선택한 주황색은 선택을 했다는걸 보였다는 의미 입니다. 실제로 ㄱ, ㅎ 버튼이 있는 부분을 분할했습니다.)

 

버튼 두개를 만들어 넣고

각각의 이름을 

버튼A

버튼Z

라고 수정해줬습니다.

 

각각 클릭 이벤트를 걸고

코드를 작성해줍니다.

Private Sub 버튼A_Click()
Dim strSQL As String

strSQL = "select * from t사업자정보 order by 상호"

리스트.RowSource = strSQL
리스트.Requery
리스트 = Null

End Sub

Private Sub 버튼Z_Click()
Dim strSQL As String

strSQL = "select * from t사업자정보 order by 상호 desc"

리스트.RowSource = strSQL
리스트.Requery
리스트 = Null

End Sub

 

ㄱ을 눌렀을때

ㅎ을 눌렀을때

이제 검색을 해서 출력하는 방법을 이어갑니다.

- 검색창을 위해서 텍스트 박스를 만들고 이름을 검색으로 변경합니다.

- 검색 버튼을 만들고 이름을 검색버튼이라고 변경합니다. 그리고 클릭이벤트를 만듭니다.

 

Private Sub 검색버튼_Click()
Dim strSQL As String

strSQL = "select * from t사업자정보 where 상호 like '*" & 검색 & "*'   order by 상호"

리스트.RowSource = strSQL
리스트.Requery
리스트 = Null
End Sub

코드를 넣고 

검색 텍스트 박스에 '영'을 넣고 검색버튼을 누르면

중을 넣으면

 

이제 초기화 버튼을 수정해줘야 합니다. (초기화 버튼은 기본 업체명 순으로 정렬이 되게끔 설정을 해줬습니다.)

Private Sub 초기화_Click()
ID = Null
상호 = Null
대표자 = Null
사업자등록번호 = Null
업태 = Null
업종 = Null
부가세이메일 = Null
전화 = Null
팩스 = Null
주소 = Null

버튼A_Click

End Sub

 

 

언바운드로 폼을 구성하는데 가장 기본이 될만한 내용을 나열해봤습니다.

잘 따라오셨나요? 여기까지 하신 내용이 도움이 되시길 빕니다~

 

참고로 파일 공유는 할 만한 뭔가 대단한 내용도 아니고,

모든 코드는 코드 블럭안에 올렸기 때문에

충분히 직접 만들어서 사용하실 수 있습니다.

 

 

현재 글 : #11 (폼) - 내가 원하는 내용 구현하기 9

하나도 몰라도 되는 MS 엑세스 - #0 인덱스 페이지

하나도 몰라도 되는 MS 엑세스 - #0 인덱스 페이지