» 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

       If vbOK = MsgBox(msg, 16) Then

         Cancel = False
         Me.Undo

    End If

  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