www.softwaredevelopmentdeveloper.com
옥션 아이폰/아이팟 집에서 즐기기 롯데마트 11번가 주민등록번호 도용사실이 있는지 확인해 보세요! CJmall 회원가입 도메인 NO.1-호스팅 NO.1 든든한 웹파트너 가비아 ! 건담 전문몰 건담샵 No.1 중고차 쇼핑몰! SK엔카
아래출처는 http://ad.web2r.net/r.php?c=shop 입니다.Public Function check_form(ByVal strFormName As String) As Boolean Dim intX As Integer 'Testvariable Dim strTemp As String 'Testvariable Dim db As DAO.Database 'Databasevariable Set dbs = CurrentDb 'Use current database fhpFormExists = False 'Form not foundOn Error GoTo Error_fhpFormExists For intX = 0 To dbs.Containers( "Forms").Documents.Count - 1 'Check all forms strTemp = dbs.Containers( "Forms").Documents(intX).Name 'Formname If strTemp = strFormName Then 'If the one looking for check_form = True 'Form found Exit For 'Exist loop End If Next intX Exit_fhpFormExists: Set dbs = Nothing 'Release object Exit Function Error_fhpFormExists: check_form = False 'Form not found If Err 2102 Then MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error in function 'fhpFormExists'" End If Resume Exit_fhpFormExists End Function
