Fehler beim Kompilieren. Benutzerdefinierter Typ nicht definiert - YouTube
InitialFileName = Left(FileVar, InStrRev(FileVar, "")) End With Set fd = Nothing 'Fokus zu Access zurck holen PostMessage Application. hWndAccessApp, WM_SETFOCUS, 0&, 0& Me! tFocus Ex: On Error Resume Next Exit Sub Er: MsgBox "cmdBildEinfuegen: " & scription Resume Ex End Sub Fehlermeldung: Zitat: Fehler beim Kompilieren Benutzerdefinierter Typ nicht definiert Ich kann mir zwar denken das irgend etwas nicht definiert wurde, kann mir aber nicht erklren was, denn ich habe alle Funktionen 1 zu 1 bernommen und finde keinen Bereich im VBA-Code den ich vergessen haben sollte. Irgendwo muss der Fehler jedoch liegen. Hat jemand einen Tipp? MfG Gast Verfasst am: 22. Aug 2006, 22:43 Rufname: Hi, in der DB ist ein Klassenmodul FileDialog enthalten? Gru Verfasst am: 22. Aug 2006, 23:27 Rufname: Im funktionierenden Ursprungs-Original finde ich nur ein Modul (ShellExecuteMdl) Code: Public Declare Function ShellExecute Lib "" Alias _ "ShellExecuteA" (ByVal Hwnd As Long, ByVal Ipoperation As String, _ ByVal Ipfile As String, ByVal Ipparameters As String, _ ByVal Ipdirectory As String, ByVal nshowcmd As Long) _ As Long Meinst du so etwas in der Richtung?
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) B ei 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 Fehler beim Kompilieren 02. 07. 2018 09:47:42 Sammy 02. 2018 10:26:30 Gast79736
Benutzerdefinierter Typ nicht definiert Autor Nachricht Red Access-Einsteiger Verfasst am: 22. Aug 2006, 22:39 Rufname: Ich habe mit eurer Hilfe eine Sammlungsdatenbank erstellt. Quelle war die Datenbank hier Probleme beim Anzeigen innerhalb eines VBA-Scripts Nachdem ihr mir geholfen hattet aus einem zwei Bilder zu machen, habe ich diese Funktion verfnffacht und in meine Datenbank bernommen. Im folgenden Code wird mir in der zweiten Zeile bei " fd As FileDialog" ein Fehler ausgegeben: Code: Private Sub cmdBildEinfuegen_Click() On Error GoTo Er Dim fd As FileDialog, FileVar As Variant Set fd = leDialog(msoFileDialogOpen) With fd. AllowMultiSelect = False.. "Bilddateien", "*; *; *; *", 1 '. InitialFileName = 'Pfad der DB als Vorgabe '. InitialView = msoFileDialogViewThumbnail 'Miniaturbilder anzeigen If Then '= -1 Then For Each FileVar In. SelectedItems ' FileVar If Len(FileVar) > 0 Then Me! txtBild = FnstrGet_PathOrFile(Nz(FileVar, ""), False) LoadPic End If Next FileVar 'Pfad der zuletzt geffneten Datei als Vorgabe '.
Grüße EarlFred Meine Güte bist Du nachtragend.... *grins Da kannst mal sehen wie die Zeit vergeht..... ** Nein, mal im ernst, habe es überlesen, wie Du schon sagtes ich habe den Kommentar ja selber hinzugefügt.... Habs eingestellt... und es funkt. Hallo?, nein. Ich habe aber offenbar ein funktionierendes Gedächtnis. Kein Wasser, ist elektrisch! Löschdecke drauf oder CO2-Löscher nehmen. Und danke für Dein herzliches Dankeschön. Ich helfe gerne. Hallo EarlFred, ;o) Erschrocken war ich über den Zeitraum der vergangen ist. Ich würde das ganze gern um die Auflistung der Dateinamen erweitern. Könntest Du mir da mal sagen wie das geht, bin da leider nicht fit genug. Habe übrigens festgestellt, das es eine Fehlermeldung gibt wenn das Verz. auf das zugegriffen wird administriert wird und Rechte drauf vergeben wurden. Dann muß ich Code: heraus nehmen. Ich habe heute das "Tool" eig. ein Macro benutzt um die Anzahl von Dateien auszulesen... leider haut da was nicht hin, es werden mir Verzeichnisse aufgelistet wo nix drin ist und im Feld Dateien (Spalte B) eine 1 dargestellt.
Ich möchte/muss die nachfolgenden Codes irgendwie Zusammenführen weil die Prüfung augenscheinlich so nicht funktioniert. Ansich der selbe Code mit...