Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

2003 Serverde Access açma uyarısı

danke
danke
Access Cevaplanmış Soruları
4
2795

2003 Serverde Access açma uyarısı

Çözüldü #3
okileturc
Onursal Üye
okileturc
Bul
Onursal Üye

Additional groups:
Üye
Adı Soyadı: Ok.... Le....
Yaşı: 66
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 11/09/2020,15:07
Yorumları: 966
Konuları: 113
Kayıt Tarihi: 18/03/2009
Teşekkür Puanı: 464
" Hatta Accesste yaptığım program içine koyulan link alanına bağlı Word dosyalarıda açılmak için tıklandığında aynı uyarıyı veriyor"

Ben bu konuda bildiğimi paylaşayım

Access içinde verdiğiniz linklerle/köprülerle ilgili çıkan
hata mesajını görmek istemiyorsanız :

[Resim: screenhunter08may300434.jpg]

[Resim: screenhunter09may300435.jpg]

Kolay gelsin

Sn admin daha önce regedit te import graphics ayarları ile
çok güzel kod yazmıştınız. Bu müdaheleyi de kod olarak verirseniz
( varsa değişecek - yoksa eklenecek ) kendi adıma ben de
çok mutlu olacağım. Teşekkürler

Hatırlatma için daha önce gönderdiğiniz
"jpeg import dialog box" için gönderdiğiniz
kayıt kodu

Kod:
Function REGEDITKAPAT()
On Error GoTo grafikayar
Dim sReturn As String
Dim sErr
Dim WS As Object
Set WS = CreateObject("WScript.Shell")
sReturn = WS.regread("HKCU\Software\Microsoft\Shared Tools\Graphics Filters\Export\JPEG\Options\ShowProgressDialog")
If sReturn = "Yes" Then 'change ShowProgressDialog entry to "No"
WS.regwrite "HKCU\Software\Microsoft\Shared Tools\Graphics Filters\Export\JPEG\Options\ShowProgressDialog", "No"
End If
sReturn = ""
sReturn = WS.regread("HKCU\Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options\ShowProgressDialog")
If sReturn = "Yes" Then 'change ShowProgressDialog entry to "No"
WS.regwrite "HKCU\Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options\ShowProgressDialog", "No"
End If
sReturn = ""
sReturn = WS.regread("HKLM\Software\Microsoft\Shared Tools\Graphics Filters\Export\JPEG\Options\ShowProgressDialog")
If sReturn = "Yes" Then
WS.regwrite "HKLM\Software\Microsoft\Shared Tools\Graphics Filters\Export\JPEG\Options\ShowProgressDialog", "No"
End If
sReturn = ""
sReturn = WS.regread("HKLM\Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options\ShowProgressDialog")
If sReturn = "Yes" Then
WS.regwrite "HKLM\Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options\ShowProgressDialog", "No"
End If
sReturn = ""
Set WS = Nothing
Exit Function
grafikayar:
MsgBox "HKLM ve HKCU Microsoft" & vbCrLf & _
    "Grafik ayarları yapılamadı ." & vbCrLf & _
    "İşlemleri manüel olarak yapınız.", _
    vbCritical + vbOKOnly, _
    "Microsoft Grafik ayarları"
End Function
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 30/05/2009, 04:48, Düzenleyen: okileturc.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
2003 Serverde Access açma uyarısı - Yazar: danke - 29/05/2009, 22:15
Cvp: 2003 Serverde Access açma uyarısı - Yazar: okileturc - 30/05/2009, 04:39