Alan'ları Biçimlendirmek

[Orion1]

Merhabalar.
Aşağıdaki kodlar ile mdb dosyası yaratabiliyorum.
İstediğim, SIRA adlı alanın otomatik sıra numarası verecek şekilde biçimlendirilmesi ve Tarih ve alanının Tarih şeklinde biçimlendirilmesi("dd.mm.yyy"),Yas alanının da Sayı şeklinde biçimlendilirmesi.
Teşekkür ederim.
Sub Mdb_Dosyası_Yarat()
Dim Yol As String
Dim Cat As Object
Dim NewTable As Object

Yol = "C:\Evren\MDB\db2.mdb"
Set Cat = CreateObject("ADOX.Catalog")
Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Yol

Set NewTable = CreateObject("ADOX.Table")

With NewTable
.Name = "Tablo2"
.Columns.Append "SIRA"
.Columns.Append "Tarih"
.Columns.Append "isim"
.Columns.Append "Soyad"
.Columns.Append "Yas"
.Columns.Append "Tel"
End With

Cat.Tables.Append NewTable
End Sub

[modalı]

Kodları aşağıdaki gibi yaparsanız olur herhalde.


With NewTable
.Name = "Tablo2"
.Columns.Append "ID", adInteger
' Make the ContactId column and auto incrementing column
.Columns("ID").Properties("AutoIncrement") = True
.Columns.Append "Tarih", adDate
.Columns.Append "isim", adVarWChar, 20
.Columns.Append "Soyad"
.Columns.Append "Yas", adInteger
.Columns.Append "Tel"
End With


İyi çalışmalar:hey:

[Orion1]

Merhabalar.
Sayın modalı teşekkür ederim.İyi geceler.

[Haluk]

Sayın modalı,

Yukarıda soruyu soran sezar, sanırım benim daha önceden hazırladığım bir kodu kullanıyor.

Bu kodda, CreateObject yöntemi kullanıldığı için değişkenler de Late Binding olarak deklare edilmişti. (Yani Excel'de herhangibir referans eklemeye gerek kalmamıştı.)

Bu durumda sizin önerdiğiniz kodlardaki sabitler yerine, bunların değerlerini kullanmak gerekir. (Uygulamada, ilgili referanslar eklenmeyecekse.)

Yani;

adDate = 7
adVarWChar = 202
adInteger = 3

[modalı]

Sayın Haluk bey,

Bu kodları Access içinden denedim çalışıyorlar.

İyi çalışmalar:)