Merhabalar.
VB6 üzerinden mdb dosyaşı oluşturup, dosyada tablo oluşturabiliyorum. Ancak tablonun tüm alanlarının Sıfır Uzunluk İzni "Hayır" oluyor. Halbuki bazı alanların bazen boş olması gerekebiliyor. VB6 ile bunu istenilen şekilde yapmak mümkün mü acaba?
Kullandığım kod şöyle:

'Veritabanı dosyası yoksa oluştur
    If Dir(App.Path & "\data.mdb") = "" Then
        Dim NewDB As Database
        Set NewDB = CreateDatabase(App.Path & "\data.mdb", dbLangGeneral, dbVersion70) 'dosyanın oluşturulacağı tam yol yazılmalı
       
        'Tablo oluştur
        Dim Tablo As New TableDef
        Set Dosya = OpenDatabase(App.Path & "\data.mdb") 'tablo oluşturulacak dosyanın tam yolu
        With Tablo
        .Name = "Örnek_Tablo"
        .Fields.Append .CreateField("BAŞLIK", dbText, 50)
        .Fields.Append .CreateField("GRUP", dbText, 50)
        .Fields.Append .CreateField("METİN", dbMemo)
        .Fields.Append .CreateField("KNO", dbInteger)
        End With
        Dosya.TableDefs.Append Tablo
        Set Dosya = Nothing
        Set Tablo = Nothing

Bu konuda yardımcı olabileceklere şimdiden teşekkür ediyorum.

Merhaba

.Fields.Append .CreateField("KNO", dbInteger)

kodunun hemen altına

.Fields![GRUP].AllowZeroLength = True

kodu eklerseniz GRUP alanının sıfır uzunluk iznini Evet olarak belirler.

Teşekkürler Üstad. Hemen denedim, sonuç olumlu. Konu hallodu.
Böyle bir ortam oluşturup yardım ve paylaşımlar için tekrar içten teşekkürler.

Konu başlığına uygun ve önceki sorunu paralelinde olduğunu düşünerek küçük bir ek soru sormak istedim. Site ortamında yeni üyelerden olduğumdan, yanlış yapıyorsam özür dilerim.
Sorum şu: Konunun ilk sorusundaki tablo alanları oluşturmakla ilgili. VB6 ile tablo ve alan oluştururken bir alanın özelliğini Otomatik Sayı olarak belirleyebilir miyiz?