データベースフィールドの桁数チェック

  Access 内は Unicode



テーブルが、MDB である場合にはコントロールソースから情報を勝手に取得して必要以上にデータが入力されないようにしてくれますが、外部データベースがバイトで処理される場合は、プログラムでチェックする必要があります

  
Private Sub cmbコード_BeforeUpdate(Cancel As Integer)

    Dim nCurDataLength, nTargetFieldSize

    nCurDataLength = LenB(StrConv(Me.cmbコード.Value, vbFromUnicode))
    nTargetFieldSize = Application.CurrentDb.TableDefs("得意先マスタ").Fields("得意先コード").Size
    
    If nCurDataLength > nTargetFieldSize Then
        MsgBox ("入力されたデータのサイズが大きすぎます ( " & nTargetFieldSize & "桁以内 )")
        Cancel = True
    End If

End Sub
  


Unicode 関連の文字列操作における Microsoft の関連情報は こちら










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ