Tables |
1.5 Testare il formato (testo, numerico, data, ...) di un campo via codice. |
Lbo |
(D) Come è possibile testare il formato (testo, numerico, data, ...) di un campo di una tabella via codice VB? (R) E' possibile settando un field sul campo e controllando il valore della proprietà type del field. La proprietà type restituisce un valore numerico, vedi l'help per i dettagli. La routine fCodTipoDati2DescTipoDati, dato il valore numerico, restituisce una stringa col tipo dati del campo. Dim dbs As Database Dim tdf As TableDef Dim fld As Field Set dbs = CurrentDb Set tdf = dbs.TableDefs("Nometabella") Set fld = tdf.Fields("Nomecampo") MsgBox "Il tipo del campo e': " & fCodTipoDati2DescTipoDati(fld.Type) Public Function fCodTipoDati2DescTipoDati(CodTipoDati As Long) As String Select Case CodTipoDati Case 1 fCodTipoDati2DescTipoDati = "Boolean" Case 2 fCodTipoDati2DescTipoDati = "Byte" Case 3 fCodTipoDati2DescTipoDati = "Integer" Case 4 fCodTipoDati2DescTipoDati = "Long" Case 5 fCodTipoDati2DescTipoDati = "Currency" Case 6 fCodTipoDati2DescTipoDati = "Single" Case 7 fCodTipoDati2DescTipoDati = "Double" Case 8 fCodTipoDati2DescTipoDati = "Date/Time" Case 9 fCodTipoDati2DescTipoDati = "Binary" Case 10 fCodTipoDati2DescTipoDati = "Text" Case 11 fCodTipoDati2DescTipoDati = "Long Bin. (Ole obj.)" Case 12 fCodTipoDati2DescTipoDati = "Memo" Case 15 fCodTipoDati2DescTipoDati = "GUID" Case 16 fCodTipoDati2DescTipoDati = "BigInt" Case 17 fCodTipoDati2DescTipoDati = "Var binary" Case 18 fCodTipoDati2DescTipoDati = "Char" Case 19 fCodTipoDati2DescTipoDati = "Numeric" Case 20 fCodTipoDati2DescTipoDati = "Decimal" Case 21 fCodTipoDati2DescTipoDati = "Float" Case 22 fCodTipoDati2DescTipoDati = "Time" Case 23 fCodTipoDati2DescTipoDati = "TimeStamp" End Select End Function |