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