syo777回答ポイント 200pt

ACCESS2000を使用しています。

今「フォーム１」というフォームがあるとして、それには「項目１」という入力欄があるとします。
フォーム１はテーブルと連結しており、値を入れると、テーブルに値が入るようになっています。

今、「フォーム１」の「項目１」に値を入れようとしたとき、
既に「項目１」の値が入っている場合には、「既に値が入っているため、入力できません」
と表示させたいと思っています。
初めての入力のみ、受け付けるということです。
（再度値の変更をするには、ボタンを作成し、それを押すと「項目１」にNULLを入れて入力可にしたいと思っています。）

なんとなくですが、「項目１」がNULLか判定し、NULLの時は更新を認め
そうでない場合には値を修正できないように
イベントの変更時か更新前後にプログラムを組むのだろうと思っておりますが、
どのように書けばよいか、具体的なプログラムをご教示ください。
違う方法で良い案があればそれでもかまいません。
よろしくお願いします。

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

ログインして回答する

ベストアンサー

うぃんど2012/07/28 21:03:51
満足200pt

レコード移動時イベント（Form_Currentイベント）に下記のように１行書き加えれば、項目１が空もしくはヌルの場合だけ入力可能になります。

Private Sub Form_Current()
    Me.項目１.Enabled = IIf(IsEmpty(Me.項目１.Value) Or IsNull(Me.項目１.Value), True, False)
End Sub

項目１の内容にあわせて、例えばボタンを出現させたりするといった処理なども加えるならば、下記の様にして処理を分岐すれば良いでしょう。

Private Sub Form_Current()
    If IsEmpty(Me.項目１.Value) Or IsNull(Me.項目１.Value) Then
        Me.項目１.Enabled = True
    Else
        Me.項目１.Enabled = False
    End If
End Sub

テキストボックス（メッセージ用）とボタン（変更１）を用意して、下記の様にするとほぼ希望どおりかと・・・
（Access2000で作ってから貼り付けてます）

Private Sub Form_Current()
    Me.メッセージ用.Value = ""
    If IsEmpty(Me.項目１.Value) Or IsNull(Me.項目１.Value) Then
        Me.項目１.Enabled = True
        Me.変更１.Visible = False
    Else
        Me.項目１.Enabled = False
        Me.メッセージ用.Value = "項目１は既に入力されています。変更したい場合は、変更ボタンを押してください。"
        Me.変更１.Visible = True
    End If
End Sub

Private Sub 変更1_Click()
    Me.項目１.Enabled = True
    Me.項目１.SetFocus
    Me.変更１.Visible = False
End Sub

スター

1件のコメントを見る
syo777 2012/07/28 22:16:01

ここまで丁寧にご説明いただきありがとうございました＾＾
大変助かりました！

スター

ACCESS2000を使用しています。

ベストアンサー

うぃんど2012/07/28 21:03:51
満足200pt

syo777 2012/07/28 22:16:01

その他の回答

この質問へのコメント

この質問への反応（ブックマークコメント）

質問の情報

この質問のカテゴリ

この質問に含まれるキーワード

人気の質問

メニュー

PC版

ACCESS2000を使用しています。

ベストアンサー

うぃんど2012/07/28 21:03:51 満足200pt

syo777 2012/07/28 22:16:01

その他の回答

この質問へのコメント

この質問への反応（ブックマークコメント）

質問の情報

この質問のカテゴリ

この質問に含まれるキーワード

人気の質問

メニュー

PC版

うぃんど2012/07/28 21:03:51
満足200pt