ACCESS VBA OTOMASYONU

Her pazartesi aynı ritüel: Siparisler tablosunu aç, durumu "Beklemede" olan kayıtları filtrele, tek tek "Onaylandi" yap, sonra listeyi Excel'e kopyalayıp muhasebeye gönder. Yirmi dakika, her hafta, aynı tıklamalar. Bu işin doğru adresi bir insan değil, dört satırlık bir döngüdür — ve Access, o döngüyü yazacağınız dili içinde taşır: VBA.

Bu yazının örnek dosyası gerçek bir otomasyon modülü içeriyor: modOtomasyon adlı modülde, bekleyen siparişleri topluca onaylayan ve onaylıları Excel'e aktaran iki prosedür. Kod ekran görüntüleri ve makaledeki kod blokları dosyadakiyle birebir aynı; indirip Alt+F11 ile kendiniz inceleyebilirsiniz.

1. VBA Editörü ve Modül Yapısı

Access'te kod, veritabanının içinde modüllerde yaşar. Alt+F11 tuşuyla açılan Visual Basic editörü, soldaki proje ağacında dosyanın modüllerini listeler; örnek dosyada tek modül var: modOtomasyon.

Modülün tepesindeki iki satır alışkanlık edinilmesi gereken türden: Option Compare Database metin karşılaştırma davranışını belirler, Option Explicit ise tanımlanmamış değişken kullanımını derleyici hatasına çevirir. İkincisi özellikle değerlidir — değişken adındaki yazım hatasını çalışma anında sessiz bir mantık hatası olarak değil, daha yazarken kırmızı uyarı olarak yakalarsınız.

2. Recordset ile Toplu Güncelleme

Modülün ilk prosedürü, pazartesi ritüelini bitiren kod. Dosyadaki hâliyle:

' Bekleyen siparisleri topluca onaylar ve sonucu raporlar
Public Sub BekleyenleriOnayla()
    On Error GoTo Hata

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sayac As Long

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("SELECT * FROM Siparisler WHERE Durum = 'Beklemede'")

    Do While Not rs.EOF
        rs.Edit
        rs!Durum = "Onaylandi"
        rs.Update
        sayac = sayac + 1
        rs.MoveNext
    Loop

    rs.Close
    MsgBox sayac & " siparis onaylandi.", vbInformation
    Exit Sub

Hata:
    MsgBox "Hata " & Err.Number & ": " & Err.Description, vbCritical
End Sub

Akış dört hamlede okunur: OpenRecordset, SQL süzgeciyle yalnızca bekleyen kayıtları getirir; Do While Not rs.EOF döngüsü kayıt kalmayana kadar döner; her turda Edit → alan değişikliği → Update üçlüsü bir kaydı günceller ve MoveNext sonrakine geçer. Sayaç değişkeni ise işin raporudur — prosedür bitince "5 siparis onaylandi." gibi net bir mesaj verir. Kaç kaydın etkilendiğini söylemeyen otomasyon, güven vermez.

Bir ayrıntı: koddaki metin değerleri ("Onaylandi" gibi) bilinçli olarak Türkçe karaktersiz tutuldu ve tablodaki durum alanı da aynı yazımı kullanır. Kod ile veri aynı yazımı paylaşmalıdır; "Onaylandı" arayan sorgu "Onaylandi" kayıtlarını bulamaz.

3. Hata Yakalama: On Error GoTo

Prosedürün ilk satırı On Error GoTo Hata, profesyonel kodu amatör koddan ayıran satırdır. Bir şey ters gittiğinde — tablo adı değişmiş, alan silinmiş, dosya kilitli — akış Hata etiketine atlar ve kullanıcı anlaşılır bir mesaj görür: hata numarası ve açıklaması. Hata yakalama olmayan kod ise ya sessizce yarım iş bırakır ya da kullanıcıyı hata ayıklama penceresine düşürür.

Kalıbın iki inceliğine dikkat edin: başarılı akışın sonundaki Exit Sub, normal bitişte hata bloğuna girilmesini engeller; Err.Number ve Err.Description ise sorunu tahmin ettirmek yerine söyler. DAO nesnelerinin ve hata modelinin tam başvurusu için VBA başvuru dokümantasyonu ana kaynaktır.

4. DoCmd ile Excel'e Aktarım

Modülün ikinci prosedürü ExceleAktar, onaylı siparişleri muhasebeye giden Excel dosyasına çevirir. İşin kalbi tek komuttur:

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, ...

DoCmd, Access'in menüyle yapılan işlerini koda açan nesnedir: aktarım, rapor açma, sorgu çalıştırma. TransferSpreadsheet ise dışa aktarımın atıdır — ilk parametre yönü (acExport), ikincisi biçimi (güncel .xlsx), devamı tablo/sorgu adını ve hedef dosya yolunu alır. Elle "kopyala-yapıştır-biçimlendir" turunun yerini, her seferinde aynı düzende çıkan tek komut alır.

Pratik desen şudur: aktarılacak veriyi önce bir sorguda hazırlayın (filtre, sıralama, kolon seçimi sorguda dursun), TransferSpreadsheet'e sorgunun adını verin. Kod sade kalır, düzen değişiklikleri sorgudan yönetilir.

5. Sonucu Veride Görmek

Otomasyonun kanıtı tablodadır. Örnek dosyanın Siparisler tablosunda durum kolonu iki değer taşır — Onaylandi ve Beklemede:

BekleyenleriOnayla'yı çalıştırdığınızda (editörde imleci prosedüre bırakıp F5) bekleyenlerin duruma göre değiştiğini ve sayaç mesajını görürsünüz. Aynı prosedürü bir form düğmesine bağlamak da tek satırdır: düğmenin Tıklandığında olayına BekleyenleriOnayla çağrısı yazılır — kullanıcı VBA'nın varlığını bilmeden otomasyonu kullanır.

6. Örneği İndirin

Önemli: dosyayı ilk açtığınızda Access, kod içerdiği için sarı güvenlik bandı gösterir — İçeriği Etkinleştir düğmesine tıklamadan VBA çalışmaz. Etkinleştirdikten sonra Alt+F11 ile editörü açın, BekleyenleriOnayla'yı F5 ile çalıştırın, tabloya dönüp sonucu izleyin. Kodu bozmaktan çekinmeyin; dosya alıştırma içindir.

Recordset döngüleri ve DoCmd komutları, Access otomasyonunun iki taşıyıcı kolonudur; form olayları, parametreli prosedürler ve dış veri senaryolarıyla birleştiğinde tam bir uygulama iskeletine dönüşür. Bu katmanı sistemli kurmak isteyenler için Access VBA eğitimi tam bu zinciri izliyor; VBA öncesi tablo-sorgu-form temelini sağlamlaştırmak isteyenlere ise Access eğitimi uygun başlangıçtır.