Accessフィールドプロパティー削除


VB Tips And Sample(HOME)(戻る)




Private Sub PropertyUpdate(ByRef RS As DAO.Recordset)
'プロパティーを初期化する
    Dim X As Long
    Dim Pro As Property
On Error Resume Next
    For X = 0 To RS.Fields.Count - 1
      Set Pro = RS.Fields(X).CreateProperty("Description", dbText, " ")
      RS.Fields(X).Properties("Description") = Pro
      RS.Fields(X).Properties.Refresh
    Next X
    
    Err.Clear
End Sub



VB Tips And Sample(HOME)(戻る)