*** 오류처리***
: 문제지를 받으면 입력과 출력 설계시 오류를 체크하라는 몇 개의 메시지가 나온다.
그것을 하나라도 어겼을 시에는 당연히 감점대상이 된다.
 

다음은 입력 설계시 빈번히 나오는 오류들이다.
 
제품 코드의 입력은 정수 1자리로 입력
첫번째 방법은 :
If Not IsNumeric(정수입력.Text) Then    '정수 여부를 표시하는 명령은 isnumeric이다.
MsgBox "정수1자리로 입력", , "오류"     '메시지박스가 뜨며 오류라고 나타난다.
정수입력.SetFocus                       '그리고 커서는 자동정수입력상자로 간다.
Exit Sub                                '그문장에서 빠져나온다.
End If
두번째 방법은 :
정수입력이라는 텍스트 박스의 속성에 maxlength라는 것이 있다. 여기서 1을 지정해주면 1자리를 절대로 초과하지 않는다.
 
입력가능한 레코드는 최대 5건을 넘을 수 없다.
 If outfrm.g.Rows > 5 Then              ' 출력되는 폼의 그리드가 최대 5를 넘으면
MsgBox "입력초과되었습니다.", , "초과"   ' 에러 메시지가 뜬다.
Exit Sub
End If
 
매수량의 입력범위는 1- 100의 정수가 입력된다.
If keycode < vbkey 1 or keycode > vbkey100 then  '키보드를 1-100까지를 넘어서면  
정수입력.SetFocus                                  '커서는 다시 돌아가고        
exit sub                                                   '빠져나온다.
End if
 
재고액은 500000을 초과해서는 안된다.
 If 재고액.Text > 500000 Then
MsgBox "500000을 초과해서는 안됩니다", , "알림"
재고액.SetFocus
Exit Sub
End If
 
금액은 1000의 배수로 입력하시오.
 If Val(금액.Text) / 1000 <> Int(Val(금액.Text)) / 1000 Then
MsgBox "1000의 배수로 입력하시오", , "입력에러"
금액.SetFocus
Exit Sub
End If
 
ca-cc 사이의 코드만 입력하시오.
 만일 ca-cc에 값이 주어져있다면 아래와 같이 한다.
Select Case UCase(코드입력.Text)
Case "CA"
bw = 10
sg = 450000
sb = "제1사업소"
Case "CB"
bw = 20
sg = 200000
sb = "제2사업소"
Case "CC"
bw = 50
sg = 330000
sb = "제3사업소"
Case Else                            '그외의 것을 선택했을 때는
MsgBox "CA-CC사이의 코드를 입력하시오", , "입력에러"
코드입력.SetFocus
Exit Sub
 
 

다음은 출력 설계시 빈번히 나오는 오류들이다.
 
입력화면 clear 후 출력되도록 한다.
 입력버튼에서 fg에 모두 출력하게 되면 가장 마지막에 모든 텍스트박스를 비워주면 된다.
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus     '촛점은 TEXT1.로 맞춰진 상태이다.
 
오름차순으로 출력한다.
 이것은 상당히 중요하다. 정보처리를 치는 사람이 기본적으로 알아둬야 할 것 중 하나이다.
오름차순은 정보처리 기능사에서부터 기사까지 모두 다 나온다고 해도 과언은 아니다.
그렇기 때문에 이해가 안되는 사람은 외워서라도 해야만 한다.
이 내용은 시간에 했던 문법과 위의 코딩을 참고하길 바란다.!!
 
입력내용도 출력되어야 한다.
 이것은 가장 중요한 것이다. 이것을 안 해주면 답안지를 받지도 않는다. 그럼 당근 실격이다. 얼마나 안타까운 일인가. 무조건 예시문과 똑같이 해주어야 한다.
앞에 기술한 것을 참고하도록!!