FieldDefinition Nesnesi

FieldDefinition nesnesi alan tanımları için kullanılır. Oluşturma:

Dim FieldDef
Set FieldDef = Doc.CreateSObject("FieldDefinition")

Clear / Empty

• Dönüş Tipi: Void
• Parametreler: Yok
• Açıklama: Alan tanımını temizler

Örnek Kullanım:

Sub Makro1()
    Dim FieldDef
    Set FieldDef = Doc.CreateSObject("FieldDefinition")
    FieldDef.Clear
    Set FieldDef = Nothing
End Sub

IsNumeric

• Dönüş Tipi: Boolean
• Parametreler: Yok
• Açıklama: Alanın sayısal olup olmadığını kontrol eder

Örnek Kullanım:

Sub Makro1()
    Dim FieldDef
    Set FieldDef = Doc.CreateSObject("FieldDefinition")
    FieldDef.Name = "MIKTAR"
    FieldDef.DataType = "NUMERIC"
    
    If FieldDef.IsNumeric() Then
        Doc.MsgBox "Sayısal alan"
    End If
    Set FieldDef = Nothing
End Sub

IsDate

• Dönüş Tipi: Boolean
• Parametreler: Yok
• Açıklama: Alanın tarih olup olmadığını kontrol eder

Örnek Kullanım:

Sub Makro1()
    Dim FieldDef
    Set FieldDef = Doc.CreateSObject("FieldDefinition")
    FieldDef.Name = "TARIH"
    FieldDef.DataType = "DATE"
    
    If FieldDef.IsDate() Then
        Doc.MsgBox "Tarih alanı"
    End If
    Set FieldDef = Nothing
End Sub

SetUserBrowseFnc / SetUF2Fnc

• Dönüş Tipi: Void
• Parametreler: Yok
• Açıklama: Kullanıcı tarama fonksiyonunu ayarlar

GetFormattedCaption

• Dönüş Tipi: Variant (String)
• Parametreler:
• - format (String): Format string'i
• Açıklama: Formatlanmış başlığı döndürür

IsHiddenField

• Dönüş Tipi: Boolean
• Parametreler: Yok
• Açıklama: Alanın gizli olup olmadığını kontrol eder

GetType

• Dönüş Tipi: Variant (String)
• Parametreler: Yok
• Açıklama: Alan tipini döndürür

GetMustEnter

• Dönüş Tipi: Variant (Boolean)
• Parametreler: Yok
• Açıklama: Alanın zorunlu olup olmadığını kontrol eder

Özellikler:

• Name (String): Alan adı
• DataType (String): Veri tipi
• Length (Integer): Uzunluk
• SigDig (Integer): Anlamlı basamak sayısı
• PrintOpt (Integer): Yazdırma seçeneği
• DataAlignment / Alignment (String): Hizalama
• F2Fnc / BrowseFnc / UserBrowseFnc (String): Tarama fonksiyonu
• GroupCode / GrupKodu (String): Grup kodu
• RaporAciklamasi (String): Rapor açıklaması
• Label / ARaporAciklamasi (String): Etiket
• Caption (String): Başlık
• Font_FaceName (String): Font adı
• Font_Use (Integer): Font kullanımı
• Font_Bold (Integer): Kalın yazı
• Font_Italic (Integer): İtalik
• Font_Underline (Integer): Altı çizili
• Font_StrikeOut (Integer): Üstü çizili
• Font_PointSize (Integer): Font boyutu
• Font_TxtClr (String): Metin rengi
• Font_CharSet (Integer): Karakter seti
• Ve diğer yazdırma ve format özellikleri...

Örnek Kullanım:

Sub Makro1()
    Dim FieldDef
    Set FieldDef = Doc.CreateSObject("FieldDefinition")
    FieldDef.Name = "STOK_KODU"
    FieldDef.DataType = "CHAR"
    FieldDef.Length = 20
    FieldDef.Alignment = "L"
    FieldDef.Caption = "Stok Kodu"
    FieldDef.Font_Bold = 1
    Set FieldDef = Nothing
End Sub

---