CISA FotoGallery

Statistiche

Tot. visite contenuti : 927928
Home Articoli tecnici VBA Modificare proprietà dei campi

Modificare proprietà dei campi

Il codice è da salvare in un modulo e nella Sub ci saranno da modificare i nomi.
Proprietà e formati sono quelli elencati nella guida, il tipo di formato è da tradurre in inglese anche nella versione italiana.

Fisso = Fixed
Numero generico = Generic number


Option Compare Database

Function SetAccessProperty(obj As Object, _
strName As String, intType As Integer, _
varSetting As Variant) As Boolean

Dim prp As Property
Const conPropNotFound As Integer = 3270

On Error GoTo ErrorSetAccessProperty
obj.Properties(strName) = varSetting
obj.Properties.Refresh
SetAccessProperty = True

ExitSetAccessProperty:
Exit Function

ErrorSetAccessProperty:
If err = conPropNotFound Then
Set prp = obj.CreateProperty(strName, intType, varSetting)
obj.Properties.Append prp
obj.Properties.Refresh
SetAccessProperty = True
Resume ExitSetAccessProperty
Else
MsgBox err & ": " & vbCrLf & err.Description
SetAccessProperty = False
Resume ExitSetAccessProperty
End If
End Function

Sub CambiaProperty()
Dim dbs As DAO.Database
Dim tdfNew As TableDef
Dim strTableName As String
Dim strFilePath As String

strFilePath = CurrentDb.Name

Set dbs = DBEngine(0).OpenDatabase(strFilePath)
Set tdfNew = dbs.TableDefs("tuatabella")

SetAccessProperty tdfNew.Fields("tuocampo"), "Format", 10, "Fixed"
End Sub