AccessTr.neTMicrosoft AccessAccess Dersleri

Access 2003 developer Extention

1 2 3
24/05/2009, 16:29

mehmeser

Aslında diğer konuyla da ilgili birçok ipucu içeriyor ama burdaki bir soruya da cevap veriyor. Bir taşla iki kuş olsun.
24/05/2009, 16:31

okileturc

Öncelikle ilgilenip cevapladığınız için çok teşekkür ederim,
cevplarınızın hepsi doyurucu ben sadece iyi anlatamadğım
konuları açmak için cevap yazıyorum
1. Office set in içinde Office araçlarında "JPEG filters" var. Access eğer bu
filtreler yüklenmişse form üzerindeki bağlı JPEG leri gösterebiliyor
Office set kurmaz runtime ile çalışırsanız JPEG import çalışmadığı için
resim dosyaları hata veriyor ( burada söz konusu edilen JPEG dosya olarak
kayıtlarra bağladıklarımız değil, arayüzde görsellik için kullandığımız fon, buton resimleri ) Sonuç : bu grafikleri BMP yaptım sorun kalmadı.

2. Yine Office programları JPEG formatını dir dış format olarak kabul ettiği için
ekrana getirirken bir dialog penceresi açıyor ve "Loading JPEG" benzeri bir yazı ile kısa bir süre ekranda kalıyordu ve bu da bazen uygulamanın kitlenmesine sebep oluyordu. Aşmak için
Hot key local machine ve Hot key current user altından bu dialog pencesresini
iptal ediyorduk Bkz Sn Sledgeab ın konuya ilişkin 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
Elbette grafikler BMP olunca bu ihtiyaç ortadan kalktı

3. Ben uygulamamın içindeki tüm form sorgu, tablo,vb ne varsa sildim.
İçinde sadece referansları bıraktım ve bu dosyayı paketledim.
Runtime ı hedef bilgisayara bu şekilde kuruyorum.

Sonra Install Creator la ( veya benzer bir programla ) asıl uygulamamı dilediğim yere kuruyorum ( Çünkü Setup Wizard C:' ye kurmuyor, en yakın seçenek "Program files") Böylece tüm uygulamalar ve tüm bilgisayarlar için tek bir Runtime kurulum dosyası kullanabilirim, yani her uygulamamı ayrı ayrı paketlememe gerek kalmadı


Asıl konu halloldu, bunlar artık olsa da olur tarzında kişisel tercih ve tecrübeler, cevaplarınız için tekrar tşk.

Kolay gelsin
29/06/2009, 19:22

blacksir

Ben uygulamamın içindeki tüm form sorgu, tablo,vb ne varsa sildim.
İçinde sadece referansları bıraktım ve bu dosyayı paketledim.
Runtime ı hedef bilgisayara bu şekilde kuruyorum BURAYI BİRAZ AÇARMISINIZ PEK ANLAYAMADIM
1 2 3