Access VBAで

質問

VBAの超初心者です。
Accessのフォームでコマンドボタンを押すと、決まった文字が入力できるフォームを作りたいと思っています。
クリック時のイベントプロシージャーはどのように記入すればよいのでしょうか。
ど素人な質問ですみません。

回答No.2

noname#140971 · ベストアンサー

＞コマンドボタンをクリックしテーブル内のフィールドに文字を入力。

これは、普通はしないです。

<Tab1>

ID__fld_1
01__Hello!

こういうテーブルを用意しフォームウィザードでフォームを作成。
そうすると、自動的にテーブルとアクセス可能なフォームが出来上がります。
このフォームを利用するのが一般的です。
レコードを移動すれば、自動的に登録される仕掛けになっています。

[登録コマンドボタン]を使うのは、やや、中級になります。

Private Sub コマンド2_Click()
　　Dim isOK　 As Boolean
　　Dim strSQL As String

　　If Len(Me.テキスト0 & "") Then
　　　　strSQL = "INSERT INTO tab1 (ID, fld_1) VALUES (" & _
　　　　　　　　CLng(xxxx1("ID", "tab1")) + 1 & ",'" & Me.テキスト0 & "')"
　　　　isOK = xxxxxxx2(strSQL)
　　　　If isOK Then
　　　　　　MsgBox "レコードを１件追加しました。"
　　　　End If
　　Else
　　　　MsgBox "先に、登録データを入力して下さい。"
　　End If
End Sub

<Tab1>

ID__fld_1
01__Hello!
02__Hello!

このように、非連結フォームで登録ボタンを押させる方法もあります。
が、xxxx1、xxxxxxx2の部分の関数を書けることが必須になります。
また、SQL文も使います。

お礼

ありがとうございました。
とても参考になりました。
今の私の智識ではちょっと難しいみたいです。
もう少し勉強して改めて質問を出しなおします。

回答No.1

noname#140971

１、Access　を起動。
２、[フォーム]-[デザインビューでフォームを作成する]をクリック。
３、フォームに[テキストボックス]を配置。
４、フォームに[コマンドボタン]を配置。
５、[コマンドボタン]を右クリックし[イベントのビルド]-[コードビルダ]をクリック。

Option Compare Database
Option Explicit

Const 定義文字列 = "AAAAAAAAA"

Private Sub コマンド2_Click()
　　Me.テキスト0 = 定義文字列
End Sub

これで、テキストボックス[テキスト0]に、 "AAAAAAAAA"が入力されます。

補足

回答ありがとうございます。
フォームでの文字の入力はうまくいきました。
フォームでコマンドボタンをクリックした時にテーブル内のフィールドに文字を入力したいと思っています。
よろしくお願いします。

質問内容が不十分で済みませんでした。