www.softwaredevelopmentdeveloper.com
옥션 아이폰/아이팟 집에서 즐기기 롯데마트 11번가 주민등록번호 도용사실이 있는지 확인해 보세요! CJmall 회원가입 도메인 NO.1-호스팅 NO.1 든든한 웹파트너 가비아 ! 건담 전문몰 건담샵 No.1 중고차 쇼핑몰! SK엔카
아래출처는 http://ad.web2r.net/r.php?c=shop 입니다.Public Sub GetMyObjectsList() Dim db As Database Dim Qry As QueryDef Dim QryNames As String Dim QryCount As Integer Dim Tbl As TableDef Dim TblNames As String Dim TblCount As Integer Set db = CurrentDb QryCount = 0 TblCount = 0 For Each Qry In db.QueryDefs QryCount = QryCount + 1 Form_F0170.Text1 = Form_F0170.Text1 & vbCrLf & Qry.name & " : " & QryCountNext For Each Tbl In db.TableDefs If Tbl.Attributes = 0 Then 'Ignores System Tables TblCount = TblCount + 1 Form_F0170.Text2 = Form_F0170.Text2 & vbCrLf & Tbl.name & " : " & TblCount End If Next db.Close Set db = Nothing End Sub
