|
1.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
Exit Sub
deleteErr:
MsgBox err.Description
End Sub
Private Sub mnu레코드추가_Click()
On Error GoTo Adderr
Adodc1.Recordset.AddNew
txt사원번호.SetFocus
Exit Sub
Adderr:
MsgBox err.Description
End Sub
Private Sub mnu새로고침_Click()
On Erro
|
- 페이지 4페이지
- 가격 800원
- 등록일 2004.04.02
- 파일종류 한글(hwp)
- 참고문헌 없음
- 최근 2주 판매 이력 없음
|
|
uffer, 27, 5))
탑승인원 = Val(Mid(Linebuffer, 24, 3))
월이용횟수 = Val(Mid(Linebuffer, 32, 2))
출발지코드 = Mid(Linebuffer, 20, 2)
If (여행거리 <= 25400) Or (출발지코드 = "DA") Then
탑승곱월이용 = 탑승인원 * 월이용횟수
고객번호 = Val(Mid(Linebuffer, 1, 5))
If (탑승곱월
|
- 페이지 9페이지
- 가격 1,000원
- 등록일 2005.05.04
- 파일종류 한글(hwp)
- 참고문헌 없음
- 최근 2주 판매 이력 없음
|