바보처럼 코딩하기 (엑세스) 14. 주문하기(1):ID

 

오픈 소스

 

엑세스따라하기14.zip

0.15MB

 

동영상 중간에 나오는 와~! ㅎㅎ 웃겨서 넣어놨습니다.

 

 

데이터 형식과 범위 (봐도 봐도 또 찾아보게 된다는...데이터 형식과 범위 입니다.)

데이터 형식저장 용량범위

Byte	1바이트	0부터 255까지
Boolean	2바이트	True 또는 False
Integer	2바이트	-32,768부터 32,767까지
Long (긴 정수)	4바이트	-2,147,483,648부터 2,147,483,647까지
Single (단정도 부동 소수점)	4바이트	-3.402823E38부터 -1.401298E-45까지(음수값). 1.401298E-45부터 3.402823E38까지(양수값)
Double (배정도 부동 소수점)	8바이트	-1.79769313486232E308부터 -4.94065645841247E-324까지(음수값). 4.94065645841247E-324부터 1.79769313486232E308까지(양수값)
Currency (정수 값 잘림)	8바이트	-922,337,203,685,477.5808부터 922,337,203,685,477.5807까지
Decimal	14바이트	+/-79,228,162,514,264,337,593,543,950,335(소수점 이하 없음); +/-7.9228162514264337593543950335(숫자의 오른쪽으로부터 28번째); +/-0.0000000000000000000000000001(0이 아닌 최소 숫자)
Date	8바이트	100년 1월 1일부터 9999년 10월 31까지
Object	4바이트	모든 개체 참조
String (가변 길이)	10바이트 +문자열 길이	0부터 약 20억까지
String (고정 길이)	문자열 길이	1부터 약 65,400까지
Variant (숫자)	16바이트	Double형 범위 내의 모든 숫자
Variant (문자)	22바이트 + 문자열 길이	변수 길이 String과 같은 범위
사용자 정의 형식 (Type 사용)	요소가 사용하는 숫자	해당 데이터 형식의 범위값과 각 요소의 범위값이 같음

퍼온 글인데...주소가 사라져서..쿨럭..

 

<19-01-07 추가> 

사용자 지정형식

 

보고서에서 사용자 지정형식으로 일련번호를 넣을때

일련번호가 181201001을 18-1201-001로 바꿔주는 형식

 

 

사업자등록번호는

 

000\-00\-00000

 

요렇게

 

Option Compare Database

Private Sub 모델코드_AfterUpdate()

Me.상호 = DLookup("구매처", "t_아이템정보", "모델코드 = '" & Me.모델코드 & "'")
Me.아이템ID = DLookup("ID", "t_아이템정보", "모델코드 = '" & Me.모델코드 & "'")
Me.구매단가 = DLookup("구매단가", "t_아이템정보", "모델코드 = '" & Me.모델코드 & "'")
Me.구매처ID = DLookup("ID", "t_구매처정보", "상호 = '" & Me.상호 & "'")

End Sub

Private Sub 모델코드_GotFocus()

Me.모델코드.RowSource = "SELECT t_아이템정보.모델코드 FROM t_아이템정보 WHERE 아이템종류 = '" & Me.아이템종류 & "'  GROUP BY t_아이템정보.모델코드;"
End Sub

Private Sub 모델코드_LostFocus()
Me.모델코드.RowSource = "SELECT t_아이템정보.모델코드 FROM t_아이템정보 GROUP BY t_아이템정보.모델코드;"
End Sub

Private Sub 발주리스트_AfterUpdate()

End Sub

Private Sub 삭제버튼_Click()
'[1]테이블에 관련된 구문
Dim RS As DAO.Recordset

Set RS = CurrentDb.OpenRecordset("select * from t_구매테이블 where ID = " & Me.ID & " ", dbOpenDynaset, dbSeeChanges)
RS.Delete

Set RS = Nothing


'[3]메세지 박스 명령
MsgBox "삭제완료"

'초기화
신규버튼_Click
End Sub

Private Sub 수량_AfterUpdate()
Me.합계 = Me.수량 * Me.구매단가
End Sub

Private Sub 신규버튼_Click()
Me.ID = Null
Me.날짜 = Null
Me.구매처ID = Null
Me.구매단가 = Null
Me.상호 = Null
Me.수량 = Null
Me.합계 = Null
Me.아이템종류 = Null
Me.아이템ID = Null
Me.모델코드 = Null

Me.발주리스트.Requery
End Sub

Private Sub 아이템종류_AfterUpdate()
Me.ID = Null
Me.날짜 = Null
Me.구매처ID = Null
Me.구매단가 = Null
Me.상호 = Null
Me.수량 = Null
Me.합계 = Null
'Me.아이템종류 = Null
Me.아이템ID = Null
Me.모델코드 = Null

Me.발주리스트.Requery
End Sub

Private Sub 저장버튼_Click()
Dim RS As DAO.Recordset
If Nz(ID, 0) = 0 Then
'[1-1] 저장
Set RS = CurrentDb.OpenRecordset("select * from t_구매테이블", dbOpenDynaset, dbSeeChanges)
RS.AddNew
RS!날짜 = Me.날짜
RS!구매처ID = Me.구매처ID
RS!구매단가 = Me.구매단가
RS!상호 = Me.상호
RS!수량 = Me.수량
RS!합계 = Me.합계

RS.Update
RS.Close

MsgBox "저장"


'Else
ElseIf Nz(ID, 0) <> 0 Then
'[1-2] 수정
Set RS = CurrentDb.OpenRecordset("select * from t_구매테이블 where ID = " & Me.ID & " ", dbOpenDynaset, dbSeeChanges)
With RS
.Edit
RS!날짜 = Me.날짜
RS!구매처ID = Me.구매처ID
RS!구매단가 = Me.구매단가
RS!상호 = Me.상호
RS!수량 = Me.수량
RS!합계 = Me.합계

.Update
.Close
End With

MsgBox "수정"

End If


'초기화
신규버튼_Click
End Sub