» 2010 » 10月 » 03のブログ記事

見積ナンバーを入力するテキストボックスの更新前処理イベントを利用して、既に入力済みの見積ナンバーであるか否かをチェックした二重入力を防ぐ。
無視して続行するかどうかを選択するバージョン。

Private Sub 見積ナンバー_BeforeUpdate(Cancel As Integer)

    Dim msg As String
    Dim varV As Variant

    msg = "この氏名の社員は既に入力済みです。このまま入力を続けますか?"
    varV = DLookup("[見積ナンバー]", "T_見積", "[見積ナンバー] ='" & Me.見積ナンバー & "'")

    If Not IsNull(varV) Then
        Select Case MsgBox(msg, 17)
            Case 1
                Cancel = False
            Case Else
                Cancel = True
                Me.Undo
        End Select
    Else
        Cancel = False
    End If

End Sub

KUMAOの押入TOP

  • 累積 686194
  • 本日 26
  • 昨日 37
  • 累積PV 2159731
  • 本日のPV 35
  • 昨日のPV 53
  • 現在の閲覧 0

カレンダー

2010年10月
« 9月   3月 »
 123
45678910
11121314151617
18192021222324
25262728293031

カテゴリー

最近のコメント

アーカイブ

年間アーカイブ

Twitter