データの追加とエラーメッセージを表示するには？ (ID:105314)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 データを追加でINSERT文でやりたいのですけど Dim mDb As Database Dim mRs As Recordset Dim strSQL As String Private Sub cmd_Touroku_Click() 'データベースをオープン Set mDb = _ OpenDatabase("D:\koyanagi\tyumon.mdb") '選択クエリーを作成 strSQL = "INSERT INTO jmeisai (s_no) VALUES ('" & txt_SNo.Text & "' )" Set mRs = mDb.OpenRecordset(strSQL, dbOpenDynaset) 'オブジェクトを閉じる mRs.Close mDb.Close とかくと Set mRs = mDb.OpenRecordset(strSQL, dbOpenDynaset)のところで で無効な処理ですと言われてしまいます。 あと情報取得ボタンをクリックした際にK0004のようなKから始まって 数字4桁入力されていないときにエラーメッセージを出したいんですけどValidationRuleとValidationTextを使って入力規則はLike "K????"とすればいいのでしょうか？ よろしくお願いします。