3

私はカスタム キャビネット メーカーで働いており、自社製品の独自の価格設定プログラムを作成しています。ポップアップ ボックスのあるフォームがあるので、ユーザーはそのキャビネットのあいまいなドアのヒンジをどちら側にするかを選択できます。これまでのところうまくいきましたが、アイテムをコピーして一番下に貼り付けたときに、ポップアップ ボックスが表示されないようにしました。Access VBA で、新しいレコードが貼り付けられているか手動で入力されているかを知る方法はありますか?

4

2 に答える 2

3

おそらく、これに沿った何かが合うでしょう。

Option Compare Database
Public gvarPasted As Boolean

Private Sub txtText_AfterUpdate()
If Not gvarPasted Then
    'Open pop-up here
Else
    gvarPasted = False
End If
End Sub

Private Sub txtText_KeyDown(KeyCode As Integer, Shift As Integer)
'Detect ctrl-V combination
If Shift = acCtrlMask And KeyCode = vbKeyV Then
    gvarPasted = True
End If
End Sub
于 2008-10-20T15:16:20.377 に答える
1

たとえば、次のようなコードを標準モジュールに追加すると、メニューをカスタマイズできます。

Public gvarPasted As Boolean

Function AssignVar()
    gvarPasted = True
    DoCmd.RunCommand acCmdPaste
End Function

ツールバー メニューのカスタマイズ オプションを使用して、メニューの Paste の Action プロパティをこの関数に設定できます。また、組み込みメニューの代わりに使用する独自のショートカット メニュー (右クリック メニュー) を作成する必要があります。ショートカット メニューは、すべてのフォームに割り当てることも、それを必要とするフォームだけに割り当てることもできます。すべてのフォームのショートカット メニューを無効にすることもできます。

于 2008-10-20T16:01:47.757 に答える