Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
24/10/2013 13:13
Konu Sahibi
konfueyus
Yorumlar
1
Okunma
1256
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

konfueyus

Aktif Üye
Kullanici Avatari
Aktif Üye
22
13/11/2008
0
Adana
Ofis 2003
05/07/2014,02:05
Çözüldü 
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


Cevapla

C*e*l*o*y*c*e

Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.986
29/10/2008
927
Ankara
Celosoft Yazılım
Ofis 2010 32 Bit
Bugün,06:45
Çözüldü 
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 ...


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Dosya Kontrolü turalsitkituralvolkan 2 253 19/04/2017, 09:30 turalsitkituralvolkan
Çözüldü Ağda Bölünmüş Veritabanı Güvenliği husem 4 421 07/03/2017, 18:54 husem
Çözüldü Dosya konumunu alma tufanbal 7 788 02/12/2016, 10:48 tufanbal
Çözüldü Klasöre kaydederken,Dosya Adını yazarak yedeklemek musteri53 11 1.161 18/11/2016, 23:11 ozanakkaya
Çözüldü Veritabanını Ağda Paylaşımlı Kullanma ertans 3 608 16/11/2016, 09:15 ertans

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.