Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Probleme mit Zugriff auf Klasse (Objekt nicht vorhanden)
zurück: DCount oder FindFirst mit 2 Argumenten weiter: PivotChart: Wie Punkte in Unterkategorien einfügen? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
LukasTal
Gast


Verfasst am:
24. Feb 2013, 18:30
Rufname:


Probleme mit Zugriff auf Klasse (Objekt nicht vorhanden) - Probleme mit Zugriff auf Klasse (Objekt nicht vorhanden)

Nach oben
       Version: Office 2007

LukasTal am 24. Feb 2013 um 16:54 hat folgendes geschrieben:
Hallo zusammen,

hab das ein kleines Problem in meiner Vba-Routine und komm auf keine Idee wie ich das beheben kann.

zu meinem Programm
-Habe eine Klasse mit Namen DatensatzAusleihe
-ein Formular welches FrmneueAusleihe heißt

Ich versuche gerade membervariablen in meiner Klasse zu setzen und bekomme als Fehlermeldung
Zitat:
Objekt nicht vorhanden
Ausschnitt aus Formular:
Code:
Option Compare Database

Dim Datensatz As DatensatzAusleihe

Private Sub Form_Current()
    Set Datensatz = New DatensatzAusleihe
End Sub

Private Sub KbnfMitarbeiter_AfterUpdate()
    If Not (Me.KbnfMitarbeiter.ListIndex = -1) Then
        Datensatz.SetMitarbeiterID Me.KbnfMitarbeiter.Column(0, Me.KbnfMitarbeiter.ListIndex)
      Else
        Datensatz.SetMitarbeiterID 0
    End If
End Sub

Private Sub btnAusleihen_Click()
    Datensatz.SetAnzahl_Textbox Me.txtAnzahl
    Datensatz.SetFrist_Textbox Me.txtZeit
    Datensatz.neuVerleih
End Sub
Ausschnitt aus Klasse
Code:
Public Sub SetAnzahl_Textbox(Steuerelement As TextBox)
    If (IsValidInteger_Textbox(Steuerelement)) Then
        mAnzahl = Steuerelement.Value
    End If
End Sub

Public Sub SetFrist_Textbox(Steuerelement As TextBox)
    If (IsValidInteger_Textbox(Steuerelement)) Then
        mFrist = Steuerelement.Value
    End If
End Sub
komischerweise kann ich in KbnfMitarbeiter_AfterUpdate() den Wert setzten in btnAusleihen_Click() jedoch nicht.
Die SetMehtoden sind Subs, welche auf Boolsche Funktionen zurückgreifen um den Wert auf seine Gültigkeit abzufragen.

Woran kann das liegen? was mache ich falsch?

Bedanke mich schonmal im Vorraus für jede Antwort.

Update:
folgendermaßen lässt sich der Wert jetzt setzen
Code:
Private Sub txtAnzahl_AfterUpdate()
    If Not (IsNull(Me.txtAnzahl)) Then
        Datensatz.SetAnzahl Me.txtAnzahl.Value
      Else
        Datensatz.SetAnzahl 0
    End If
End Sub
jedoch kann ich immer noch nicht in btnAusleihen_Click() auf funktionen zugreifen. Werte lassen sich jedoch auslesen
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: Anfügeabfrage wenn kein DS vorhanden 2 Bube204 194 18. Apr 2011, 06:45
Bube204 Anfügeabfrage wenn kein DS vorhanden
Keine neuen Beiträge Access Tabellen & Abfragen: Anfügeabfrage nur wenn Datensatz noch nicht vorhanden 4 mikewolfi 2049 15. Dez 2010, 15:43
Gast Anfügeabfrage nur wenn Datensatz noch nicht vorhanden
Keine neuen Beiträge Access Tabellen & Abfragen: If funktion falls importtabelle nicht vorhanden. 3 DonMiguel 394 16. Apr 2010, 10:32
ebs17 If funktion falls importtabelle nicht vorhanden.
Keine neuen Beiträge Access Tabellen & Abfragen: qry Kriterium - wenn nicht vorhanden dann... 3 billyjp 706 10. März 2010, 23:17
MiLie qry Kriterium - wenn nicht vorhanden dann...
Keine neuen Beiträge Access Tabellen & Abfragen: In Abfrage überprüfen, ob Feld aus Kreuzabfrage vorhanden 1 paper2008 694 06. Feb 2010, 15:54
jens05 In Abfrage überprüfen, ob Feld aus Kreuzabfrage vorhanden
Keine neuen Beiträge Access Tabellen & Abfragen: Begrenzte Datensätze vorhanden 1 Elizaroth 287 05. Nov 2009, 17:49
Bitsqueezer Begrenzte Datensätze vorhanden
Keine neuen Beiträge Access Tabellen & Abfragen: Kunden/Objekt Datenbank 7 pegasus.ao 1112 20. Okt 2009, 20:51
Marmeladenglas Kunden/Objekt Datenbank
Keine neuen Beiträge Access Tabellen & Abfragen: Excel Zugriff auf Access Abfragen nicht möglich? 4 simonpfau 1341 18. Sep 2009, 13:02
Gast Excel Zugriff auf Access Abfragen nicht möglich?
Keine neuen Beiträge Access Tabellen & Abfragen: gleichzeitiger Zugriff auf mehrere Emailordner nicht möglich 0 olifre 178 03. Aug 2009, 14:07
olifre gleichzeitiger Zugriff auf mehrere Emailordner nicht möglich
Keine neuen Beiträge Access Tabellen & Abfragen: Art.Nr kontrolle ob schon vorhanden 1 Alexa21 483 31. Jul 2007, 21:45
stpimi Art.Nr kontrolle ob schon vorhanden
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragekriterium nicht vorhanden 1 J.P. 503 02. Jul 2007, 23:54
Nouba Abfragekriterium nicht vorhanden
Keine neuen Beiträge Access Tabellen & Abfragen: Access Absturz bei Zugriff auf view 0 DaddyCool 697 29. Sep 2006, 09:26
DaddyCool Access Absturz bei Zugriff auf view
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks