アクセスで演算のみのフォームをについて。

質問

アクセスで数値を入力して、1クリックで計算結果が出せるようなフォームを作成中なのですが、リセットボタンでクリアするにはどのようにしたらよいでしょうか。その都度データを残さない（保存しない）方向でしたいのですが、「新規レコード追加」にするとデータが保存されてしまいます。「レコードの削除」にすると毎回「1件のレコードを削除してもよいですか？」のコメントがでてきます。リセットボタンを１クリックでデータを空白にしたいと考えています。どなたかよろしくお願いいたします。

回答No.4

DexMachina · ベストアンサー

補足への回答がないようですので、横レスさせていただきます。

> 「ctl=""」にエラーがつきます。

そのフォームのテキストボックスには、演算コントロールが含まれているのでは
ないでしょうか。
だとすると、演算コントロールには値の代入はできないので、エラーになります。
(「このオブジェクトに値を代入することはできません」という実行時エラー)

そうであれば、「Ctl=""」の代入に更に条件をつけるか、面倒でも全ての非連結
コントロールを列挙して代入するか、のいづれかを採る必要があります。

上記の「演算コントロールあり」の仮定が当たっているなら、以下のようにすれば、
エラーは回避できると思います：

<現状>
　　ctl = ""

<修正後>
　　'演算コントロールのコントロールソースは常に「=」で始まることを利用して、
　　'演算コントロールかそれ以外(連結/非連結)かを判断します
　　If Left(ctl.ControlSource, 1) <> "=" Then ctl = ""

お礼

丁寧なご回答ありがとうございました。おかげさまでようやく解決しました。今後もよろしくお願いいたします。

回答No.3

noname#140971

例えば、フォームに非連結の[生年月日]と[計算日」を配置します。
で、[コマンド_年齢計算]で計算した年齢を[年齢]に表示するには・・・。

Private Sub コマンド_年齢計算_Click()
　　If Len(Me.生年月日 & "") * Len(Me.計算日 & "") Then
　　　　Me.年齢 = GetAge(Me.生年月日, Me.計算日)
　　Else
　　　　If Not Len(Me.生年月日 & "") Then
　　　　　　MsgBox "先に、[生年月日]を入力してください！"
　　　　Else
　　　　　　MsgBox "先に、[計算日]を入力してください！"
　　　　End If
　　End If
End Sub

で、[コマンド_初期化]でテキストボックスを初期化するには・・・。

Private Sub コマンド_初期化_Click()
　　Dim ctl As Control

　　For Each ctl In Me.Controls
　　　　If ctl.ControlType = acTextBox Then
　　　　　　ctl = ""
　　　　End If
　　Next
End Sub

なお、次のGetAge関数の信頼性は薄いと思って下さい。
あくまでも検証テストのために補足しているに過ぎません。

Public Function GetAge(ByVal Birthday As Date, ByVal Hiduke As Date) As Long
　　GetAge = DateDiff("yyyy", Birthday, Hiduke) + _
　　　　　　 (Format(Birthday - 1, "mm/dd") > Format(Hiduke, "mm/dd"))
End Function

補足

早々のご回答ありがとうございました。非連結フォームを作成しなおし、下記の初期化コマンドを試しましたがうまくいきません。
どこがおかしいのでしょうか。「ctl=""」にエラーがつきます。

Private Sub コマンド_初期化_Click()
　　Dim ctl As Control

　　For Each ctl In Me.Controls
　　　　If ctl.ControlType = acTextBox Then
　　　　　　ctl = ""
　　　　End If
　　Next
End Sub

回答No.2

CHRONOS_0

テーブルに残したくない(残す必要のない)計算式は
非連結のテキストボックスに書くか
フォームのソースをクエリにすればいいだけです
と言うかそうするのが当たり前

回答No.1

noname#140971

フォーム!レコードソース＝空白
テキストボックス!コントロールソース＝空白

単なる演算だけですと、このような非連結フォームにする筈。
で、なぜ、連結フォームにしているのでしょうか？

補足

生年月日を入力して年齢を出しています。その年齢も演算の中に組み込むので連結フォームにしているのですが、非連結フォームでもかのうですか？よろしければ教えてください。お願いいたします。