DBGridに規制をかけるには？ (ID:76504)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > 文字数の規制 更新前に切り捨てるとか。。。 Private Sub DBGrid1_BeforeColUpdate( _ ByVal ColIndex As Integer, _ OldValue As Variant, _ Cancel As Integer) Dim Value As Variant '処理対象の列番号かどうか If ColIndex = 対象列の番号 Then '現在の入力値を取得 Value = "" & DBGrid1.Columns(ColIndex).Value '4バイトを超えている場合は、入力値の先頭4バイトのみを利用する If LenB(StrConv(Value, vbFromUnicode)) > 4 Then Cancel = 1 Value = StrConv(LeftB(StrConv(Value, vbFromUnicode), 4), vbUnicode) OldValue = IIf(Value = "", Null, Value) End If End If End Sub > 郵便番号とかの特殊な形 う〜ん。DBGridだと、アンバウンドモードを使わない限り、 細かい入力制限はかけられない様な気がします。 VB6のDataGridであれば、「Microsoft Data Formatting Object Library」を 参照設定する事で使える[StdDataFormatオブジェクト]のイベントで 対処できるのですけれども。