Private subcommand1_ click ()' 대화 상자를 통해 그림을 선택하여 Image 1 의 그림 상자에 로드합니다.
CDlg 입니다. 파일 이름 = ""
CDlg 입니다. 쇼 오픈 (ShowOpen)
CDlg 인 경우. 파일 이름<& gt "그럼
이미지1입니다. 그림 = 로드 픽쳐 (cdlg). 파일 이름)
만약 ... 끝날거야
끝단 접합
개인 하위 명령 2_Click ()
데이터 1. 레코드 하나를 추가합니다.
끝단 접합
개인 하위 명령 3_Click ()
데이터 1 을 사용합니다. 레코드 세트
。 삭제' 레코드를 삭제합니다.
。 MoveNext 는 레코드 포인터를 다음 레코드로 이동합니다.
만약. 그럼 EOF 로 할게요. "MoveLast”EOF 는 현재 레코드 위치가 Recordset 객체의 마지막 레코드 뒤에 있음을 나타냅니다.
로 끝맺다
끝단 접합
개인 하위 명령 4_Click ()
S 를 문자열로 어둡게 합니다
데이터 1 을 사용합니다. 레코드 세트
S =. Bookmark 는 Recordset 객체의 현재 레코드를 고유하게 식별하는 책갈피를 반환하거나 Recordset 객체의 현재 레코드를 유효한 책갈피로 식별하는 레코드로 설정합니다.
。 FindFirst Text4. 텍스트
만약. 그럼 경기하지 마세요.
MsgBox "데이터를 찾을 수 없음"
。 책갈피 = s
만약 ... 끝날거야
로 끝맺다
끝단 접합
개인 하위 명령 5_Click ()
S 를 문자열로 어둡게 합니다
데이터 1 을 사용합니다. 레코드 세트
S =. 북마크
。 FindNext. 텍스트
만약. 그럼 경기하지 마세요.
MsgBox "데이터를 찾을 수 없음"
。 책갈피 = s
만약 ... 끝날거야
로 끝맺다
끝단 접합
개인 하위 양식 _Load ()
데이터 1. DatabaseName = App 입니다. 경로 및 경로. ₩ 마이데이터. MDB "는 마이데이터. MDB 데이터베이스의 상대 경로 아래에 추가됩니다.
끝단 접합
개인 하위 태그 2_Click ()
끝단 접합