이름
학번
학과명
토익
컴퓨터
전공2
순서대로 쓴다음 입력을 눌렀는데 개체가 필요하다는데 왜그런거죠..?ㅠㅠ
그리고 p.313에 >&&&&&& 이거는 > 대문자표현이고 & 모든문자를 표현하는 기호라 쓰신건가요?
Private Sub cmd입력_Click()
If txt토익.Value > 100 Or txt컴퓨터.Value > 100 Or txt전공2.Value > 100 Then
MsgBox "점수는 0~100 사이의 값으로 입력하세요."
Else
입력행 = [b2].Row + [b2].CurrentRegion.Rows.Count
Cells(입력행, 2) = txt이름.Value
Cells(입력행, 3) = Format(txt학번.Value, ">&&&&&&")
Cells(입력행, 4) = txt학과명.Value
Cells(입력행, 5) = txt토익.Value
Cells(입력행, 6) = txt컴퓨터.Value
Cells(입력행, 7) = txt전공2.Value
cmb학과명.Locked = True
End If
End Sub
빨간색으로 표시된 부분은 TXT학과명이 아니라 cmb학과명 입니다.
&는 모든 문자나 공백을 입력할 수 있는 입력마스크 대치문자와 같은 기능을 가진 것으로
엑세스 62페이지 입력마스크 대치문자를 확인 해 보시면 됩니다.
좋은 하루 되세요.
-
관리자2021-08-12 20:56:01
Private Sub cmd입력_Click()
If txt토익.Value > 100 Or txt컴퓨터.Value > 100 Or txt전공2.Value > 100 Then
MsgBox "점수는 0~100 사이의 값으로 입력하세요."
Else
입력행 = [b2].Row + [b2].CurrentRegion.Rows.Count
Cells(입력행, 2) = txt이름.Value
Cells(입력행, 3) = Format(txt학번.Value, ">&&&&&&")
Cells(입력행, 4) = txt학과명.Value
Cells(입력행, 5) = txt토익.Value
Cells(입력행, 6) = txt컴퓨터.Value
Cells(입력행, 7) = txt전공2.Value
cmb학과명.Locked = True
End If
End Sub
빨간색으로 표시된 부분은 TXT학과명이 아니라 cmb학과명 입니다.
&는 모든 문자나 공백을 입력할 수 있는 입력마스크 대치문자와 같은 기능을 가진 것으로
엑세스 62페이지 입력마스크 대치문자를 확인 해 보시면 됩니다.
좋은 하루 되세요.