Arkadaşlar teşekkürler çözdük. yardımlarınız için teşekkürler. belki başkasının işine yarar diye tüm kodları gönderiyorum.

Private Sub konu_AfterUpdate()

Me.arsivadi.Visible = True

Me.arsivnot.Visible = True

Dim a, x, y As String

x = Me.sube

y = Me.yil

a = Me.konu



If Len(Dir("\\YESIL1\yesilkart veri\GOOGLE\" & y & "\" & x & "\" & a & "", vbDirectory)) = 0 Then

MkDir "\\YESIL1\yesilkart veri\GOOGLE\" & y & "\" & x & "\" & a

End If



End Sub



Private Sub sube_AfterUpdate()

Me.konu.Requery

Me.konu.Visible = True

Dim a, x, w As String



a = Me.sube

x = Me.yil



If Len(Dir("\\YESIL1\yesilkart veri\GOOGLE\" & x & "\" & a & "", vbDirectory)) = 0 Then

MkDir "\\YESIL1\yesilkart veri\GOOGLE\" & x & "\" & a



End If



End Sub





Private Sub yil_AfterUpdate()

Me.sube.Visible = True

Dim a, x As String

a = Me.yil



If Len(Dir("\\YESIL1\yesilkart veri\GOOGLE\" & a & "", vbDirectory)) = 0 Then

MkDir "\\YESIL1\yesilkart veri\GOOGLE\" & a



End If



End Sub