Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Problem mit Unterformular
zurück: Suchbutton definieren und Ausgabe weiter: Kalender Time and Date Picker von Microsoft Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
28. Jan 2008, 18:05
Rufname:

Problem mit Unterformular - Problem mit Unterformular

Nach oben
       Version: Office 2003

Hallo,

Ich habe ein Unterformular, das mir zu Dienstwagen die Leasingverträge anzeigen soll. Verknüpfung findet über die Schlüsselnummer des Dienstwagen statt. Beim Klick auf einen Button (z.B. für neuen Datensatz oder nächsten Satz) erhalte ich eine merkwürdige Fehlermeldung
Zitat:
Sie haben als Einstellung der Ereigniseigenschaft den Ausdruck Beim Klicken eingegeben. Dieser Ausdruck hat einen Fehler verursacht: Es trat ein Problem auf, während Microsoft Office Access mit dem OLE-Server oder Active-X-Steuerelement kommunizierte
Der Code hinter dem entsprechenden Button NewRec lautet nur "Call Pruefung"
Die Routine Pruefung sieht aus wie folgt:
Code:
Function Pruefung(Optional ByVal strname As String = "")
On Error GoTo Err_Button_Click
    Dim Frm As Form, Ctl As Control
   
    Set Frm = Screen.ActiveForm
'    MsgBox frm.Name & " is the active form."
    Set Ctl = Screen.ActiveControl
'    MsgBox ctl.Name & " is the active control on this form."
    Select Case Ctl.Name
      Case "FirstRec"
        DoCmd.GoToRecord , , acFirst
      Case "PrevRec"
        DoCmd.GoToRecord , , acPrevious
      Case "NextRec"
        DoCmd.GoToRecord , , acNext
      Case "LastRec"
        DoCmd.GoToRecord , , acLast
      Case "SaveRec"
        speichern = False
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
        Frm.Refresh
      Case "UndoRec"
        speichern = False
        DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
      Case "NewRec"
        DoCmd.GoToRecord , , acNewRec
        Frm(strname).SetFocus
      Case "DelRec"
        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
        Frm.Refresh
      Case "CloseFrm"
        DoCmd.Close
      Case Else
        MsgBox "Fehler in Pruefung"
    End Select
Exit_Button_Click:
    Exit Function
Err_Button_Click:
    MsgBox Err.Description
    Resume Exit_Button_Click
End Function
Hat einer eine Idee, was da falsch laufen könnte?
Da Oansa
Access / VBA Professional


Verfasst am:
02. Feb 2008, 14:39
Rufname:

AW: Problem mit Unterformular - AW: Problem mit Unterformular

Nach oben
       Version: Office 2003

Hallo,

dieser Fehler kann bei der Interaktion von Formularen, oder wie hier, mit Controls auftreten. Der Hintergrund ist, dass man durch Übergabe von Parametern an Funktionen und Prozeduren manchmal auch Objekte transportiert. Zur Kompilierzeit weiß VBA nicht, ob eine Objektreferenz exisitiert oder nicht. Das stellt sich dann zur Laufzeit heraus. Wie die Meldung ja besagt. Offenbar ist hier ein Active X Control beteiligt.

Das hilft nix. Debugging und genau hinschauen wann was passiert Wink

Klaus
jens05
Moderator


Verfasst am:
02. Feb 2008, 14:45
Rufname:
Wohnort: ~~~~~


AW: Problem mit Unterformular - AW: Problem mit Unterformular

Nach oben
       Version: Office 2003

Hallo,
ist dein Code vollständig kompiliert? (VBA: Debuggen->Compilieren)
Der Fehler tritt u.U an einer zum gerade gezeigten Prozess auf.

Falls kein Fehler auftritt, hilft meist das Decompilieren FAQ 1.23 Decompile

_________________
mfg jens05 Wink
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: Formular, Unterformular, Versionierung/automatisches Zählen 3 RammTammTamm 91 31. März 2014, 21:13
MiLie Formular, Unterformular, Versionierung/automatisches Zählen
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular nach Zeitspanne filtern 2 Udosym 105 01. Dez 2013, 14:48
MaHumba Unterformular nach Zeitspanne filtern
Keine neuen Beiträge Access Tabellen & Abfragen: txt_Feld mit Suchbutton soll Unterformular 6 BabyHoppi 375 08. Aug 2013, 13:44
endorfin txt_Feld mit Suchbutton soll Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Berechnung in Unterformular 1 Bollerkohl 100 09. Okt 2012, 08:19
kyron9000 Berechnung in Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Laufende Uhrzeit im Unterformular 3 Iron70 305 23. Sep 2012, 07:57
Iron70 Laufende Uhrzeit im Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular Neuer Datensatz nicht am Schluss 1 chris374 389 03. März 2012, 10:56
KlausMz Unterformular Neuer Datensatz nicht am Schluss
Keine neuen Beiträge Access Tabellen & Abfragen: Auf Unterformular zugreifen 1 Vermillion 181 12. Jan 2012, 18:38
MiLie Auf Unterformular zugreifen
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular für Artikelbestellung 5 JochenGAST 304 01. März 2011, 20:10
KlausMz Unterformular für Artikelbestellung
Keine neuen Beiträge Access Tabellen & Abfragen: Variabler Wert in einem Abhängigem Unterformular 7 Ogni 589 07. Feb 2011, 18:45
Bitsqueezer Variabler Wert in einem Abhängigem Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Leere Abfrage wenn kein Wert im Unterformular??? 5 Gast 588 23. Dez 2010, 15:02
Willi Wipp Leere Abfrage wenn kein Wert im Unterformular???
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage in Unterformular 3 Hundshamer 302 25. Mai 2010, 11:22
blackoutNO Abfrage in Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: M:N Beziehung, DS inkl. Autowert im Unterformular einfügen 5 wolfsmilch 2624 10. Feb 2008, 20:08
KlausMz M:N Beziehung, DS inkl. Autowert im Unterformular einfügen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver