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

작성자:  

 stardy (star119)

추천:  0
파일:     조회:  209
제목:   유효성 검사규칙에서...질문드려요~
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

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

* 아래줄에 질문을 작성하세요 >> 

정말 간단한 질문인데요 ㅠㅠ
액세스 유효성 검사규칙에서 우편번호가 5자리가 아니면 앞에 0을 붙이고, 5자리 이상이면 "우편번호는 숫자 5자리이하로 입력하세요."라는 메시지가 나타나도록 하고 싶은데, 잘 안되네요 ㅠㅠ
 
[불량 게시물 신고]  
황동준간단하지 않습니다 ^^

테이블 또는 폼에서
1. 유효성검사규칙 : Len([우편번호])=5
=> 무조건 5자리로만 입력
2. 유효성검사규칙 : Len([우편번호])<6
=> 5자리 이하로만 입력가능. 모자란 자리 0 채우기 불가
3. 입력마스크 : 99999
=> 5자리 이하로만 입력가능. 모자란 자리 0 채우기 불가
4. 입력마스크 : 00000
=> 무조건 5자리만 입력가능

쿼리 또는 폼에서
1. 5자리 이하로 입력 받고 보여줄 때 5자리(0으로 채우고)로 보여주기
Expr1: IIf(Len([우편번호])<5,String(5-Len([우편번호]),"0") & [우편번호],[우편번호])
Expr2: Format([우편번호],"00000")

폼에서
1. vba
Private Sub 우편번호_AfterUpdate()
    If Len(우편번호) > 5 Then
        MsgBox "우편번호는 숫자 5자리이하로 입력하세요."
        Me.우편번호 = Null
    ElseIf Len(우편번호) < 5 Then
        Me.우편번호 = Format(Me.우편번호, "00000")
    End If
End Sub
06-05 (09:04)
삭제 ■신고
        
  

작성일 : 2024-06-04(21:30)
최종수정일 : 2024-06-04(21:30)