Dijital Arşiv Programı - Baskı Önizleme

Dijital Arşiv Programı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Dijital Arşiv Programı (/konu-dijital-arsiv-programi.html)

Sayfalar: 1 2 3

RE: Dijital Arşiv Programı - lemoncher2 - 18/08/2021

MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil & "-" & Me.dosya_adi & "-" & Me.dosya_yil

 MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"

Bu kod ile klasör oluşturabilirsiniz. Herhangi bir Buton oluşturup "Tıklandığında" olayına bunu yaptırınız.

RE: Dijital Arşiv Programı - Mehmet007 - 19/08/2021

(18/08/2021, 20:31)lemoncher2 yazdı:
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil & "-" & Me.dosya_adi & "-" & Me.dosya_yil

 MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
Bu kod ile klasör oluşturabilirsiniz. Herhangi bir Buton oluşturup "Tıklandığında" olayına bunu yaptırınız.

Teşekkür ederim. Bu kod çok işime yaradı.

Private Sub klasor_adi_AfterUpdate()
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
End Sub

Private Sub dosya_adi_AfterUpdate()
MkDir CurrentProject.Path & "\" & Me.dosya_adi & "-" & Me.dosya_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
End Sub

Bu şekilde klasör oluşturmak istiyorum. Fakat dosya_adi klasörünü klasor_adi klasörünün içine nasıl açtırabillirim acaba

RE: Dijital Arşiv Programı - lemoncher2 - 19/08/2021

(19/08/2021, 11:49)Mehmet007 yazdı:
(18/08/2021, 20:31)lemoncher2 yazdı:
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil & "-" & Me.dosya_adi & "-" & Me.dosya_yil

 MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
Bu kod ile klasör oluşturabilirsiniz. Herhangi bir Buton oluşturup "Tıklandığında" olayına bunu yaptırınız.
Teşekkür ederim. Bu kod çok işime yaradı.

Private Sub klasor_adi_AfterUpdate()
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
End Sub

Private Sub dosya_adi_AfterUpdate()
MkDir CurrentProject.Path & "\" & Me.dosya_adi & "-" & Me.dosya_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
End Sub

Bu şekilde klasör oluşturmak istiyorum. Fakat dosya_adi klasörünü klasor_adi klasörünün içine nasıl açtırabillirim acaba

MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil & "\" & Me.dosya_adi
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"

Şeklinde denermisiniz

RE: Dijital Arşiv Programı - Mehmet007 - 19/08/2021

(19/08/2021, 12:34)lemoncher2 yazdı:
(19/08/2021, 11:49)Mehmet007 yazdı:
(18/08/2021, 20:31)lemoncher2 yazdı:
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil & "-" & Me.dosya_adi & "-" & Me.dosya_yil

 MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
Bu kod ile klasör oluşturabilirsiniz. Herhangi bir Buton oluşturup "Tıklandığında" olayına bunu yaptırınız.
Teşekkür ederim. Bu kod çok işime yaradı.

Private Sub klasor_adi_AfterUpdate()
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
End Sub

Private Sub dosya_adi_AfterUpdate()
MkDir CurrentProject.Path & "\" & Me.dosya_adi & "-" & Me.dosya_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
End Sub

Bu şekilde klasör oluşturmak istiyorum. Fakat dosya_adi klasörünü klasor_adi klasörünün içine nasıl açtırabillirim acaba
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil & "\" & Me.dosya_adi
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"

Şeklinde denermisiniz

Maalesef olmadı, hata verdi

RE: Dijital Arşiv Programı - lemoncher2 - 19/08/2021

(19/08/2021, 15:42)Mehmet007 yazdı:
(19/08/2021, 12:34)lemoncher2 yazdı:
(19/08/2021, 11:49)Mehmet007 yazdı:
(18/08/2021, 20:31)lemoncher2 yazdı:
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil & "-" & Me.dosya_adi & "-" & Me.dosya_yil

 MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
Bu kod ile klasör oluşturabilirsiniz. Herhangi bir Buton oluşturup "Tıklandığında" olayına bunu yaptırınız.
Teşekkür ederim. Bu kod çok işime yaradı.

Private Sub klasor_adi_AfterUpdate()
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
End Sub

Private Sub dosya_adi_AfterUpdate()
MkDir CurrentProject.Path & "\" & Me.dosya_adi & "-" & Me.dosya_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
End Sub

Bu şekilde klasör oluşturmak istiyorum. Fakat dosya_adi klasörünü klasor_adi klasörünün içine nasıl açtırabillirim acaba
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil & "\" & Me.dosya_adi
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"

Şeklinde denermisiniz
Maalesef olmadı, hata verdi

MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil & "\" & Me.dosya_adi
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"

Bu şekilde olacaktır

RE: Dijital Arşiv Programı - berduş - 19/08/2021

Dim TasinacakYer As String

Dim KlasorDz As Variant



TasinacakYer = "c:\xK\DOSYALAR"

KlasorDz = Split(TasinacakYer, "\")



Yol = ""

For Each Item In KlasorDz

Yol = Yol & "\" & Item

If Dir(Mid(Yol, 2), vbDirectory) = "" Then MkDir Mid(Yol, 2)

Next Item

'Klasör oluşturma____________________________Bitti

Taşınacak yer eğer yoksa oluşturur
Dilerim işinize yarar