アクセスの例

adminによって| | 13：22 - 2008年2月20日（水曜日）に掲示

そこにレコードを入力するにはいくつかの方法があり、最も一般的なテーブルにバインドされているフォームを介して取得することです。 これを行う別の方法、すなわちテーブルとは無関係の独立したフィールドを持つフォームを使用して、無関係のフィールドを介して行われます。 へ
この例の場合には以下のとおりであるコードによって、すなわち、我々は 'レコードセット'を使用してデータを入力します。

ます。Dim DB as Database
Recordsetとして薄暗いRS

MsgBoxには、（ "あなたが書きたいか？" VbYesNoCancel、 "オプション"）=次にvbYes場合
"を押すことにより、コードが最後まで続けそうだとすれば、レコードを保存するかどうかを尋ねられる
DB = CurrentDb（）を設定する
セットrs = db.OpenRecordset（ "データ"、dbOpenTableを）
"登録データを挿入するテーブルを開きます

rs.AddNew
RS（ "名前"）=ミー！INome
RS（ "アドレス"）=​​ミー！Imorada
RS（ "年齢"）=ミー！Iidade
rs.Update 'は、テーブルにデータを送信します。
rs.Close 'データをクリアして、レコードセットを閉じます
RS = Nothingを設定しない
DB = Nothingを設定しない

Me.INome = NULL 'は、フォーム内の​​フィールドをクリアする
Me.Imorada = NULL
Me.Iidade = NULL
MsgBoxに "レコード保存"、vbInformation、 "" Done "と表示する確認メッセージ
最初のフィールドにカーソルを移動 'Me.INome.SetFocus
他：終了サブ
終了する場合

ダウンロード： 独立した場所