2010/05/13

access2010 データマクロ BeforeChange時検証

フィールドの入力規則→検証で、以前より便利にはなってはいるけれども、どうせならデータマクロでやってみるかと。
式ビルダとかにでてこないからデータマクロで使えなさそうな関数があるんだけど、実際のところ認識し使用はできる。Webに対応してないってことが要因と思われ、クライアントアプリとしては稼働する状態

Sub test()
On Error GoTo ErrLbl
    Dim cn As New ADODB.Connection
    Set cn = Application.CurrentProject.Connection

    cn.Execute "insert into t_02 (F_txt,F_num,F_datetime) values ('',null,#2009/12/31#)"
Done:
    cn.Close
    Set cn = Nothing
Exit Sub
ErrLbl:
    MsgBox "ADOでInsert" & vbCrLf & Err.Description, vbExclamation
    Resume Done
End Sub
ADOで操作してメッセージだせなくはない。
外部からODBC接続した場合
リンクテーブル状態

0 件のコメント: