" 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 :
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.