+- 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ığı: ağda dosya paylaşımı (/konu-agda-dosya-paylasimi.html)
ağda dosya paylaşımı - konfueyus - 24/10/2013
Uygulamamı Tablolar ve Formlar olarak ikiye böldüm ve bu iki dosyayı ağ üzerinden paylaşıma açtım. Ağ üzerinde bulunana kullanıcıların masa üstlerine Formların bulunduğu dosyanın kısayolunu ekledim. Kullanıcılar formu bu kısa yoldan açarak kayıt işlemlerinin gerçekleştiriyorlar ve gayet de güzel çalışıyor.
Uygulamaya eklemek istediğim ise;
Yine ağ üzerinde bir klasörü paylaşımı açtım. Klasör içerisinde pdf dosyaları mevcut. Uygulama tablolardan birisine tarama isimli bir sütun oluşturarak özelliğini köprü olarak yaptım. Aşağıdaki kod ile pdf dosyasının yolunu ekleyerek dosyaları ana bilgisayarda açabiliyorum. Ancak kısa yolunu attığım diğer bilgisayarlarda açmak istediğim dosyanın yolunu bulamadığından bu pdf dosyasını açamıyorlar. Diğer bilgisayarlarında bu dosyaları görmesi için dosya yolunu nasıl yazmalıyım?
Private Sub Komut65_Click()
Me.tarama.SetFocus
DoCmd.RunCommand acCmdEditHyperlink
Exit Sub
ErrEditHyper:
Select Case Err
Case 2046
Resume Next
Case 2501
Resume Next
Case Else
Resume Next
End Select
End Sub
Cvp: ağda dosya paylaşımı - C*e*l*o*y*c*e - 25/10/2013
Private Sub Komut65_Click()
Dim Celoy
Celoy = CurrentProject.Path & Me.xxxxx & ".pdf"
' burda pdf adını( xxxxx diye yazdım)kendine göre yazmalısın ve pdf dosyası ile accesin aynı yerde olmalı
Call Shell("Celoy "
Me.tarama.SetFocus
DoCmd.RunCommand acCmdEditHyperlink
Exit Sub
ErrEditHyper:
Select Case Err
Case 2046
Resume Next
Case 2501
Resume Next
Case Else
Resume Next
End Select
End Sub
gibi denermisin ...