Newsgroup: it.comp.appl.access
Titolo: PROPRIETA' DI UN CAMPO

Come è possibile testare il formato (TESTO, NUMERICO, DATA, ...) di un campo
di una tabella via codice VB ?
Grazie.
U.J.

 U.J.
Certo che e' possibile, l'oggetto Field ha la proprieta'
Type che indica proprio il tipo di dato del campo.
Questo valore e' un long, ma puoi usare la funzione (di
Lbo) qui sotto per determinare il tipo.
P.S.
Al prossimo aggiornamento questa funzione va sul Sito
Comune.
-----------------------------------------------------------------------------
- Routine per determinare il tipo dati di un field.
Public Function fCodTipoDati2DescTipoDati(CodTipoDati As
Long) As String
'Autore: Lbo
    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
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------

di una tabella via codice VB ?
setta una tabledef sulla tabella, setta un field sul campo, controlla
il valore del type del field.  type ti restituisce un valore numerico,
vedi l'help per i dettagli.
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': " & fld.type
se cerchi nei vecchi mex ne trovi uno mio dove c'era una funzione la
quale, dato il valore numerico, restituiva una stringa col tipo dati
del campo.  praticamente un select case lunghissimo.  forse se vedi
sull'help fai prima a fartela da solo.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/

Grazie ora la provo
--
Grazie
U.J.