Noname > 31-08-10, 09:19 AM
Function TypeField(T As String, F As String)
'T: tên table, F: tên Field
TypeField = FieldType(CurrentDb.TableDefs(T).Fields(F).Type)
End Function
Function FieldType(intType As Integer) As String
Select Case intType
Case dbBoolean
FieldType = "dbBoolean"
Case dbByte
FieldType = "dbByte"
Case dbInteger
FieldType = "dbInteger"
Case dbLong
FieldType = "dbLong"
Case dbCurrency
FieldType = "dbCurrency"
Case dbSingle
FieldType = "dbSingle"
Case dbDouble
FieldType = "dbDouble"
Case dbDate
FieldType = "dbDate"
Case dbText
FieldType = "dbText"
Case dbLongBinary
FieldType = "dbLongBinary"
Case dbMemo
FieldType = "dbMemo"
Case dbGUID
FieldType = "dbGUID"
End Select
End Function
Private Sub Command0_Click()
MsgBox TypeField("Table1", "MASO")
End Sub
haquocquan > 31-08-10, 03:27 PM
Noname > 31-08-10, 03:33 PM
(31-08-10, 03:27 PM)haquocquan Đã viết: Tiếp tuc nhờ Noname giúp đoạn code thay đổi kiểu dữ liệu của một field bất kỳ nhé.