Sayın temre,
Bahsettiğiniz konuya dair veri türünü değiştirme işlemi için teferruatlı fonksiyon yerine aşağıdaki
Sql ifadesini bir sorgu oluşturup içerisine dahil ederek de,istediğiniz sonucu elde edebilirsiniz.
ALTER TABLE tbl_SIPARISSATIRLARI ALTER Column ONCELIK INTEGER
Ya da,makroda olsun derseniz de,o zaman;makro için kullandığınız fonksiyonunun içeriğini iptal edip yerine aşağıdaki
Sql ifadesini ekleyebilirsiniz.yukarıdaki işlemin aynısını verecektir.
CurrentDb.Execute ("ALTER TABLE tbl_SIPARISSATIRLARI ALTER Column ONCELIK INTEGER")
Function VERI_TIPI() As String
CurrentDb.Execute ("ALTER TABLE tbl_SIPARISSATIRLARI ALTER Column ONCELIK INTEGER")
'Dim tdf As TableDef
'Dim fld As Field
'Dim db As Database
'Dim prp
'Set tdf = db.TableDefs(" tbl_SIPARISSATIRLARI")
'Set fld = tdf.Fields("ONCELIK")
'Set prp = fld.CreateProperty("DisplayControl", dbInteger, TextBox)
'DoCmd.SetWarnings False
'fld.Properties.Append prp
'DoCmd.SetWarnings True
End Function
Ek’teki örnek uygulamada her iki duruma göre de yazım mevcuttur.inceleyebilirsiniz.
İyi çalışmalar,
Saygılar.
deneme61-ATOZ.rar
(Dosya Boyutu: 99,8 KB | İndirme Sayısı: 0)