Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
VBA Code erstellt in Access 2002 kompatibel zu Access 2007
zurück: Geteiltes Formular weiter: Msgbox soll max Wert einer Abfrage wiedergeben 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
benni_b
Im Profil kannst Du frei den Rang ändern


Verfasst am:
03. Okt 2008, 10:07
Rufname:

VBA Code erstellt in Access 2002 kompatibel zu Access 2007 - VBA Code erstellt in Access 2002 kompatibel zu Access 2007

Nach oben
       Version: Office 2007

Hallo zusammen,

seit dem ich Access 2007 laufen haben funktioniert mein Formular einer Access Datenbank nicht mehr, das auch VBA Bestandteile enthält. Ich habe die Datenbank bereits konvertiert. Hat aber nichts gebracht.

Vielleicht kann mir jemand helfen, was ich an meinem Code abändern muss, dass es auch unter 2007 läuft.
Code:
Private Sub Kombinationsfeld2_AfterUpdate()
    If Nz(Me!Kombinationsfeld2, "") <> "" Then
        If Me!Rahmen45 < 13 Then
            Me!Unterformular.Form.Filter = _
                           "MitarbeiterID = " & Me!Kombinationsfeld2 & " " & _
                       "AND Month([Monat]) = " & Me!Rahmen45
          Else
            Me!Unterformular.Form.Filter = _
                                     "MitarbeiterID = " & Me!Kombinationsfeld2
        End If
        Me!Unterformular.Form.FilterOn = True
      Else
        Me!Unterformular.Form.Filter = ""
        Me!Unterformular.Form.FilterOn = False
    End If
    If Nz(Me!Kombinationsfeld2) <> "" Then
        Me!Unterformular1.Form.Filter = _
                                     "MitarbeiterID = " & Me!Kombinationsfeld2
        Me!Unterformular1.Form.FilterOn = True
      Else
        Me!Unterformular1.Form.Filter = False
    End If
    If Nz(Me!Kombinationsfeld2) <> "" Then
        Me!Unterformular2.Form.Filter = _
                                     "MitarbeiterID = " & Me!Kombinationsfeld2
        Me!Unterformular2.Form.FilterOn = True
      Else
        Me!Unterformular2.Form.Filter = False
    End If
    If Nz(Me!Kombinationsfeld2) <> "" Then
        Me!Unterformular3.Form.Filter = _
                                     "MitarbeiterID = " & Me!Kombinationsfeld2
        Me!Unterformular3.Form.FilterOn = True
          Else
        Me!Unterformular3.Form.Filter = False
    End If
End Sub

Private Sub Rahmen45_AfterUpdate()
    Call Kombinationsfeld2_AfterUpdate
End Sub

'Edit: Formular "beim Öffnen" da sich AC den Filter merkt
Private Sub Form_Open(Cancel As Integer)
    Me!Unterformular.Form.Filter = ""
    Me!Unterformular.Form.FilterOn = False
    Me!Unterformular1.Form.Filter = ""
    Me!Unterformular1.Form.FilterOn = False
    Me!Unterformular2.Form.Filter = ""
    Me!Unterformular2.Form.FilterOn = False
    Me!Unterformular3.Form.Filter = ""
    Me!Unterformular3.Form.FilterOn = False
    Me!Rahmen45 = 13
End Sub

Viele Grüße
benni
steffen0815
VBA-Programmierer


Verfasst am:
03. Okt 2008, 12:46
Rufname:


AW: VBA Code erstellt in Access 2002 kompatibel zu Access 20 - AW: VBA Code erstellt in Access 2002 kompatibel zu Access 20

Nach oben
       Version: Office 2007

Hallo,
erster Anlaufpunkt:
VBA-Editor
-> Extras
--> Verweise
Schauen, ob dort Fehler kommen. Evt. auch mal einen Verweis entfernen, speichern, Verweis wieder aktivieren.

Zitat:
funktioniert mein Formular einer Access Datenbank nicht mehr
Das ist natürlich ziemlich nichtssagend Confused .
Was funktioniert konkret (Fehlermeldung!?) nicht.

_________________
Gruß Steffen
benni_b
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Okt 2008, 12:03
Rufname:

AW: VBA Code erstellt in Access 2002 kompatibel zu Access 20 - AW: VBA Code erstellt in Access 2002 kompatibel zu Access 20

Nach oben
       Version: Office 2007

Hallo Steffen,

Fehler kommen dort keine bei den Verweisen.
Grundlegend werden im Formular keine Daten angezeigt, sei jetzt nach Auswahl im Kombifeld wie auch bei Auswahl in der Optionsgruppe. Die Unterformulare werden irgendwie nicht angesprochen.

Grüße
benni
derArb
getting better


Verfasst am:
04. Okt 2008, 13:02
Rufname: derArb
Wohnort: Berlin

AW: VBA Code erstellt in Access 2002 kompatibel zu Access 20 - AW: VBA Code erstellt in Access 2002 kompatibel zu Access 20

Nach oben
       Version: Office 2007

Hallo,

Du hast einmal
Code:
    If Nz(Me!Kombinationsfeld2, "") <> "" Then
' und ansonsten
    If Nz(Me!Kombinationsfeld2) <> "" Then
' evtl. mal überall
    If Nz(Me!Kombinationsfeld2, "") <> "" Then

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
benni_b
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Okt 2008, 13:28
Rufname:

AW: VBA Code erstellt in Access 2002 kompatibel zu Access 20 - AW: VBA Code erstellt in Access 2002 kompatibel zu Access 20

Nach oben
       Version: Office 2007

nee,... hat leider nichts gebracht...... man sieht dass er arbeitet bei einer Auswahl im Kombi aber er zeigt einfach nichts an.
derArb
getting better


Verfasst am:
05. Okt 2008, 21:03
Rufname: derArb
Wohnort: Berlin


AW: VBA Code erstellt in Access 2002 kompatibel zu Access 20 - AW: VBA Code erstellt in Access 2002 kompatibel zu Access 20

Nach oben
       Version: Office 2007

derArb am 04. Okt 2008 um 14:21 hat folgendes geschrieben:
hallo,

dann stell mal eine abgespeckte Version mit anonymsierten Daten hier rein

mfg
derArb

hallo,

in Acc07 muss wohl ein zusätzliches Requery rein.
Code:
Private Sub Kombinationsfeld2_AfterUpdate()
    If Nz(Me!Kombinationsfeld2, "") <> "" Then
        If Me!Rahmen45 < 13 Then
            Me!Unterformular.Form.Filter = _
                           "MitarbeiterID = " & Me!Kombinationsfeld2 & " " & _
                       "AND Month([Monat]) = " & Me!Rahmen45
                     '(Edit by Willi Wipp) Leerzeichen immer moetig ===^^^!
                           
          Else
            Me!Unterformular.Form.Filter = _
                                     "MitarbeiterID = " & Me!Kombinationsfeld2
        End If
        Me!Unterformular.Form.FilterOn = True
        Me!Unterformular.Form.Requery '<<<<< in Access 2007 notwendig
      Else
        Me!Unterformular.Form.Filter = ""
        Me!Unterformular.Form.FilterOn = False
        Me!Unterformular.Form.Requery '<<<<< in Access 2007 notwendig
    End If
    If Nz(Me!Kombinationsfeld2) <> "" Then
        Me!Unterformular1.Form.Filter = _
                                     "MitarbeiterID = " & Me!Kombinationsfeld2
        Me!Unterformular1.Form.FilterOn = True
        Me!Unterformular1.Form.Requery '<<<<< in Access 2007 notwendig
      Else
        Me!Unterformular1.Form.Filter = False
        Me!Unterformular1.Form.Requery '<<<<<
    End If
    If Nz(Me!Kombinationsfeld2) <> "" Then
        Me!Unterformular2.Form.Filter = _
                                     "MitarbeiterID = " & Me!Kombinationsfeld2
        Me!Unterformular2.Form.FilterOn = True
        Me!Unterformular2.Form.Requery '<<<<<
          Else
        Me!Unterformular2.Form.Filter = False
        Me!Unterformular2.Form.Requery '<<<<<
    End If
    If Nz(Me!Kombinationsfeld2) <> "" Then
        Me!Unterformular3.Form.Filter = _
                                     "MitarbeiterID = " & Me!Kombinationsfeld2
        Me!Unterformular3.Form.FilterOn = True
        Me!Unterformular3.Form.Requery '<<<<<
          Else
        Me!Unterformular3.Form.Filter = False
        Me!Unterformular3.Form.Requery '<<<<<
    End If
End Sub

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
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: Ermitteln der ID, die als nächstes Erstellt wird 3 Gast 380 26. Okt 2009, 13:40
Gast Ermitteln der ID, die als nächstes Erstellt wird
Keine neuen Beiträge Access Tabellen & Abfragen: Ergebnis aus SQL Abfrage Variable zuweisen (Code vorhanden) 2 KillyvsCibo 1393 18. Aug 2009, 12:37
KillyvsCibo Ergebnis aus SQL Abfrage Variable zuweisen (Code vorhanden)
Keine neuen Beiträge Access Tabellen & Abfragen: Warum ändert Access den sql code? 12 abraxa 705 19. Jul 2009, 20:55
abraxa Warum ändert Access den sql code?
Keine neuen Beiträge Access Tabellen & Abfragen: Formatierung berechnetes Feld in einer Abfrage Access 2007 1 SHI 2638 13. Jun 2009, 11:51
Gast Formatierung berechnetes Feld in einer Abfrage Access 2007
Keine neuen Beiträge Access Tabellen & Abfragen: Darstellungsart "Kontrollkästchen" per Code setzen 3 fragerer 286 13. März 2009, 16:32
Gast Darstellungsart "Kontrollkästchen" per Code setzen
Keine neuen Beiträge Access Tabellen & Abfragen: Primärschlüssel per Code setzen 1 Herbert2 478 11. Jan 2009, 03:38
ich0 Primärschlüssel per Code setzen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage erstellt neue Tabelle 1 twobe 400 19. Nov 2008, 18:26
JörgG Abfrage erstellt neue Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: Access 2007 SQL-Struktur (Textstruktur) wird immer verworfen 7 kaineanung 3740 24. Okt 2008, 19:50
KlausMz Access 2007 SQL-Struktur (Textstruktur) wird immer verworfen
Keine neuen Beiträge Access Tabellen & Abfragen: Mehrfache Datensätze im Access 2007 Löschen 13 Blazezero 2103 22. Sep 2008, 16:10
Blazezero Mehrfache Datensätze im Access 2007 Löschen
Keine neuen Beiträge Access Tabellen & Abfragen: schnelle komplexe Abfrage per Code? 4 SaschaR 586 25. März 2008, 15:57
SaschaR schnelle komplexe Abfrage per Code?
Keine neuen Beiträge Access Tabellen & Abfragen: SVERWEIS UND WVERWEIS in Access 2007? 1 dasch1979 3025 02. Feb 2008, 18:36
steffen0815 SVERWEIS UND WVERWEIS in Access 2007?
Keine neuen Beiträge Access Tabellen & Abfragen: access 2007 relationships 0 polynaux 499 20. März 2007, 18:12
polynaux access 2007 relationships
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen