Public Function YedekleWinRAR()
 
' herhangi bir formda yedeklemeyi tetiklemek için bir buton altına fonkiyonun başındaki YedekleWinRAR adını ekleyerek yedekleme yapabilirsiniz
 
    On Error GoTo ErrHandler
    
    Dim kaynakDosya As String
    Dim hedefKlasor As String
    Dim hedefDosya As String
    Dim zamanDamgasi As String
    Dim WinRARYolu As String
    Dim komut As String
    
    ' --- Yedeklenecek ana Access dosyası
    kaynakDosya = "C:\Users\xxxxx\OneDrive\Desktop\dosya_adi.mdb"  ' <-- buraya kendi dosya yolunu yaz
    
    ' --- Yedeklerin kaydedileceği klasör
    hedefKlasor = "C:\Users\xxxx\OneDrive\Desktop\klasor_adi\"  ' <-- buraya istediğin klasörü yaz
    If right(hedefKlasor, 1) <> "\" Then hedefKlasor = hedefKlasor & "\"
    
    ' --- WinRAR yolu
    WinRARYolu = "C:\Program Files\WinRAR\WinRAR.exe"  ' <-- WinRAR.exe'nin tam yolu
    
    ' --- Dosya adı + tarih
    zamanDamgasi = Format(Now, "yyyymmdd_hhnnss")
    hedefDosya = hedefKlasor & "Yedek_" & zamanDamgasi & ".rar"
    
    ' --- Komut oluştur (WinRAR ile sıkıştırma)
    komut = """" & WinRARYolu & """ a -ep1 """ & hedefDosya & """ """ & kaynakDosya & """"
    
    ' --- Komutu çalıştır
    Shell komut, vbHide
    
    MsgBox "Yedekleme başlatıldı: " & vbCrLf & hedefDosya, vbInformation, "Başarılı"
    
    Exit Function
ErrHandler:
    MsgBox "Yedekleme hatası: " & err.Description, vbCritical, "Hata"
End Function

Sub ListeleTabloAlanlari()
    Dim db As DAO.Database
    Dim td As DAO.TableDef
    Dim fld As DAO.Field
    Dim tabloAdi As String
    Dim mesaj As String
    
    ' Kullanıcıdan tablo adını al
    tabloAdi = InputBox("Alan adlarını görmek istediğiniz tablo adını girin:", "Tablo Adı Girişi")
    If tabloAdi = "" Then Exit Sub  ' Boş geçilirse çık
    
    ' Veritabanı nesnesini ayarla
    Set db = CurrentDb
    
    ' Tablo mevcut mu kontrol et
    On Error Resume Next
    Set td = db.TableDefs(tabloAdi)
    If Err.Number <> 0 Then
        MsgBox "Bu isimde bir tablo bulunamadı: " & tabloAdi, vbCritical, "Hata"
        Exit Sub
    End If
    On Error GoTo 0
    
    ' Alanları sırayla dolaş
    For Each fld In td.Fields
        If mesaj <> "" Then mesaj = mesaj & ", "
        mesaj = mesaj & fld.Name
    Next fld
    
    ' Sonucu mesaj kutusunda göster
    MsgBox mesaj, vbInformation, "Tablo Alan Listesi"
    
    'Eğer sonucu bir metin kutusuna yazdırmak istiyorsanız metin kutusu adını aşağıya yazınız
    
    'Me.metinkutusu = mesaj
    
End Sub

Sub FormMetinKutusuListele()
    Dim ctrl As Control
    Dim frm As Form
    Dim mesaj As String
    
    ' Aktif formu al (kullanıcı o anda hangi formdaysa)
    Set frm = Screen.ActiveForm
    
    ' Formdaki tüm kontrolleri dolaş
    For Each ctrl In frm.Controls
        ' Metin kutusu veya birleşik giriş kutusu ise ekle
        If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then
            If mesaj <> "" Then mesaj = mesaj & ", "
            mesaj = mesaj & ctrl.Name
        End If
    Next ctrl
    
    ' Sonucu göster
    MsgBox mesaj, vbInformation, "Form Kontrol Listesi"
    
    'Eğer sonucu bir metin kutusuna yazdırmak istiyorsanız metin kutusu adını aşağıya yazınız
    
    'Me.metinkutusu = mesaj
    
End Sub