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
|