Skip to main content

AccessTr.neT


Raporlamada çıkan görüntü

Raporlamada çıkan görüntü

Çözüldü #1
Merhaba Arkadaşlar ;
Girilen siparişlerin raporlarını istediğimde ekranda ekteki görüntü çıkıyor ve istenilen rapordaki her bir resimi tek tek sayıyor.Bu görüntüden kurtulmanın bir yolu varmı...Teşekkürler..
malidolu, 12-09-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
Hangi ek? Ben ek göremiyorum...
Filtrelemede Ölçüt
Like"*"&[metin kutusu]&"*"
Cevapla
Çözüldü #3
Kusura bakmayın
resim eklemede sıkıntı yaşıyorum
malidolu, 12-09-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 28/09/2009, 20:58, Düzenleyen: malidolu.
Cevapla
Çözüldü #4
Sn Malidolu programı eklesen. Saygılar..
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla
Çözüldü #5
Değerli arkadaşlar resim ekleyemiyorum bu nedenle sorun devam ediyor.Saygı bizden.Diyer arkadaşların bahsettiğigibi rar dosyalarını indiremiyorum.indi gibi görünüyor fakat dosyanın içi boş.Bilrmiyorum..
malidolu, 12-09-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #6
sn malidolu, 3. mesajınıza resim eklemişsiniz, çözümü yazıyorum
Uygulamada açılan ilk forma aşağıdakileri yazıp açıldığında olayına

Kod:
call kapat()
kodunu yazmayı deneyin.

Kod:
Function Kapat()
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
End Function

Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da