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.
(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.
kodun içerisinde D sürücüsünü tanımlayan satır var onu C ile değiştirin
(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
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 Sub
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
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
gerçi ikiside aynı, dosya yoksa klasörde yok veya klasör yoksa dosyada yok,
fkat kodun
anlaşılabilirliğini artırmak adına sadece klasör ismi kullanılabilir.
(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;
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
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
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
gerçi ikiside aynı, dosya yoksa klasörde yok veya klasör yoksa dosyada yok,
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.