+- 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ığı: Yedeklediğim Access İ Winrar Olarak Yedeklesin (/konu-yedekledigim-access-i-winrar-olarak-yedeklesin.html)
Re: Yedeklediğim Access İ Winrar Olarak Yedeklesin - onur_can - 23/05/2024
Muhtemelen C veya D de izinleriniz bulunmuyor, Önce C sürücüsünü D olarak değiştirin deneyin, genelde C sürücüsünde şirket bilgisayarlarında izin olmaz, D sürücünde izinlerinizin olması zayıf bir ihtimal fakat onuda D sürücüsünün yerine C olarak değiştirip denemelisiniz. yine aynı hatayı veriyorsa admin kim ise ona söyleyin gerekli izinleri versin
2 veya daha fazla stringi( karakter grubunu) birleştirmek için aralarına & işareti eklemeniz gerekir. Örnek:
Metin1 de Access yazsın başka bir yerde veritabanları yazsın, bu iki grubu;
"access" & " " & "veritabanları"
yazılabilir.
RE: Yedeklediğim Access İ Winrar Olarak Yedeklesin - Acemi54 - 23/05/2024
(23/05/2024, 10:40)onur_can yazdı: Muhtemelen C veya D de izinleriniz bulunmuyor, Önce C sürücüsünü D olarak değiştirin deneyin, genelde C sürücüsünde şirket bilgisayarlarında izin olmaz, D sürücünde izinlerinizin olması zayıf bir ihtimal fakat onuda D sürücüsünün yerine C olarak değiştirip denemelisiniz. yine aynı hatayı veriyorsa admin kim ise ona söyleyin gerekli izinleri versin
2 veya daha fazla stringi( karakter grubunu) birleştirmek için aralarına & işareti eklemeniz gerekir. Örnek:
Metin1 de Access yazsın başka bir yerde veritabanları yazsın, bu iki grubu;
"access" & " " & "veritabanları"
yazılabilir.
Hocam D de her klasöre yetkim yok ama uygulamanın kullanıldığı klasöre ulaşma işlem yapma yetkim var.
RE: Yedeklediğim Access İ Winrar Olarak Yedeklesin - onur_can - 23/05/2024
kodun içerisinde D sürücüsünü tanımlayan satır var onu C ile değiştirin
RE: Yedeklediğim Access İ Winrar Olarak Yedeklesin - Acemi54 - 23/05/2024
(23/05/2024, 11:04)onur_can yazdı: kodun içerisinde D sürücüsünü tanımlayan satır var onu C ile değiştirin
Hocam işlerinde ben C yi göremiyorum gizli D:/ACCES klasörüne tam yetkim var ama D de başka klasörleri erişim iznim yok
Gönderdiğim kodu iş bilgisayarına uyarladim. C yetkim yok
Re: Yedeklediğim Access İ Winrar Olarak Yedeklesin - onur_can - 23/05/2024
Tamam ben de diyorum ki yetkin ve iznin olmadığı sürücü veya bu sürücülerde bulunan klasörleri kodun içerisinde kullanmayacaksın. Yetkin ve iznin olan sürücü ve klasörleri kullanacaksın. Örneğin D sürücüsünde Test-1 ve Test-2 klasörün olsun ve seninde sadece bu 2 klasöre erişim iznin var diyelim kodu nasıl değiştirmelisin. Şu Şekilde;
Kod:
Private Sub Komut0_Click()
Dim Yer As String
Yer = "D:\Test-1\Sakarya\ÇALIŞMA"
If Len(Dir(Yer, vbDirectory)) = 0 Then
MkDir (Yer)
End If
FileCopy "D:\Test-2\Deneme.accdb", Yer & "\Deneme .accdb "
End SubKod:
Private Sub Komut0_Click()
Dim Yer As String
Dim KlasorVarmi as String
KlasorVarmi ="D:\Test-1"
If Len(Dir(KlasorVarmi , vbDirectory)) = 0 Then
MkDir (KlasorVarmi)
End If
Yer = "D:\Test-1\Sakarya\ÇALIŞMA"
FileCopy "D:\Test-2\Deneme.accdb", Yer & "\Deneme .accdb "
End Subfkat kodun anlaşılabilirliğini artırmak adına sadece klasör ismi kullanılabilir.
RE: Yedeklediğim Access İ Winrar Olarak Yedeklesin - Acemi54 - 24/05/2024
(23/05/2024, 12:49)onur_can yazdı: Tamam ben de diyorum ki yetkin ve iznin olmadığı sürücü veya bu sürücülerde bulunan klasörleri kodun içerisinde kullanmayacaksın. Yetkin ve iznin olan sürücü ve klasörleri kullanacaksın. Örneğin D sürücüsünde Test-1 ve Test-2 klasörün olsun ve seninde sadece bu 2 klasöre erişim iznin var diyelim kodu nasıl değiştirmelisin. Şu Şekilde;
Birde burada bir kod hatası var D sürücüsünde Test-1 klasörünü test etmelisin, sen yol olarak tanımlamışsın, doğrusu şu şekilde olacak,Kod:Private Sub Komut0_Click()
Dim Yer As String
Yer = "D:\Test-1\Sakarya\ÇALIŞMA"
If Len(Dir(Yer, vbDirectory)) = 0 Then
MkDir (Yer)
End If
FileCopy "D:\Test-2\Deneme.accdb", Yer & "\Deneme .accdb "
End Sub
gerçi ikiside aynı, dosya yoksa klasörde yok veya klasör yoksa dosyada yok,Kod:Private Sub Komut0_Click()
Dim Yer As String
Dim KlasorVarmi as String
KlasorVarmi ="D:\Test-1"
If Len(Dir(KlasorVarmi , vbDirectory)) = 0 Then
MkDir (KlasorVarmi)
End If
Yer = "D:\Test-1\Sakarya\ÇALIŞMA"
FileCopy "D:\Test-2\Deneme.accdb", Yer & "\Deneme .accdb "
End Sub
fkat kodun anlaşılabilirliğini artırmak adına sadece klasör ismi kullanılabilir.
Hocam çok teşekkür ederim. Allah razı olsun. Verdiğin fikirler ışığında problem çözülmüştür. Gerçi WınRar yapamıyorum ama önemli değil. Hayırlı işlerin bol kazançın olsun hocam.