|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Laufzeitfehler in Access Runtime bei "Declare Function" |
04.06.2013 16:43:19 |
Konitzer |
|
|
|
04.06.2013 16:47:10 |
Gast74710 |
|
|
|
04.06.2013 17:04:58 |
Gast81141 |
|
|
|
05.06.2013 08:39:59 |
Konitzer |
|
|
Von:
Konitzer |
Datum:
04.06.2013 16:43:19 |
Views:
2051 |
Rating:
|
Antwort:
|
Thema:
Laufzeitfehler in Access Runtime bei "Declare Function" |
|
Hallo Leute,
ich habe ein Problem mit meinem Code und hoffe ihr könnt mir weiter helfen. Und zwar muss ich den "Datei Öffnen"-Dialog aufrufen und habe mir dazu das vorgeschlagenen Modul zusammen geschrieben. Mit der normalen Access Version (2010) klappt alles sehr gut, doch wenn ich es mit der Access Runtime auf einem anderen PC öffnen bekommt ich sofort die Meldung das das Programm wegen einem Laufzeitfehler angehalten wurde. Doch leider auch keine Laufzeitfehler Nummer oder ähnliches. Auch der Versuch den Fehler ab zu fangen schlug fehl.
Ich konnte das Problem auf die "Declare Function" der comdlg32.dll begrenzen. Da wider alles Geht wenn ich dies Auskommentiere.
Code:
Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Der gesamte Code des Modul lautet:
Option Compare Database
Option Explicit
Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
Flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As Long
End Type
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_READONLY = &H1
Public Const OFN_HIDEREADONLY = &H4
Public Function DateiOeffnen(Optional Titel, Optional Filter, Optional DefExtension, Optional AktDir) As String
On Error GoTo Err_DateiOeffnen
Dim strDateiname As String
Dim strDlgTitel As String
Dim strFilter As String
Dim strDefExtension As String
Dim strAktDir As String
Dim strNull As String
Dim OpenDlg As OPENFILENAME
strNull = Chr$(0)
strDateiname = String$(512, 0)
If IsMissing(Titel) Then
strDlgTitel = "Datei öffnen" & strNull
Else
strDlgTitel = Titel & strNull
End If
If IsMissing(Filter) Then
strFilter = "Alle Dateien" & strNull & "*.*" & strNull & strNull
Else
strFilter = Filter & strNull
End If
If IsMissing(DefExtension) Then
strDefExtension = strNull
Else
strDefExtension = DefExtension & strNull
End If
If IsMissing(AktDir) Then
strAktDir = CurDir$ & strNull
Else
strAktDir = AktDir & strNull
End If
With OpenDlg
.lStructSize = Len(OpenDlg)
.hwndOwner = Screen.ActiveForm.hwnd
.lpstrFilter = strFilter
.nFilterIndex = 1
.lpstrFile = strDateiname
.nMaxFile = Len(strDateiname)
.lpstrInitialDir = strAktDir
.lpstrTitle = strDlgTitel
.Flags = OFN_FILEMUSTEXIST Or OFN_READONLY
.lpstrDefExt = strDefExtension
If GetOpenFileName(OpenDlg) <> 0 Then
DateiOeffnen = Left$(.lpstrFile, InStr(.lpstrFile, strNull) - 1)
Else
DateiOeffnen = ""
End If
End With
Exit_DateiOeffnen:
Exit Sub
Err_DateiOeffnen:
writeLogError Forms.start.getMitarbeiterID, Me.Name, Err.Source, Err.Description
MsgBox "Ein Fehler ist aufgetreten!" & vbCrLf & "Bitte geben sie dem Administrator bescheit." & vbCrLf & vbCrLf & "Schließen sie das Tool und öffnen sie es erneut!", vbCritical
Resume Exit_DateiOeffnen
End Function
Ich hoffe ihr könnt mir weiter helfen und Danke schon im Vorraus |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Laufzeitfehler in Access Runtime bei "Declare Function" |
04.06.2013 16:43:19 |
Konitzer |
|
|
|
04.06.2013 16:47:10 |
Gast74710 |
|
|
|
04.06.2013 17:04:58 |
Gast81141 |
|
|
|
05.06.2013 08:39:59 |
Konitzer |
|
|