Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Probleme mit Bildern im Formular
zurück: Datensatz eingeben in Formular weiter: Ausdrucksgenerator / Steuerelementinhalt Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Rückfrage Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
tko
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Okt 2006, 16:41
Rufname:

Probleme mit Bildern im Formular - Probleme mit Bildern im Formular

Nach oben
       Version: Office 2003

Hallo!

Ich kämpfe zz mit folgendem Problem.

In einem Access Formular zeige ich zum dazu passenden Datensatz ein foto an (jpeg, 100-300 kb dateigröße, ~1024x768 auflösung), dieses wird nicht direkt in der db gespeichert, sondern es wird lediglich der pfad zum bild, welches auf einem server liegt verfolgt.

wenn ich langsam durch die datensätze navigieren funktioniert es sehr gut, wenn ich allerdings schneller durchscrolle kommt die meldung "...access hat ein problem festgestellt und muss beendet werden (oder so)..."

Weiss jemand woran das liegt beziehungsweise was abhilfe leisten kann ?

lg
tko
derArb
getting better


Verfasst am:
25. Okt 2006, 17:17
Rufname: derArb
Wohnort: Berlin


AW: Probleme mit Bildern im Formular - AW: Probleme mit Bildern im Formular

Nach oben
       Version: Office 2003

hallo,

das liegt am Loading image dialog

evtl. hilft dieser code
Code:
Option Compare Database
Option Explicit
'---Posted By Dev Ashish---
'
'Suppress the "Loading Image" dialog
'
'(Q) Instead of storing the images in a table, I'm now string the path and
'filename of the files in a table, and using the Image control.
'However, I don't want the "Loading Image" dialog to come up. How can I hide
'this dialog?
'##############################################
'you may suppress the "Loading Image" dialog via registry-setting
'
'Example:
'HKEY_LOCAL_MACHINE\Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options
'
'There you´ll find the key "ShowProgressDialog", which normally is set to
'"Yes"
'
'If you set it to "No" this will suppress the dialog as well ....
'###############################################
'
'(A) The "Loading Image" dialog is popped up by the filter that's processing
'the image. We don't have any direct control over it.
'
' However, using the technique in the article Suppress the "Printing" Dialog,
' we can hide this dialog moments after it comes up.
'
' Call this subroutine from the OnTimer event of the form (with the
' TimerInterval set to a small number, say 200).
'
'Private Sub Form_Timer()
'    Call sHideLoadingImageDialog(hWndAccessApp)
'End Sub

'************* Code Start *************
Private Declare Function apiGetClassName Lib "user32" Alias _
    "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, _
                     ByVal nMaxCount As Long) As Long
Private Declare Function apiGetWindowText Lib "user32" Alias _
    "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, _
                      ByVal aint As Long) As Long
Private Declare Function apiGetLastActivePopup Lib "user32" Alias _
    "GetLastActivePopup" (ByVal hWndOwnder As Long) As Long
 
Private Declare Function apiShowWindow Lib "user32" Alias _
    "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
Private Const MAX_LEN = 255
Private Const GW_HWNDNEXT = 2
Private Const SW_HIDE = 0
Private Const SW_MINIMIZE = 6
Private Const SW_SHOWMINNOACTIVE = 7
Private Const SW_SHOWDEFAULT = 10

Sub sHideLoadingImageDialog(ByVal hWndApp As Long)
'Required: hWndAccessApp (Application handle)
On Error GoTo Err_Handler
    Dim lnghWndChild As Long
    Dim strCaption As String
    Dim strClass As String
    Dim lngRet As Long
 
    'Get the last active popup in hWndApp instance
    lnghWndChild = apiGetLastActivePopup(hWndApp)
    strClass = fGetClassName(lnghWndChild)
    strCaption = fGetCaption(lnghWndChild)
    'is this the modal window?
    If strClass = "#32770" And Trim(strCaption) = vbNullString Then
        lngRet = apiShowWindow(lnghWndChild, SW_HIDE)
    End If
Exit_Here:
    Exit Sub
Err_Handler:
    MsgBox "Error #: " & Err.Number & vbCrLf & Err.Description, _
           vbCritical + vbOKOnly, "sHideLoadingImageDialog-Runtime Error"
    Resume Exit_Here
End Sub

Private Function fGetClassName(ByVal hwnd As Long) As String
    Dim strBuffer As String
    Dim lngRet As Long
   
    strBuffer = String$(32, 0)
    lngRet = apiGetClassName(hwnd, strBuffer, Len(strBuffer))
    If lngRet > 0 Then
        fGetClassName = Left$(strBuffer, lngRet)
    End If
End Function

Private Function fGetCaption(ByVal hwnd As Long) As String
    Dim strBuffer As String
    Dim lngRet As Long
   
    strBuffer = String$(MAX_LEN, 0)
    lngRet = apiGetWindowText(hwnd, strBuffer, Len(strBuffer))
    If lngRet > 0 Then
        fGetCaption = Left$(strBuffer, lngRet)
    End If
End Function
'************ Code End ***************

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Tom2002
Der einzig Wahre Leuchtturm - Pilsum


Verfasst am:
25. Okt 2006, 19:16
Rufname:
Wohnort: Düsseldorf

AW: Probleme mit Bildern im Formular - AW: Probleme mit Bildern im Formular

Nach oben
       Version: Office 2003

Moin,

oder du änderst direkt in der registry den entsprechenden Eintrag.

Dies müsste der sein:
Code:
HKEY_LOCAL_MACHINE\Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options.
Wert auf NEIN setzen.

ciao

tom

_________________
Win7, Win2008 R2, Office 2010 Prof

Wer mit Fortuna Düsseldorf groß geworden ist, der fürchtet sich auch vor Access nicht.
Die Nutzlosigkeit des Daseins anzuerkennen heisst, Fortuna-Fan zu sein.
tko
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Okt 2006, 11:32
Rufname:

AW: Probleme mit Bildern im Formular - AW: Probleme mit Bildern im Formular

Nach oben
       Version: Office 2003

tko am 30. Okt 2006 um 10:05 hat folgendes geschrieben:
vielen dank für die antworten werds ausporbieren
lg tko

Hab den Code nun eingebaut, aber leider hat er keine besserung gebracht.
in der registry kann ich den eintrag nicht ändern, weil ich keine berechtigungen dazu hab. wisst ihr vielleicht andere gründe weswegen dieser fehler auftritt? ...bin disbezüglich ziemlich planlos

lg
Tko
Willi Wipp
Moderator


Verfasst am:
30. Okt 2006, 13:32
Rufname:
Wohnort: Raum Wiesbaden


Re: Probleme mit Bildern im Formular - Re: Probleme mit Bildern im Formular

Nach oben
       Version: Office 2003

Hi tko,

den Aufruf hast Du auch in das Formular-Ereigbnis Bei Zeitgeber (Timer) gepackt
Code:
Private Sub Form_Timer()
    Call sHideLoadingImageDialog(hWndAccessApp)
End Sub
und den Zeitgeberintervall (TimerInterval) auf 200 gesetzt?
_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Problem beim Bericht oeffnen, wenn Parameter von Formular 11 Gast1 993 21. Jul 2005, 15:28
Nindigo Problem beim Bericht oeffnen, wenn Parameter von Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage in Formular einbinden? 1 Percobodio 2045 29. Apr 2005, 11:29
lothi Abfrage in Formular einbinden?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrageergebnis als neues Formular anzeigen 2 mila 3034 12. Apr 2005, 12:38
mila Abfrageergebnis als neues Formular anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragen im Formular aufrufen, automatisch bestätigen 3 Calvin22 1606 12. Apr 2005, 12:12
Willi Wipp Abfragen im Formular aufrufen, automatisch bestätigen
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Formular Daten in einer Tabelle speichern? 1 Gast 1017 24. März 2005, 16:24
Willi Wipp Formular Daten in einer Tabelle speichern?
Keine neuen Beiträge Access Tabellen & Abfragen: mehrer abfragen ein formular 1 romu 719 10. Jan 2005, 15:54
lothi mehrer abfragen ein formular
Keine neuen Beiträge Access Tabellen & Abfragen: kreuzabfrage ausführen nach vorgeschaltetem formular mit kom 4 Gast 887 21. Dez 2004, 15:17
Gast kreuzabfrage ausführen nach vorgeschaltetem formular mit kom
Keine neuen Beiträge Access Tabellen & Abfragen: Formeln vom Formular, werden in der Abfrage nicht angezeigt 4 maddes 895 23. Nov 2004, 12:38
Skogafoss Formeln vom Formular, werden in der Abfrage nicht angezeigt
Keine neuen Beiträge Access Tabellen & Abfragen: Zeile der Dateneingabe (*) in einem Formular verschieben 2 Albertus 790 08. Okt 2004, 09:17
Albertus Zeile der Dateneingabe (*) in einem Formular verschieben
Keine neuen Beiträge Access Tabellen & Abfragen: Suchfunktion mit mehreren Kriterien aus Formular 5 Danny G. 2218 09. Sep 2004, 11:08
Danny G. Suchfunktion mit mehreren Kriterien aus Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle, Formular, Abfrage...und nun ? 3 Gags 790 29. Aug 2004, 22:05
lothi Tabelle, Formular, Abfrage...und nun ?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragefeld nachträglich in Formular 3 Sebbl 1705 05. Aug 2004, 15:14
mabe38 Abfragefeld nachträglich in Formular
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe