|
pakai ini aja
dim x as database
Dim TblMasteragen As TableDef
Set x = CreateDatabase(c:\test.mdb)
Set TblMasteragen = fl.CreateTableDef("mAgen") With TblMasteragen .Fields.Append .CreateField("KdAgen", dbText, 13) .Fields.Append .CreateField("NamaAgen", dbText, 40) .Fields.Append .CreateField("Alamat", dbText, 75) .Fields.Append .CreateField("no_telp", dbText, 15) .Fields.Append .CreateField("Contact", dbText, 30) .Fields.Append .CreateField("Wilayah", dbText, 20) .Fields.Append .CreateField("Harga_Satuan", dbCurrency, 8) .Fields.Append .CreateField("Discount", dbText, 4) End With x.TableDefs.Append TblMasteragen
x.close
semoga bisa membantu
jangan lupa referencenya pakai dao 3.5
|
<<IMSTP.gif>>
