Query Nesnesi

Query nesnesi sorgu oluşturma ve yönetimi için kullanılır. Oluşturma:

Dim Query
Set Query = Doc.CreateSObject("Query")

UseTable

• Dönüş Tipi: Void
• Parametreler:
• - tableName (String): Tablo adı
• Açıklama: Sorgu için tablo belirler

Örnek Kullanım:

Sub Makro1()
    Dim Query
    Set Query = Doc.CreateSObject("Query")
    Query.UseTable "STOK00"
    ' Sorgu işlemleri...
    Set Query = Nothing
End Sub

ClearCriterias / Empty

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

Örnek Kullanım:

Sub Makro1()
    Dim Query
    Set Query = Doc.CreateSObject("Query")
    Query.UseTable "STOK00"
    Query.ClearCriterias
    Set Query = Nothing
End Sub

AddOrderBy

• Dönüş Tipi: Void
• Parametreler:
• - fieldName (String): Alan adı
• Açıklama: Sıralama kriteri ekler

Örnek Kullanım:

Sub Makro1()
    Dim Query
    Set Query = Doc.CreateSObject("Query")
    Query.UseTable "STOK00"
    Query.AddOrderBy "KOD"
    Set Query = Nothing
End Sub

AddAndCriteria

• Dönüş Tipi: Void
• Parametreler:
• - joinSet (COM Object): JoinSet nesnesi
• - fieldName (String): Alan adı
• - criteriaType (String): Kriter tipi
• - value (Variant): Değer
• Açıklama: AND kriteri ekler

Örnek Kullanım:

Sub Makro1()
    Dim Query, JoinSet
    Set Query = Doc.CreateSObject("Query")
    Set JoinSet = Doc.CreateSObject("JoinSet")
    Query.UseTable "STOK00"
    Query.AddAndCriteria JoinSet, "AKTIF", "=", 1
    Set Query = Nothing
    Set JoinSet = Nothing
End Sub

SetSpecFilterOpt

• Dönüş Tipi: Void
• Parametreler:
• - option (Integer): Filtre seçeneği
• Açıklama: Özel filtre seçeneğini ayarlar

GetSpecFilterResult

• Dönüş Tipi: Integer
• Parametreler:
• - type (String): Tip ("C", "M1", "S1")
• Açıklama: Özel filtre sonucunu döndürür

---