Öncelikle her kese kolay gelsin Bir sorum olacak Bir çatak hazırlıyorum ve aşağıdaki kodu yazdım fakat yapmak istediğim şu hafta sonrarını atlatmak istiyorum yardımcı olursanız çok sevinirim. Şimdiden Teşekkürler

[code=vba]
Option Compare Database

Private Sub Form_Load()
Metin4 = 1
End Sub

Private Sub Komut32_Click()
On Error GoTo Err_Komut32_Click

If Metin4 = 0 Then
[sırano] = 1


ElseIf Metin4 > 0 Then
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim i As Integer

Merhbalar,

Form üzerinden bir butona bastığımızda, formun bağlı olduğu tabloda bulunan tüm satırların karşılığında ki Ek'leri tek sefer bir klasöre çıkarabilir miyiz?

aşağıda benim yapmış olduğum bir VBA var.
[code=vba]Function e_dorse()
Dim yol As String
Dim frm As Form
If CurrentProject.AllForms("form").IsLoaded Then
   Set frm = Forms("form")
ElseIf CurrentProject.AllForms("form_2").IsLoaded Then
   Set frm = Forms("form_2")
ElseIf CurrentProject.AllForms("tablo_2").IsLoaded